Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 444 fois - Téléchargée 30 fois
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) } } }
25 mai 2007 à 20:03
21 juin 2005 à 10:32
12 juin 2005 à 19:47
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 ;)
12 juin 2005 à 17:53
12 juin 2005 à 17:37
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.