Autoit-Capturing Screen is easy now

#Region
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;Nimesh Prajapati-Lead
#include <ScreenCapture.au3>
#Include <Date.au3>
$date =  @MDAY & "/" & @MON & "/" & @YEAR & ":" & @HOUR & "." & @MIN & "." & @SEC

$timemin=36; Minute
$timehour=4 ;hours
$timeday=23 ; date
;MsgBox(0,$timetorun,$timetorun)

Call("callofduty")

Func callofduty()
    $counting=1
    While 1
        $counting=$counting+1
        $timetorun=@MIN
    If $timetorun=$timemin AND @MDAY=$timeday Then
        ;MsgBox(0,"True:", " " & $timetorun & "."& $timemin)
       ShellExecute ("http://google.com")
        $date =  @MDAY & "_" & @MON & "_" & @YEAR & "_" & @HOUR & "_" & @MIN & "_" & @SEC
        WinWait("Waiting","10 seconds",10);
    _ScreenCapture_Capture(@MyDocumentsDir & "\Screen_shot" & $date & ".jpeg")
    WinWait("Waiting","5 seconds",5);
    WinClose("canon")

ElseIf $timetorun > $timemin Then
    ;MsgBox(0,"Exitloop", " " & $timetorun & "."& $timemin)
    ExitLoop
ElseIf $timetorun < $timemin Then
    ;MsgBox(0,"Cont Loop", " " & $timetorun & "."& $timemin)
    ContinueLoop
    ;MsgBox(0,$date,$date)
EndIf
    ;ExitLoop
WEnd
    EndFunc