注册多个AdlibRegister函数执行问题

yuko4632

注册多个AdlibRegister，发现A不能执行下去。B能正常执行。
这种情况该怎么解决？

#include <Date.au3>
AdlibRegister("_A",100)
AdlibRegister("_B",300)

While 1        
WEnd

Func _A()
    ConsoleWrite("输出A" &@LF)
    MsgBox(48, "A！", "A错误。", 15)
EndFunc 

Func _B()
$sNewDate2 = _DateAdd('s', 5, _NowCalc()) ;定义运行周期
    While 1
        Sleep(1000)
         $nowdate = _NowCalc() ;获取当前时间
         If $nowdate = $sNewDate2 Then
               ConsoleWrite("输出B" &@LF)
                       MsgBox(48, "B！", "B错误。", 15)
        $sNewDate2 = _DateAdd('s', 5, _NowCalc()) ;重新定义运行周期，以进行下次任务
        EndIf
     WEnd
EndFunc 

user3000

回复 1# yuko4632

msgbox inputbox 等阻断型函数会让整个程序停滞下来;
所以注册函数时,不应该在其内包含这类函数.

B函数又有个无限循环,程序已经"死"在这里头了;自然无法执行其他语句.

主循环,建议不使用空循环,应该至少插入适当的延迟:sleep(...)
这样才会降低程序对CPU的占用.

yuko4632

_B如果不用循环函数就不能达到效果。
纠结，除非用多线程吗？

www378660084

回复 3# yuko4632

你是隔300ms调用一次,难道你想隔300ms创建一个while循环?

user3000

回复 3# yuko4632
AdlibRegister 注册的函数本来就可以实现"无限循环"的效果.
你代码稍稍修改一下:

Global $sNewDate2 = _DateAdd('s', 5, _NowCalc()) ;定义运行周期
AdlibRegister("_B",1000)
;......
Func _B()
$nowdate = _NowCalc()
If $nowdate = $sNewDate2 Then
   ConsoleWrite("输出B" &@LF)
        ; MsgBox(48, "B！", "B错误。", 15)
   $sNewDate2 = _DateAdd('s', 5, _NowCalc()) ;重新定义运行周期，以进行下次任务
EndIf
EndFunc

wangms

前来学习。。。。。。。。。。。。。。。。。。。。。。。。

tvzml

AdlibRegister 间隔时间建议 不小于300 ，100的话，肯定是不会执行其他调用了，整个程序会被 100调用的优先占用 ，其他压根就不执行了，这就是优化程序的敲门了，程序的优先处理 ，以及尽量不使用 sleep 和 MsgBox 等导致 暂停的 语句为好。
楼主犯了多个大忌 ，调用里面使用 While 1  这个内循环 无意义，完全可以 前面的 While 1 来担当 ，调用里面 的sleep 直接暂停了整个程序，AdlibRegister 100 和 AdlibRegister 300 就失去 定时器的意义了

sdc7

哎·····注意 AdlibRegister 不是多线程·
程序还事只有一个人在执行，AdlibRegister 的功能只是定时的问下这个人 这会帮我擦屁屁可以不？ 这个人没被累死没忙就帮你擦了····仅此而已··

f4李文杨

AdlibRegister 不能有提示函数之类的！不过你可以当 AdlibRegister 这个做循环用！与注销一起用！效果就不一样了！