Recherche internet en dialog avec choix moteur de recherche et navigateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 190 fois - Téléchargée 28 fois

Contenu du snippet

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 / Exemple :


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 :)

A voir également

Ajouter un commentaire

Commentaires

cs_hunter38
Messages postés
46
Date d'inscription
samedi 12 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007

moi je l'aime bien ton script je le note 8,5/10
cs_lebiloute
Messages postés
26
Date d'inscription
mardi 12 avril 2005
Statut
Membre
Dernière intervention
1 septembre 2005

C'est bien de mettre 2/10 mais il faut quand meme poster un commentaire merci.
MaX_62
Messages postés
883
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

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 ;)
cs_lebiloute
Messages postés
26
Date d'inscription
mardi 12 avril 2005
Statut
Membre
Dernière intervention
1 septembre 2005

Ok merci c'est correct (je retiens le code)
MaX_62
Messages postés
883
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

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...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.