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

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

Dim $SF,$S,$F
  $s=@HOUR
  $f=@MIN
  $SF=$s&$f
if Number($SF)>0940  Then
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>1  Then
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

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

		自动登录	找回密码
密码			加入

[AU3基础] 每天定时执行一次,错在哪?

相关帖子