Alors je voudrais votre avis sur un script que je bosse dessus depuis quelque temps mais je pense qu'il y a quelque erreur enfin bref voici le code
Code : Tout sélectionner
Application()
Func Application()
Local $Button_1, $Button_2, $msg
GUICreate("My GUI Button") ; créera une boîte de dialogue
Opt("GUICoordMode", 2)
$Button_1 = GUICtrlCreateButton("Run Notepad", 10, 30, 90)
$Button_2 = GUICtrlCreateButton("face book", 0, -1)
$Button_3 = GUICtrlCreateButton("Mozilla firfox", 0, -1)
$Button_4 = GUICtrlCreateButton("msn login", 0, -1)
Opt("GUICoordMode", 1)
$Button_5 = GUICtrlCreateButton("Le site du Zero", 10, 60, 90)
$Button_6 = GUICtrlCreateButton("manga on", 100,-1)
$Button_7 = GUICtrlCreateButton("Shinobi", 100,-1)
GUISetState(@SW_SHOW) ; Affiche une boîte de dialogue avec 5 Boutton
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button_1
Run('Notepad.exe') ; Execute BlocNote
Case $msg = $Button_2
$site = "http://fr-fr.facebook.com/"
ShellExecute("firefox", $site) ; Execute firefox Puis se connecter a Face Book
Sleep(4000)
MouseClick("left" ,779, 189)
Send("mon adresse E-mail")
MouseClick("left" ,978, 188)
Send("Motdepasse")
MouseClick("left" ,1112, 189, 2)
Case $msg = $Button_3
ShellExecute("firefox") ; Execute firefox Puis se connecter a Msn
Case $msg = $Button_4
$site = "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1290011817&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1036&id=64855&mkt=fr-FR&cbcxt=mai&snsc=1"
ShellExecute("firefox.exe", $site)
Sleep(4000)
MouseClick("left", 1046, 439)
Send("mon adresse E-mail")
MouseClick("left" ,925, 491)
Send("Motdepasse")
MouseClick("left", 873, 606,2)
Case $msg = $Button_5
$site = "http://www.siteduzero.com/"
ShellExecute("firefox" ,$site) ;Lancé la navigation du site du zero vers le Langage C
Sleep(3000)
MouseClick("left" ,1431, 836, 8)
MouseClick("left", 115, 706, 2)
case $msg = $Button_6
$site = "http://www.mangaon.com/"
ShellExecute("firefox" ,$site)
Case $msg = $Button_7
$site = "http://www.shinobi.com/"
MouseClick("left", x, y)
Send("Motdepasse")
MouseClick("left" ,x, y)
EndSelect
WEnd
EndFunc tout commentaire sera le bienvenue
Merci d'avance





