AutoIt Français

Code : Tout sélectionner

#include <Date.au3>
#NoTrayIcon

HotKeySet("{ESC}","Exit_ESC") ; Pour arreter le script en cas de besoin

Global $nbM = 0, $nbC = 0
Local $window = "Fenetre_Prog"

While 1
    If @WDAY > 1 And @WDAY < 7 Then ; Du lundi au vendredi
        If @HOUR > "07" And @MIN > "10" Then ; A partir de 07h10
            
            BlockInput(1) ; Verouillage du clavier et de la souris
            
            If WinExists($window) Then ; Si la fenêtre existe
                WinActivate($window, "") ; Focus su la fenêtre             
                
                If $nbC <> 1 Then ; Logon avant poursuite à éxécuter 1 seule fois
                
                    ; Actions de logon
                        ; Déplacement souris + click
                        ; Identification
                        ; Ouverture de l'onglet
                        
                EndIf
                
                If Not @HOUR < "17" And Not @MIN < "30" Then ; jusqu'à 17h30

                    If $nbM <> 40 Then ; Si $nbm <> 40 (minutes)
                        
                        ; Actions d'actualisation
                            ; Déplacement souris + click
                            ; Comparaison de résultat
                            ; Beep en cas de différence
                        
                        Sleep(120000) ; 2 minutes avant prochaine actualisation
                        $nbM = $nbM + 2
                        
                    Else ; Sinon
                
                        ; Actions de simulation
                            ; Déplacement souris + click
                        
                        Sleep(60000) ; 1 minute pour lui laisser le temps de finir son action
                        $nbM = 0
                            
                    EndIf
                Else
                    $nbC = 0 ; Pour réexecution du lendemain
                EndIf
            Else
                BlockInput(0)
                MsgBox(16,"Erreur","La fenêtre n'existe pas.")
                Exit
            EndIf
        Else
            BlockInput(0)
        EndIf
    Else
        BlockInput(0)
    EndIf
wend

Func Exit_ESC()
    Exit 0
EndFunc

Code : Tout sélectionner

#include <Date.au3>
#Include '_Adlib.au3'
#NoTrayIcon

HotKeySet("{ESC}","Exit_ESC") ; Pour arreter le script en cas de besoin

Global $nbM = 0, $nbC = 0
Local $window = "Fenetre_Prog"
$LogFile = "MonScript.log"

While 1
    If @WDAY > 1 And @WDAY < 7 Then ; Du lundi au vendredi
        If @HOUR & @MIN >= 0710 And @HOUR & @MIN <= 1730 Then ; Test de la plage horaire.

            BlockInput(1) ; Verouillage du clavier et de la souris
            
            If $nbC = 0 and MonProgActif() Then ; Action à exécuter une seule fois si $nbC=0 et MonProgActif()=1
                    ;
                    ; Votre Action Ici
                    ;
                    $nbC = 1
            Else
                FileWriteLine($LogFile, "L'action X n'à pas pu être exécutée le " & _NowDate() & " à " & _NowTime() & @CRLF) ; Fichier LOG
            EndIf

            _AdlibEnable("Action40Mn", 2400000) ; Action d'exécution toute les 40 mn
            _AdlibEnable("Action02Mn", 120000)  ; Action d'exécution toute les 02 mn
            
        Else
            BlockInput(0)
            $nbC = 0 ; Remise à zéro du compteur pour la prochaine exécution
        EndIf
    Else
        BlockInput(0)
        _AdlibDisable() ; Désactivation des deux timer.
    EndIf
Sleep(250) ; Petite pause pour soulager le CPU.
wend

Func Action40Mn() ; Fonction à exécuté toutes les 40Mn
    If MonProgActif() Then
        ;
        ; Code
        ;
    Else
        FileWriteLine($LogFile, "L'action 40mn n'à pas pu être exécutée le "  & _NowDate() & " à " & _NowTime & @CRLF) ; Fichier LOG
    EndIf
EndFunc

Func Action02Mn() ; Fonction à exécuté toutes les 02Mn
    If MonProgActif() Then
        ;
        ; Code
        ;
    Else
        FileWriteLine($LogFile, "L'action 02mn n'à pas pu être exécutée le "  & _NowDate() & " à " & _NowTime & @CRLF) ; Fichier LOG
    EndIf
EndFunc

Func MonProgActif()
    Local $Res = 0
    
    If WinExists($window) Then ; Si la fenêtre existe
        $Res = WinActivate($window, "") ; Focus su la fenêtre
    EndIf
    
Return $Res
EndFunc

Func Exit_ESC()
    Exit 0
EndFunc

Code : Tout sélectionner

#include <Date.au3>
#Include '_Adlib.au3'
#NoTrayIcon

HotKeySet("{ESC}","Exit_ESC") ; Pour arreter le script en cas de besoin

Global $nbM = 0, $nbC = 0, $Timer = 0
Local $window = "Fenetre_Prog"
$LogFile = "MonScript.log"

While 1
    If @WDAY > 1 And @WDAY < 7 Then ; Du lundi au vendredi
        If @HOUR & @MIN >= 0710 And @HOUR & @MIN <= 1730 Then ; Test de la plage horaire.

            BlockInput(1) ; Verouillage du clavier et de la souris

            If $nbC = 0 Then ; Action à exécuter une seule fois si $nbC=0
                If MonProgActif() Then ; Si la fenêtre est bien détectée (MonProgActif()=1)
                    ;
                    ; Votre Action Ici
                    ;
                    $nbC = 1 ; Pour ne pas ré-executer le code.
                Else
                    FileWriteLine($LogFile, "L'action X n'à pas pu être exécutée le " & _NowDate() & " à " & _NowTime() & @CRLF) ; Fichier LOG
                    $nbC = 1 ; Pour éviter de boucler le test (l'action sera relancée lors de la prochaine plage horaire).
                EndIf
            EndIf

            If $Timer = 0 Then ; On regarde si les timers ont été activés.
                _AdlibEnable("Action40Mn", 2400000) ; Action d'exécution toute les 40 mn (2400000 ms)
                _AdlibEnable("Action02Mn", 120000)  ; Action d'exécution toute les 02 mn (120000 ms)
                $Timer = 1 ; Flag pour ne pas réactiver les timers à chaque tour de boucle.
            EndIf
           
        Else
            BlockInput(0)
            _AdlibDisable() ; Désactivation des deux timer.
            $Timer = 0 ; Flag pour signaler que les timers sont désactivés.
            $nbC = 0 ; Remise à zéro du compteur pour la prochaine exécution
        EndIf
    Else
        BlockInput(0)
    EndIf
Sleep(500) ; Petite pause pour soulager le CPU.
wend

Func Action40Mn() ; Fonction à exécuté toutes les 40Mn
    If MonProgActif() Then
        ;
        ; Code
        ;
    Else
        FileWriteLine($LogFile, "L'action 40mn n'à pas pu être exécutée le "  & _NowDate() & " à " & _NowTime() & @CRLF) ; Fichier LOG
    EndIf
EndFunc

Func Action02Mn() ; Fonction à exécuté toutes les 02Mn
    If MonProgActif() Then
        ;
        ; Code
        ;
    Else
        FileWriteLine($LogFile, "L'action 02mn n'à pas pu être exécutée le "  & _NowDate() & " à " & _NowTime() & @CRLF) ; Fichier LOG
    EndIf
EndFunc

Func MonProgActif()
    Local $Res = 0
   
    If WinExists($window) Then ; Si la fenêtre existe
        WinActivate($window, "") ; Focus sur la fenêtre
        $Res = WinActive($window, "") ; Vérifie que la fenêtre du prog à le focus.
    EndIf
Return $Res
EndFunc

Func Exit_ESC()
    Exit 0
EndFunc