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. @+
Je n'ai pas encore rencontré de bugs faites moi par ce ceux ci (s'il y en a) dans vos commentaires merci :)
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
- Dialog internet
- En dialog - Meilleures réponses
- IRC : Favoris internet en dialog mirc - CodeS SourceS - Guide
- IRC : Recherche multi moteur de recherche internet - CodeS SourceS - Guide
- Menu deroulant avec choix du moteur de recherche - Codes sources - Javascript (Menu & Co)
- Moteur de recherche internet - Codes sources - Visual Basic / VB.NET (VB.NET)
- Moteur de recherche javascript - Guide
Commentaires
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 ;)
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.