#include <date.au3>
;===============================================================================
;
; Description: Sets a wakeup time to wake it up if the system / computer is hibernating or standby
; Parameter(s): $Hour - Hour Values : 0-23
; $Minute - Minutes Values: 0-59
; $Day - Days Values : 1-31 (optional)
; $Month - Month Values : 1-12 (optional)
; $Year - Year Values : > 0 (optional)
;
; Requirement(s): DllCall
; Return Value(s): On Success - 1
; On Failure - 0 sets @ERROR = 1 and @EXTENDED (Windows API error code)
;
; Error code(s): http://msdn.microsoft.com/library/default....error_codes.asp
;
; Author(s): Bastel123 aka Sebastian
; Note(s): -
;
;===============================================================================
func SetWakeUpTime($Hour,$Minute,$Day=@mday,$Month=@mon,$Year=@YEAR)
$SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort")
$lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME)
$LOCALFILETIME=DllStructCreate("dword;dword")
$lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME)
$DueTime=DllStructCreate("dword;dword")
$lpDueTime=DllStructGetPtr($DueTime)
DllStructSetData($SYSTEMTIME, 1, $Year)
DllStructSetData($SYSTEMTIME, 2, $Month)
DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year,$Month,$Day)-1)
DllStructSetData($SYSTEMTIME, 4, $Day)
DllStructSetData($SYSTEMTIME, 5, $Hour)
DllStructSetData($SYSTEMTIME, 6, $Minute)
DllStructSetData($SYSTEMTIME, 7, 0)
DllStructSetData($SYSTEMTIME, 8, 0)
$result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSystemTime, "ptr", $lpLocalFileTime)
If $result[0] = 0 Then
Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
SetExtended($lastError[0])
SetError(1)
Return 0
EndIf
$result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLocalFileTime, "ptr", $lpLocalFileTime)
If $result[0] = 0 Then
Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
SetExtended($lastError[0])
SetError(1)
Return 0
EndIf
$result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "")
If $result[0] = 0 Then
Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
SetExtended($lastError[0])
SetError(1)
Return 0
EndIf
DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long",$result[0])
DllStructSetData($DueTime, 1, DllStructGetData($LocalFILETIME, 1))
DllStructSetData($DueTime, 2, DllStructGetData($LocalFILETIME, 2))
$result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long",$result[0], "ptr", $lpDueTime, "long", 1000, "long", 0, "long", 0, "long", true)
If $result[0] = 0 Then
Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
SetExtended($lastError[0])
SetError(1)
Return 0
EndIf
return 1
EndFunc
;===============================================================================
;
; Description: Set the computer in Hibernate or Standby Status
; Parameter(s): $Mode - Suspend mode : True=Hibernate, False=Suspend
; $Force - Force-Mode : True=the system suspends operation immediately
; False=FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to each application to request permission to suspend operation
;
; Requirement(s): DllCall
;
; Author(s): Bastel123 aka Sebastian
; Note(s): If the system does not support hibernate use the standby mode -
;
;===============================================================================
Func SetSuspend($mode=False,$force=true)
$result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long",$mode, "long",$force, "long", false)
EndFunc
Func _Monitor_ON()
Local $Progman_hwnd = WinGetHandle('[CLASS:Progman]')
Local $lciWM_SYSCommand = 274
Local $lciSC_MonitorPower = 61808
Local $lciPower_On = -1
DllCall('user32.dll', 'int', 'SendMessage', _
'hwnd', $Progman_hwnd, _
'int', $lciWM_SYSCommand, _
'int', $lciSC_MonitorPower, _
'int', $lciPower_On);kn007
EndFunc
Func Go_to_Sleep()
SetWakeUpTime(@HOUR,@min+1); wakeup the system in 1 minutes from now
SetSuspend(); go to hibernate mode#cs ----------------------------------------------------------------------------
_Monitor_ON()
;~ MouseMove(705,378,30)
;~ MouseClick("left")
EndFunc
Func My_capture()
_ScreenCapture_Capture( @DesktopDir & "\Testing Pic" & $x &".jpg")
EndFunc
Func _sleep()
Dim $i=1
While $i<=1000
WinWaitActive($AppName)
WinActivate ($AppName)
Select_160x120tentimes();
DirCreate(@DesktopDir & "\Testing Pic")
My_capture()
_TestLog_Event("pic for 160x120", "", @DesktopDir & "\Testing Pic" & $x &".jpg")
$x+=1
Go_to_Sleep()
My_capture()
_TestLog_Event("resume from sleep", "", @DesktopDir & "\Testing Pic" & $x &".jpg")
$x+=1
Select_160to1280();
My_capture()
_TestLog_Event("resume from HD", "", @DesktopDir & "\Testing Pic" & $x &".jpg")
$x+=1
MsgBox(1,"Times","Have finished "& $i &"times",5)
$i=$i+1
WEnd
EndFunc
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2010-6-26 15:42:38
.gif)
.GIF)