il mio programma che fa tutto lui basta che scrivi che cosa vuoi cercare e dove lo vuoi cercare il resto farΰ lui
CODICE
#include <GUIConstants.au3>
#include <IE.au3>
;Creato by Kuja
$Form1 = GUICreate("Cerca sui motori(By:Kuja", 632, 138, 193, 125)
$a=GUICtrlCreateInput("", 24, 24, 393, 21)
$radio1 = GUICtrlCreateRadio("Radio1", 16, 64, 17, 17)
$radio2 = GUICtrlCreateRadio("Radio2", 16, 96, 17, 17)
$radio3 = GUICtrlCreateRadio("Radio3", 224, 64, 17, 17)
$radio4 = GUICtrlCreateRadio("Radio4", 224, 96, 17, 17)
$cerca = GUICtrlCreateButton("Cerca", 472, 24, 113, 25, 0)
$Label1 = GUICtrlCreateLabel("Google", 48, 64, 49, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Youtube", 48, 96, 44, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Msn", 256, 64, 44, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Virgilio", 256, 96, 49, 22)
GUISetState ()
$motore="http://www.tiscali.it/bb/"
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
$motore="http://www.google.it/"
Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
$motore="http://www.youtube.it"
Case $msg = $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED
$motore="http://www.msn.it"
Case $msg = $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED
$motore="http://virgilio.alice.it/indexbb.html"
Case $msg = $cerca
$b=GUICtrlRead($a)
$oIE = _IECreate ($motore,1)
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetCollection ($oForm, 1)
_IEFormElementSetValue ($oQuery, $b)
_IEFormSubmit ($oForm)
EndSelect
Wend
