RECHERCHE INTERNET EN DIALOG AVEC CHOIX MOTEUR DE RECHERCHE ET NAVIGATEUR , Source N°31998

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 12/06/2005 Date de mise à jour : 12/06/2005 17:58:28 Vu : 2 077

Auteur : lebiloute

Ecrire un message privé

Note :

6,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Salut, je vous presente cette petite addon qui vous permet d'effectuer des recherches internet sur 4 moteurs de recherche avec 4 navigateurs differents. Le code n'est pas tres compliquer certes mais c'est bien utile ... Je n'ai pas encore utilisé les sockets car je ne maitrise pas encore mais bon peut etre un jour :)
Pour ouvrir le dialog faites : /rech
J'ai tout dit. @+

Source

alias rech { dialog -m Recherche Recherche }
dialog Recherche {
title "Recherche internet"
size -1 -1 160 157
option dbu
box "Choix du moteur de recherche", 1, 4 3 153 39
radio "Google", 2, 8 14 50 10, group
radio "Lycos", 3, 104 14 50 10
radio "Voila", 4, 8 27 50 10
radio "Yahoo", 5, 104 27 50 10
box "Choix du navigateur", 6, 4 50 153 40
radio "Iexplore", 7, 8 64 50 10, group
radio "Firefox", 8, 8 77 50 10
radio "Opera", 9, 104 65 50 10
radio "Netscape", 10, 104 76 50 10
box "Recherche", 11, 4 97 153 50
edit "", 12, 11 114 134 10
button "Ok", 13, 65 128 37 12, ok
text "Texte de la recherche a effectuer", 14, 39 105 82 8
}
on *:dialog:Recherche:*:*:{
if ($devent == sclick && $did == 13) {
var %navigateur $gettok(Iexplore.Firefox.Opera.Netscape,$findtok($+($did(7).state,.,$did(8).state,.,$did(9).state,.,$did(10).state),1,1,46),46)
var %moteur $gettok(Google.Lycos.Voila.Yahoo,$findtok($+($did(2).state,.,$did(3).state,.,$did(4).state,.,$did(5).state),1,1,46),46)
if (%moteur == google) {
var %z $replace($did(12),$chr(32),+) , %x http://www.google.fr/search?hl=fr&q= , %y &btnG=Recherche+Google&meta=lr%3Dlang_fr
run %navigateur $+ .exe $+(%x,%z,%y)
}
elseif (%moteur == lycos) {
var %z $replace($did(12),$chr(32),+) , %x http://vachercher.lycos.fr/cgi-bin/pursuit?query , %y &cat=fr&tld=com&family=off&x=16&y=8
run %navigateur $+ .exe $+(%x,%z,%y)
}
elseif (%moteur == yahoo) {
var %z $replace($did(12),$chr(32),+) , %x http://fr.search.yahoo.com/search?fr=fp-tab-web-t-1&ei=ISO-8859-1&p= , %y &meta=vl%3Dlang_fr
run %navigateur $+ .exe $+(%x,%z,%y)
}
elseif (%moteur == voila) {
var %z = $replace($did(12),$chr(32),+) , %x http://search.ke.voila.fr/S/voila?dt=*&kw=
run %navigateur $+ .exe $+(%x,%z)
}
}
}

alias rech { dialog -m Recherche Recherche }
dialog Recherche {
  title "Recherche internet"
  size -1 -1 160 157
  option dbu
  box "Choix du moteur de recherche", 1, 4 3 153 39
  radio "Google", 2, 8 14 50 10, group
  radio "Lycos", 3, 104 14 50 10
  radio "Voila", 4, 8 27 50 10
  radio "Yahoo", 5, 104 27 50 10
  box "Choix du navigateur", 6, 4 50 153 40
  radio "Iexplore", 7, 8 64 50 10, group
  radio "Firefox", 8, 8 77 50 10
  radio "Opera", 9, 104 65 50 10
  radio "Netscape", 10, 104 76 50 10
  box "Recherche", 11, 4 97 153 50
  edit "", 12, 11 114 134 10
  button "Ok", 13, 65 128 37 12, ok
  text "Texte de la recherche a effectuer", 14, 39 105 82 8
}
on *:dialog:Recherche:*:*:{
  if ($devent == sclick && $did == 13) {
    var %navigateur $gettok(Iexplore.Firefox.Opera.Netscape,$findtok($+($did(7).state,.,$did(8).state,.,$did(9).state,.,$did(10).state),1,1,46),46)
    var %moteur $gettok(Google.Lycos.Voila.Yahoo,$findtok($+($did(2).state,.,$did(3).state,.,$did(4).state,.,$did(5).state),1,1,46),46)
    if (%moteur == google) {
      var %z  $replace($did(12),$chr(32),+) , %x  http://www.google.fr/search?hl=fr&q= , %y &btnG=Recherche+Google&meta=lr%3Dlang_fr
      run %navigateur $+ .exe $+(%x,%z,%y) 
    }
    elseif (%moteur == lycos) {
      var %z  $replace($did(12),$chr(32),+) , %x  http://vachercher.lycos.fr/cgi-bin/pursuit?query , %y  &cat=fr&tld=com&family=off&x=16&y=8
      run %navigateur $+ .exe $+(%x,%z,%y) 
    }
    elseif (%moteur == yahoo) {
      var %z  $replace($did(12),$chr(32),+) , %x  http://fr.search.yahoo.com/search?fr=fp-tab-web-t-1&ei=ISO-8859-1&p= , %y  &meta=vl%3Dlang_fr
      run %navigateur $+ .exe $+(%x,%z,%y)
    }
    elseif (%moteur == voila) {
      var %z = $replace($did(12),$chr(32),+) , %x http://search.ke.voila.fr/S/voila?dt=*&kw=
      run %navigateur $+ .exe $+(%x,%z)
    }
  }
}

Conclusion

Je n'ai pas encore rencontré de bugs faites moi par ce ceux ci (s'il y en a) dans vos commentaires merci :)

Historique

12 juin 2005 17:26:03 :: edit enlevé
12 juin 2005 17:58:28 :: Grosse optimisation :)

Sources du même auteur

Toutes les sources de lebiloute

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de MaX_62 le 12/06/2005 16:45:41

J'aime pas trop les trucs qui lancent des pages web... ça serait plus sympa en socket, quoique plus difficile a réaliser...

Par contre le code est largement optimisable !
Dans ton sclick sur le bouton, tu vérifies les 4 valeurs de $did(x).state et tu mets une variable locale avec celui qui est a l'état 1 ! idem pour l'édit, tu récupères son contenu avec $did et c'est tout, pas besoin de variable
Comme ça tu évites d'utiliser des variables inutilement, et les évènements sclick de 2 à 10 peuvent etre effacés...
%x $+ %z $+ %y devient $+(%x,%z,%y) c'est plus rapide...
Et pour l'évènement edit, regroupe les conditions :
if ($devent == edit && $did == 12)

Je note pas.
Commentaire de lebiloute le 12/06/2005 16:48:30

Ok merci de tes commentaires je corrige.
Commentaire de lebiloute le 12/06/2005 17:17:00

Euh il y a un truc que je n'ai pas tres bien compris ... c'est ton histoire de $did(x).state, je sais bien que c'est celui qui est coché est a 1 mais ... je ne vois pas comment scripter le tout. Si tu pouvais m'eclaircire car je crois que les $did(x).state ne fonctionnent pas avec les radios ...
Commentaire de MaX_62 le 12/06/2005 17:37:46

Je pense que tu peux faire un truc du genre :

on *:dialog:recherche:sclick:13:{
var %moteur $gettok(Google.Lycos.Voila.Yahoo,$findtok($+($did(2).state,.,$did(3).state,.,$did(4).state,.,$did(5).state),1,1,46),46)
}

j'ai pas testé mais ça doit etre correct...
Commentaire de lebiloute le 12/06/2005 17:53:24

Ok merci c'est correct (je retiens le code)
Commentaire de MaX_62 le 12/06/2005 19:47:15

C'est déjà mieux ;)
Je note toujours pas car il existe pas mal de sources de ce type ici, et ça serait excellent de le faire avec des sockets ;)
Commentaire de lebiloute le 21/06/2005 10:32:29

C'est bien de mettre 2/10 mais il faut quand meme poster un commentaire merci.
Commentaire de hunter38 le 25/05/2007 20:03:07

moi je l'aime bien ton script je le note 8,5/10