1. 按键精灵限时等待按键怎么写
可以用多线程或者用检测上次按键并且判断时间来达成
多线程版:
Dimenvk2
t1=time
a1=BeginThread(a)
Do
Delay100
Ifk2=49Then
MessageBox"按键正确"
ExitDo
ElseIfDateDiff("s",t1,time)>=5Then
StopThreada1
MessageBox"按键错误"
ExitDo
EndIf
Loop
Suba
k2=0
k2=WaitKey()
Ifk2=49Then
Else
EndIf
EndSub
检测上次按键版:
KeyPress"Space",1
t1=time
Do
k2=GetLastKey()
Ifk2=49Then
MessageBox"按键正确"
ExitDo
ElseIfDateDiff("s",t1,time)>=5Then
MessageBox"按键错误"
ExitDo
EndIf
Loop
2. 按键精灵Key=WaitKey()中括号有什么用
rem sk = WaitKey () //等待按任意键If k = 84 Then //这里是等待T键,但如果在按其他键时按T后面的代码不起作用,我需要无论按着什么键,只要按了T,代码就走的。
默认的命令是【左键单击】,点击【下拉框】还可以看到其他的鼠标命令,例如【右键单击】、【左键双击】等等。我们就使用【左键点击】就可以了,循环按键次数我们先设置为“1次”,最后点击【插入】。
按键精灵提供了非常简单的插入脚本方式,使用普通命令面板就可以完成整个插入脚本的过程。我们要制作的是鼠标连点器,所以要找的就是鼠标的命令。
点击在编辑器左边的【脚本】,然后点击【基本命令】,最后点击【鼠标命令】。这时鼠标的命令就展开了。我们可以看到界面上有鼠标动作的命令。
3. 按键精灵如何在执行完找图1后等待10分钟再找执行图2
写个比较适合新手的代码吧,希望你看得懂
dengdai=now//记录当前时间起点/单位:秒
Rem q
Delay 1000
If DateDiff("s",dengdai,now)>=600// 600秒就是10分钟,因为延时问题,结果可能是601秒,所以加入大于等于号>=
FindPic 0,0,1024,768,"Attachment:\神盾.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Else
Goto q//不够600秒以上,跳到Q继续等待
End If
4. 按键精灵安卓版等待命令怎么弄给个例子,我是小白
这个你要用到 时间函数,
5. 按键精灵如何设置 等待鼠标左键点击一下,然后继续执行下一条命令
Do
last_click = WaitClick()
Loop Until last_click=32769
下一条命令
6. 怎么让按键精灵得到下一个图像时再进行下去 否则就等待直到图像出来
给个建议 找图不如多点抓色 你要找这张图 不如把这样图取多个颜色点来抓 这样准确很多 几乎100%
按键精灵---全部命令 ---插件命令---颜色插件---FindMultiColorEx(这个里面右下角吧图片放进去 然后抓点 随便点个十来下就行了 然后点插入) 我下面给你写了一些解释
do Until x > 0 ((抓色 如果没有抓到 就反复等待1秒))
XY(这个就是等会你插入抓色代码的地方,括号里的我写的是解释 你不用写上去 看看就行)
Delay 1000 ((等待一秒,这个是给上面抓不到循环用的))
Loop ((如果抓色抓到的话,循环结束 继续执行下面的代码))
MoveToS x, y ((鼠标移动到抓色的地方))
Delay 500 ((等待0.5秒 也就是500毫秒))
LeftClickS 1 ((鼠标点击一下左键))
Delay 500 ((等待0.5秒))
SayString 我是齐天大圣 ((在文本框里面输入 我是齐天大圣 也可以输入英文随便写 ))
Delay 1000 ((等待1秒))
这个不是找图 是抓色 希望对你的按键精灵 有所帮助 你以后一定会用到的
7. 按键精灵 等待输入命令详解(本人新手请尽量讲细致点)
最简单就是用WaitKey函数
Do
Key=WaitKey
If Key=13
Exit Do
EndIf
Loop
这样,按一下回车,就执行Loop下面的代码。
8. 按键精灵中如何实现执行了一行命令后等待20秒或者在这20秒内按任意键跳过等待,执行下一行命令
这个代码是弹出对话框的,需要手动点确认
call弹出对话框("等待",20000,"等待确认",0)
Function弹出对话框(提示内容,等待时间,提示标题,显示样式)
Dimobj
Setobj=CreateObject("WScript.Shell")
弹出对话框=Cint(obj.Popup(提示内容,等待时间,提示标题,显示样式))
Setobj=Nothing
EndFunction
这是按任意键自动结束的
ts=Timer
an1=GetLastKey
Do
Delay400
an2=GetLastKey
LoopUntiltimer-ts>20oran2<>an1
TracePrint"脚本运行"
上面2个代码自己选一个
9. 按键精灵如何设置如果等待20秒不执行下一命令就重启脚本
Dimms,msx,msy,dt
dt=100
RemStart
ms=0
KeyPress"1",1
Formsx=800To600Step-20
Formsy=600To300Step-1
MoveTomsx,msy
ms=GetCursorShape(0)
Ifms=1053591638ThenGotowait
Next
Next
Remwait
ms=0
DoUntilms=965986689
ms=GetCursorShape(0)
Delaydt
MoveR0,1
Loop
t1=time
DoUntilms=1053591638
ms=GetCursorShape(0)
MoveR2,0
MoveR-2,0
此处需要加一个命令如果等待20秒不执行下一命令就重启脚本
IfDateDiff("s",t1,time)>=20Then
GotoStart
EndIf
Loop
RightClick1
Delaydt*10
GotoStart
10. 按键精灵如何设置 等待鼠标左键双击一下,然后继续执行下一条命令
Do
If WaitClick = 32769 Then
TracePrint "按下"
If WaitClick = 32770 Then
TracePrint "弹起"
If WaitClick = 32770 Then
TracePrint "双击"
MessageBox "双击"
End If
End If
End If
Delay 5
Loop
这样好像更灵活一点
Do
If WaitClick = 32770 Then
If WaitClick = 32770 Then
MessageBox "双击"
End If
End If
Delay 5
Loop