AutoIt Français

Code : Tout sélectionner

;==================================================
;                     FONCTION
;               "PAUSE" & "TERMINER"
;==================================================

Global $Paused
HotKeySet("{SPACE}", "Pause")
HotKeySet("{ESC}", "Terminer")

Func Pause()
    $Paused = NOT $Paused
    While $Paused
    ToolTip('Script "en Pause"',9,7)
    WEnd
    ToolTip("")
EndFunc

Func Terminer()
    Exit 0
EndFunc

;==================================================
;                    FONCTION
; "ATTENDRE LA FENETRE" & "POSITIONNER LA FENETRE"
;==================================================

Winwaitactive("Mon Projet")
WinMove("Mon Projet", "", 0, 0)

Code : Tout sélectionner

;==================================================
;                     FONCTION
;                     "ACTION1"
;==================================================

;~ Couleur
$Color1 = "0x0000FF"
$Color2 = "0xFF0000"
$Color3 = "0xBF00BF"

While 1
$coord=PixelSearch( 80 , 90 , 730 , 475 ,$Color1) ;Chercher la color1.
    If @error then
$coord=PixelSearch( 80 , 80 , 730 , 475 ,$Color2) ;Chercher la color2.
    EndIf
    If @error then
$coord=PixelSearch( 80 , 80 , 730 , 475 ,$Color3) ;Chercher la color3.
    EndIf

    If not @error Then ; Si la Color est trouvée.
        MouseMove($coord[0] , $coord[1]) ;Bouge sur la Color.
        sleep(100) ;Attente 0,1 seconde.
        MouseClick('left') ;Clic Gauche.
        MouseClick("left", $COORD[0] + 10, $COORD[1] + 30) ;Clic sur BAS + DROITE pour selectionner OK.
        sleep(1000*60) ; Attente de 60 secondes
    EndIf ;Ferme le "If ..."
WEnd
 


;==================================================
;                     FONCTION
;             "DETECTION"
;==================================================

Func DETECT()

$coord=PixelSearch( 654 , 446 , 735 , 469 ,"0xFFFFFF")
        If not @error Then
            MouseClick("left", $COORD[0] + 10, $COORD[1] + 20)
        EndIf
EndFunc

;==================================================
;                     FONCTION
;                     "ACTION2"
;==================================================

$coord=PixelSearch( 5 , 50 , 645 , 415 ,"0xFF6100")
If @error Then
    $coord=PixelSearch( 5 , 50 , 645 , 415 ,"0x00FF00")
Endif

; Si la couleur à été trouvée.
if not @error Then
MouseMove($coord[0] , $coord[1])
MouseClick('left')
EndIf
Sleep(500)
 

Code : Tout sélectionner

Func action1()
;==================================================
;                     FONCTION
;                     "ACTION1"
;==================================================

;~ Couleur
$Color1 = "0x0000FF"
$Color2 = "0xFF0000"
$Color3 = "0xBF00BF"

While 1
$coord=PixelSearch( 80 , 90 , 730 , 475 ,$Color1) ;Chercher la color1.
    If @error then
$coord=PixelSearch( 80 , 80 , 730 , 475 ,$Color2) ;Chercher la color2.
    EndIf
    If @error then
$coord=PixelSearch( 80 , 80 , 730 , 475 ,$Color3) ;Chercher la color3.
    EndIf

    If not @error Then ; Si la Color est trouvée.
        MouseMove($coord[0] , $coord[1]) ;Bouge sur la Color.
        sleep(100) ;Attente 0,1 seconde.
        MouseClick('left') ;Clic Gauche.
        MouseClick("left", $COORD[0] + 10, $COORD[1] + 30) ;Clic sur BAS + DROITE pour selectionner OK.
        sleep(1000*60) ; Attente de 60 secondes
    EndIf ;Ferme le "If ..."
WEnd
EndFunc

;==================================================
;                     FONCTION
;                     "ACTION2"
;==================================================
Func action2()
$coord=PixelSearch( 5 , 50 , 645 , 415 ,"0xFF6100")
If @error Then
    $coord=PixelSearch( 5 , 50 , 645 , 415 ,"0x00FF00")
Endif

; Si la couleur à été trouvée.
if not @error Then
MouseMove($coord[0] , $coord[1])
MouseClick('left')
EndIf
Sleep(500)
EndFunc

Code : Tout sélectionner

GLOBAL $action = 1;On commence par l'action 1, Pourquoi Global? Cf Ci-Apres
While 1
If $action = 1 then
 action1()
 detect()
ElseIf $action = 2 then 
 action2()
 detect()
EndIf
WEnd

Code : Tout sélectionner

Func detect($color="0xFFFFFF")

$coord=PixelSearch( 654 , 446 , 735 , 469 ,$color)
        If not @error Then ; Si la couleur est detecté
            If $action = 1 then
                  $action = 2; Si la valeur etait 1 alors on passe a 2
            Else
                  $action = 1 ; Sinon (donc la valeur est 2) on passe à 1
            EndIf
            Return 1
        Else
            $action = $action ;Ca ne sert a rien mais pour expliquer:  On ne va pas changer $action car detect n'a rien detecté   
            Return 0
        EndIf
EndFunc

Code : Tout sélectionner

;~ Couleur
$Color1 = "0x0000FF"
$Color2 = "0xFF0000"
$Color3 = "0xBF00BF"
$Color4 = "0xXXXXXX"
$Color5 = "0xXXXXXX"
$Color6 = "0xXXXXXX"

$coord = PixelSearch(80, 90, 730, 475, $Color1)

    If @error Then
        $coord = PixelSearch(80, 80, 730, 475, $Color2) 
    EndIf
             If @error Then
        $coord = PixelSearch(80, 80, 730, 475, $Color3) 
    EndIf
             If @error Then
        $coord = PixelSearch(80, 80, 730, 475, $Color4) 
    EndIf
 

Code : Tout sélectionner

 If @error Then
        $coord = PixelSearch(80, 80, 730, 475, $Color) 
    EndIf

Code : Tout sélectionner

Global $Res = 0

Do
    Do
        ConsoleWrite(@SEC & "s     ") ; Message console
        _Un() ; On execute action Un
        Sleep(500) ; Pause
    Until @SEC = 30 Or @SEC = 00; On fait action 1 tant que @SEC <> 30 ou @SEC <> 00 (action 2)

    ConsoleWrite(@CRLF & "***** " & "@SEC = " & @SEC & @CRLF) ; Message console
    _Deux() ; On execute action Deux
    Sleep(2000) ; pour afficher le changement et pour que l'exemple ait le temps de passer à une autre boucle.

    Do
        ConsoleWrite(@SEC & "s     ") ; Message console
        _Trois() ; On execute action Trois
        Sleep(500) ; Pause
    Until @SEC = 30 Or @SEC = 00; On fait action 1 tant que @SEC <> 30 ou @SEC <> 00 (action 4)

    ConsoleWrite(@CRLF & "***** " & "@SEC = " & @SEC & @CRLF) ; Message console
    _Quatre() ; On execute action Quatre
    Sleep(2000) ; pour afficher le changement et pour que l'exemple ait le temps de passer à une autre boucle.

    $Res += 1  ; Cette partie n'est là que pour arrèter l'exemple lorsque sur la ligne suivante $Res sera égal à 3
Until $Res = 3


Func _Un()
    ConsoleWrite("Action 1" & @CRLF)
EndFunc   ;==>_Un

Func _Deux()
    ConsoleWrite("Action 2" & @CRLF)
EndFunc   ;==>_Deux

Func _Trois()
    ConsoleWrite("Action 3" & @CRLF)
EndFunc   ;==>_Trois

Func _Quatre()
    ConsoleWrite("Action 4" & @CRLF)
EndFunc   ;==>_Quatre

Func _Cinq()
    ConsoleWrite("Action 5" & @CRLF)
EndFunc   ;==>_Cinq

Code : Tout sélectionner

HotKeySet("{ESC}", "Quitter") ; ceci permettra de quitter le script par l'appui sur la touche ESC.

While 1 ; Début de la boucle infinie
    Do
        _Un() ; On execute la fonction _Un()
        Sleep(500) ; Pause
    Until @SEC = 30 ; Remplacez '@SEC = 30' par la détection de votre action 2

    _Deux() ; On execute la fonction _Deux()
    Sleep(500) ; Pause

    Do
        _Trois() ; On execute la fonction _Trois()
        Sleep(500) ; Pause
    Until @SEC = 30 ; Remplacez '@SEC = 30' par la détection de votre action 4

    _Quatre() ; On execute action Quatre
    Sleep(500) ; Pause

WEnd ; Fin de la boucle infinie


Func _Un()
    ; Placez ici le code de votre fonction 1
EndFunc   ;==>_Un

Func _Deux()
    ; Placez ici le code de votre fonction 2
EndFunc   ;==>_Deux

Func _Trois()
    ; Placez ici le code de votre fonction 3
EndFunc   ;==>_Trois

Func _Quatre()
    ; Placez ici le code de votre fonction 4
EndFunc   ;==>_Quatre

; Fonction qui est appelée par l'appui de la touche ESC
Func Quitter()
    Exit
EndFunc