AutoIt Français

Code : Tout sélectionner

Dim $continuer  = 1

Dim $erreur = Run("C:\Program Files (x86)\Poulet\UpLauncher.exe") ;On lance le launcher

If $erreur = 1 Then ; Si il y  a une erreur, on quitte
    MsgBox(48, "Erreur !", "Impossible de lancer Poulet.")
    Exit(1)
EndIf

WinWaitActive("Lanceur Poulet")

While $continuer = 1 ;On lance Poulet
    MouseMove(1024, 482) ;On déplace la souris
    $position = MouseGetPos()

    If $position[0] = 1024 AND $position[1] = 482 Then ;Si la souris et à la bonne place, alors on continue, sinon on recommence
        MouseClick("left")

        Sleep(1000) ; On attend une seconde que la fenètre s'ouvre, ou que la MAJ soit faites s'il y  en a.

        If WinActive("Poulet") Then
            $continuer = 0
        EndIf

    EndIf

    Sleep(10)
WEnd

WinWaitActive("Poulet")

$handle = WinGetHandle("Poulet")

$retour = WinSetState($handle,"",@SW_MAXIMIZE)

If $retour = 0 Then
    MsgBox(48,"Erreur","Impossible d'agrandir la fenètre.")
    Exit(1)
EndIf

$continuer = 1
While $continuer = 1 ;On clique sur Ok

    MouseMove(1255, 280)
    $position = MouseGetPos()

    If $position[0] = 1255 AND $position[1] = 280 Then ;Si la souris est au bon endroit
        MouseClick("left")

        Sleep (1000) ;On attend 1sec que ça charge
        $continuer = 0
    EndIf

    Sleep(10)
WEnd

$continuer = 1
While $continuer = 1 ;On entre le mdp

    MouseMove (468, 416)
    $position = MouseGetPos()

    If $position[0] = 468 AND $position[1] = 416 Then
        MouseClick("left")

        Send("Mot de passe")
        Send("{ENTER}")
        $continuer = 0
    EndIf
    Sleep(10)
WEnd