如何每隔几分钟执行一次函数?

l4ever · 发表于 2009-6-7 18:36:46

本帖最后由 l4ever 于 2009-6-7 21:23 编辑

注意不能sleep.不然系统托盘右键菜单打不开的.
有其他办法吗?
我想24小时不停循环执行.

lynfr8 · 发表于 2009-6-7 19:21:43

AdlibEnable ( "函数名" [, 时间] )
时间 [可选参数] 指定每隔多少毫秒就调用函数一次.默认值为 250 毫秒.

或者借鉴以下代码：

Global Const $iSeconds = 7200000
Global $iBeginTime = TimerInit()
While 1
        If TimerDiff($iBeginTime) >= $iSeconds Then
                MsgBox(4096, "提示", "您上网时间已超过2小时，请注意休息！")
                $iBeginTime = TimerInit()
        EndIf   
        Sleep(1000)
WEnd

l4ever · 发表于 2009-6-7 21:23:03

非常感谢楼上的朋友

kn007 · 发表于 2009-6-7 21:59:19

学习了，我去试试ing

autothem · 发表于 2009-6-7 22:06:01

不错，有用的函数，学习了

kn007 · 发表于 2009-6-7 22:16:15

AdlibEnable不会用，倒是你的代码不错

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