

dialog web {
  icon Images\icon.ico 
  size -1 -1 300 320
  Text "N'oubliez pas de selectionner un moteur de recherche ! ! " 200 , 15 195 270 15


    button "SORTIE", 601, 10 296 280 20, cancel
  title "Funny Web"
  box "Recherche" 15, 10 100 280 110
  text "Tapez ici les mots clés" 16 , 10 115 280 15, center
  edit "" 2, 20 140 260 20, autohs
  button "CHERCHE !" 8, 80 170 140 15, ok
  radio "." 100, 320 320 37 7, Push
  box "Moteurs de recherche", 17, 10 10 280 90
  radio "Google" 101, 20 25 80 20, Push
  radio "Voilà " 102, 20 75 80 20, push
  radio "Lycos" 103, 20 50 80 20, Push
  radio "Nomade" 104, 110 25 80 20, Push
  radio "AltaVista" 105, 110 50 80 20, Push
  radio "Yahoo!" 106 , 110 75 80 20, push
  radio "MSN" 107, 200 25 80 20 , push
  radio "NetScan" 108, 200 50 80 20 , push
  radio "AOL" 109, 200 75 80 20, push
  icon 1, 15 215 269 76,  images\icones\web.jpg, 0, noborder center
}





alias yahoo!search return http://fr.search.yahoo.com/search/fr?p=
alias googlesearch return http://www.google.fr/search?q=
alias lycossearch return http://www.lycos.fr/cgi-bin/pursuit?&query=
alias altavistasearch return http://fr.altavista.com/q?pg=q&q=
alias Voilàsearch return http://search.ke.voila.fr/S/voila?gb=site&kw=
alias Nomadesearch return http://rechercher.nomade.tiscali.fr/recherche.asp?MT=
alias NetScansearch return http://www.netscan.fr/cgi-bin/netscgi?text=

alias MSNsearch return http://search.msn.fr/results.asp?RS=CHECKED&FORM=MSNH&v=1&un=doc&CY=fr&q=
alias AOLsearch return http://www.recherche.aol.fr/web.adp?query=



on *:dialog:web:*:*:{
  if ($devent == init) {
    unset %mws.engine | unset %mws.query
    did -c web 100
  }
  if ($did >= 100) { set %mws.engine $did($did).text }
  if ($did == 2) { set %mws.query " $+ $did(2).text $+ " }
  if ($did == 8) {
    if %mws.engine == $null { 
      halt
    }
    if %mws.query == $null { halt }
    set %20 $chr(37) $+ 20
    set %2F $chr(37) $+ 2F
    set %26 $chr(37) $+ 26
    run $ [ $+ [ %mws.engine ] $+ search ] $+ $replace($replace($replace(%mws.query,$chr(32),%20),$chr(47),%2F),$chr(38),%26)
    halt
  }
}


}
