Accueil > > > RECHERCHE INTERNET EN DIALOG AVEC CHOIX MOTEUR DE RECHERCHE ET NAVIGATEUR
RECHERCHE INTERNET EN DIALOG AVEC CHOIX MOTEUR DE RECHERCHE ET NAVIGATEUR
Information sur la source
Description
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
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
VISUAL STUDIO TALK SHOW: EF4VISUAL STUDIO TALK SHOW: EF4 par Matthieu MEZIL
La semaine dernière, j'étais à Montréal pour y animer des conférences sur Entity Framework. J'en ai profité pour enregister un podcast Visual Studio Talk Show que vous pouvez retrouver ici ....(read more) ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [MIX 2010] - WINDOWS PHONE 7 EN SUPER STAR DU MICROSOFT MIX 2010 ![MIX 2010] - WINDOWS PHONE 7 EN SUPER STAR DU MICROSOFT MIX 2010 ! par redo
Me voici enfin arrivé au Microsoft Mix 2010, je dois vous avouer être arrivé un peu plus tard que d'habitude, ce qui explique que je n'ayez vu aucune info passer quant au premier keynote . certains événements sont plus importants que tout, ce qui était mo...
Cliquez pour lire la suite de l'article par redo [MIX 2010] - LIVRE GRATUIT SUR PROGRAMMER WINDOWS PHONE 7 SERIES ![MIX 2010] - LIVRE GRATUIT SUR PROGRAMMER WINDOWS PHONE 7 SERIES ! par redo
Disponible gratuitement : (153 pages) PDF Version : http://download.microsoft.com/download/7/C/8/7C820C6F-C205-4ECF-B9F3-1505DD13F9BF/ProgWinPhonePreview.pdf XPS Version : http://download.microsoft.com/download/E/3/5/E359FC51-1CF5-47F1-9BF3-74AB09D3339B/P...
Cliquez pour lire la suite de l'article par redo SQL SERVER : ESTIMER LE NOMBRE DE LIGNES RENVOYéES PAR UNE REQUêTE AVEC SQLCLRSQL SERVER : ESTIMER LE NOMBRE DE LIGNES RENVOYéES PAR UNE REQUêTE AVEC SQLCLR par christian
Dans certains cas très particuliers il peut être intéressant de savoir le nombre de ligne que va renvoyer une requête sans exécuter cette dernière. En effet les opérations de comptage sont généralement gourmande en ressource est très difficile à optim...
Cliquez pour lire la suite de l'article par christian [WF4] ACTIVITY AVEC VUE DéTAIL MASQUéE PAR DéFAUT, VIVE WPF![WF4] ACTIVITY AVEC VUE DéTAIL MASQUéE PAR DéFAUT, VIVE WPF! par JeremyJeanson
Le code suivant est destiné à répondre à une problématique courante en Workflow : Vous avez une activité dont le designer est complexe ou dont l'affichage prend une place importante à l'écran et la possibilité Collapse/Expand ne répond pas pleinement à vo...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
RE : PROBLEMERE : PROBLEME par kamikaze97441
Cliquez pour lire la suite par kamikaze97441
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|