Показать полную графическую версию : [решено] Нажатие Enter в точно заданное время в милесекундах
Defender2
06-07-2010, 07:21
Помогите со скриптом по автоматизации действий.
После запуска скрипта, необходимо, чтобы в определенное время, например в 20.00.00.100 (именно с милисекундами) скрипт нажимал Enter.
Буду очень лагодарен за помощь. В пррграммировании несилен :(
Global (http://www.autoitscript.com/autoit3/docs/keywords.htm#Global) $a_EventsOnTime[1][1]
HotKeySet (http://www.autoitscript.com/autoit3/docs/functions/HotKeySet.htm)("^+e", "_Quit")
_SetEventOnTime("20.00.00.100", "_OnEvening")
While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) 1
Sleep (http://www.autoitscript.com/autoit3/docs/functions/Sleep.htm)(10)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)
Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _SetEventOnTime($sEventTime, $sEventFunc, $sParams = "")
$a_EventsOnTime[0][0] += 1
ReDim (http://www.autoitscript.com/autoit3/docs/keywords.htm#ReDim) $a_EventsOnTime[$a_EventsOnTime[0][0] + 1][3]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $a_EventsOnTime[0][0] <= 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
AdlibRegister (http://www.autoitscript.com/autoit3/docs/functions/AdlibRegister.htm)("__SetEventOnTime_Handler", 1)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
$a_EventsOnTime[$a_EventsOnTime[0][0]][0] = $sEventTime
$a_EventsOnTime[$a_EventsOnTime[0][0]][1] = $sEventFunc
$a_EventsOnTime[$a_EventsOnTime[0][0]][2] = $sParams
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)
Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) __SetEventOnTime_Handler()
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $sNowTime = @HOUR (http://www.autoitscript.com/autoit3/docs/macros.htm#@hour) & "." & @MIN (http://www.autoitscript.com/autoit3/docs/macros.htm#@min) & "." & @SEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@sec) & "." & @MSEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@msec)
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $sFutureTime = @HOUR (http://www.autoitscript.com/autoit3/docs/macros.htm#@hour) & "." & @MIN (http://www.autoitscript.com/autoit3/docs/macros.htm#@min) & "." & @SEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@sec) & "." & @MSEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@msec) + 100
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $sPastTime = @HOUR (http://www.autoitscript.com/autoit3/docs/macros.htm#@hour) & "." & @MIN (http://www.autoitscript.com/autoit3/docs/macros.htm#@min) & "." & @SEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@sec) & "." & @MSEC (http://www.autoitscript.com/autoit3/docs/macros.htm#@msec) - 100
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $a_EventsOnTime[0][0]
$sETime = $a_EventsOnTime[$i][0]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $sETime = $sNowTime Or (http://www.autoitscript.com/autoit3/docs/keywords.htm#Or) (($sETime < $sNowTime And (http://www.autoitscript.com/autoit3/docs/keywords.htm#And) $sETime >= $sPastTime) Or (http://www.autoitscript.com/autoit3/docs/keywords.htm#Or) ($sETime > $sNowTime And (http://www.autoitscript.com/autoit3/docs/keywords.htm#And) $sETime <= $sFutureTime)) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Call (http://www.autoitscript.com/autoit3/docs/functions/Call.htm)($a_EventsOnTime[$i][1], $a_EventsOnTime[$i][2])
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Call (http://www.autoitscript.com/autoit3/docs/functions/Call.htm)($a_EventsOnTime[$i][1])
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
ExitLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ExitLoop)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)
Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _OnEvening()
MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(64, "Good Evning!", "Hi, it's dinner time!")
Send (http://www.autoitscript.com/autoit3/docs/functions/Send.htm)("{ENTER}")
_Quit()
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)
Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Quit()
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)
Defender2
07-07-2010, 07:43
Спасибо!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.