按键精灵双循环遍历屏幕要20秒?
发布网友
发布时间：2022-04-22 00:40
共3个回答
热心网友
时间：2023-06-24 03:29
这个代码是弹出对话框的,需要手动点确认
call 弹出对话框("等待",20000,"等待确认",0)Function 弹出对话框(提示内容,等待时间,提示标题,显示样式)
Dim obj
Set obj = CreateObject("WScript.Shell")
弹出对话框=Cint(obj.Popup(提示内容,等待时间,提示标题,显示样式))
Set obj = Nothing
End Function
这是按任意键自动结束的
an1 = GetLastKey
Do
Delay 400
an2 = GetLastKey
Loop Until timer - ts > 20 or an2 <> an1
TracePrint "脚本运行"
上面2个代码自己选一个
热心网友
时间：2023-06-24 03:29
按顺序写.脚本就是按顺序执行.除非你的是多线程.多线程可以设定一个环境变量，等这个变量满足条件了再执行
热心网友
时间：2023-06-24 03:30
延时20000ms
