RECHERCHE INTERNET EN DIALOG AVEC CHOIX MOTEUR DE RECHERCHE ET NAVIGATEUR

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