AutoIt Français

Code : Tout sélectionner

 #Include <date.au3>
 

While 1
If _NowTime() = "12:59:40" Then
$cmd = 1
exitloop
Endif
wend


while 1
    if $cmd = 1 Then
        $begin &= TimerInit()
        
        ; ACTIONS
        
    $cmd = 0
    EndIf
    
    $Dif &= Int(TimerDiff($begin)/1000)
    If $Dif >= 3600 Then 
    $cmd = 1
    Endif
    
wend

Code : Tout sélectionner

#Include <Date.au3>
While 1
    If _NowTime() = "11:11:00" Then
        $cmd = 1
        ExitLoop
    EndIf
WEnd
While 1
    If $cmd = 1 Then
        $begin &= TimerInit()
        ; Actions à réaliser
        
        ; Click 1
        MouseClick("left", 820, 770, 1, 1)
        ; 40 seconds
        Sleep(40000)
        ; Click 2
        MouseClick("left", 920, 770, 1, 1)
        $cmd = 0
    EndIf
    $Dif &= Int(TimerDiff($begin)/1000)
    If $Dif >= 3600 Then
        $cmd = 1
    EndIf
WEnd
 

Code : Tout sélectionner

#include <Date.au3>
; Appuyer sur ESC pour arrêter le Script
HotKeySet("{ESC}", "Fin")
; Heures de lancement du Script
Dim $aHGo[3] = ['11:08:00', '13:59:40', '14:59:40']
; Plage horraire de mise en veille du Script
Dim $aHPause[2] = ['0:01:59', '06:58:00']
While 1
    $NowTicks = _GetTimeTicks(_NowTime(5))
    If $NowTicks > _GetTimeTicks($aHPause[0]) And $NowTicks < _GetTimeTicks($aHPause[1]) Then
        Sleep(50)
    Else
        If _TestArrayTime($aHGo) Then MsgBox(0,"","Action")
            ; Actions à réaliser
            
            ; Click 1
            MouseClick("left", 820, 770, 1, 1)
            ; 40 seconds
            Sleep(40000)
            ; Click 2
            MouseClick("left", 920, 770, 1, 1)
    EndIf
WEnd
Func _GetTimeTicks($Time)
    Local $Var
    $Var = StringSplit($Time, ':')
    Return _TimeToTicks($Var[1],$Var[2],$Var[3])/1000
EndFunc
Func _TestArrayTime($aTime)
    For $i = 1 to Ubound($aTime)-1
        If _NowTime(5) = $aTime[$i] Then Return 1
    Next
EndFunc
Func Fin()
    Exit
EndFunc