论坛 › 『 提问交流 』 › 每天定时执行一次,错在哪?

抛砖引玉 发表于 2011-1-14 22:40:18

每天定时执行一次,错在哪?

Dim $SF,$S,$F
$s=@HOUR
$f=@MIN
$SF=$s&$f
if Number($SF)>0940Then
WinActivate("系统","")
Sleep("1000")
Send ( "{ENTER}" )
EndIf

请指点

3mile 发表于 2011-1-14 22:54:14

#include <Date.au3>

$iDateCalc = _DateDiff( 's',_NowDate()&" 09:40:00",_NowCalc())
if $iDateCalc>1Then
WinActivate("系统","")
Sleep("1000")
Send ( "{ENTER}" )
EndIf

抛砖引玉 发表于 2011-1-16 19:55:59

原源码复制没成功,多谢,我再看看.

都市浪子666 发表于 2011-1-19 11:30:32

本帖最后由 都市浪子666 于 2011-1-19 12:56 编辑



Dim $SF,$S,$F

Do
        Sleep(10)
$s=@HOUR
$f=@MIN
$SF=$s&$f

Until   Number($SF)>0940

WinActivate("系统","")
Sleep(1000)





加一个循环。

masterpcc 发表于 2011-1-19 21:13:16

#include <Date.au3>
Dim $H, $M, $S
Dim $HH = 21
Dim $MM = 07
While 1
        $H = StringRight(@HOUR, 2)
        $M = StringRight(@MIN, 2)
        $S = StringRight(@SEC, 2)
        If $H = $HH And $M = $MM And $S = 12 Then
                MsgBox(0,"","TEST")
        EndIf
        Sleep(1000)
WEnd

mood100 发表于 2011-1-20 11:02:14

这个不错，学习了，感谢分享

查看完整版本: 每天定时执行一次,错在哪?