大漠模块3.0提取类 附：免注册6.0插件

.版本 2

.子程序 系统_延时_Ex, , 公开, 不占cpu，不卡窗口，不影响其它代码执行
.参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒  留空为无限等待
.参数 延时单位, 整数型, 可空, 默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时
.局部变量 时间句柄, 整数型
.局部变量 时间, 程序延时

.判断开始 (是否为空 (延时间隔))
    延时单位 ＝ 5000 × 60 × 60
.判断 (是否为空 (延时单位))
    延时单位 ＝ 1
.判断 (延时单位 ＝ 1)
    延时单位 ＝ 1000
.判断 (延时单位 ＝ 2)
    延时单位 ＝ 1000 × 60
.判断 (延时单位 ＝ 3)
    延时单位 ＝ 1000 × 60 × 60
.默认

.判断结束
时间.成员_时间 ＝ -10 × 延时间隔 × 1000 × 延时单位
时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (时间句柄, 时间, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, 时间句柄, 假, -1, 255) ≠ 0)
    处理事件 ()
.判断循环尾 ()
_关闭对象 (时间句柄)

@辉太狼│