AutoIt Français

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  

Code : Tout sélectionner

$site = "http://fr-fr.facebook.com/"
ShellExecute("firefox", $site)

Code : Tout sélectionner

#include <Process.au3 ; A mettre avec les autres Includes

_RunDOS ("Start http://fr-fr.facebook.com/") ; Le Start à ne surtout pas enlever.
;_RunDOS te permet d'ouvrir la page web souhaité (ici Facebook) avec le navigateur par défaut.