网上有关“按键精灵怎么让它隔段时间按回车”话题很是火热,小编也是针对按键精灵怎么让它隔段时间按回车寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助到您。
此为后台按键脚本
Plugin hwnd = Window.GetKeyFocusWnd()
UserVar ys=5 按键间隔(秒) //可手动设置
delay 2000
rem start
Plugin Bkgnd.KeyPress(hwnd,13)
delay ys*1000
goto start
第一句,获得具有输入焦点的窗口句柄
第二句,设置时间间隔
第三句,延时2秒,执行下面的循环
下面,按键循环,后台向窗口发送Enter键
使用时先将游戏窗口置于前台,使之处于激活状态
启动脚本即可
按键精灵如何设置每隔5.6秒按一次Q,每隔3.2秒按一次W?
打开或者新建一个脚本,点击左侧的其他命令。
就可以看到设置时间的地方,就是延时。
点击第一个下拉菜单,就可以选择时间的单位,有秒和毫秒两种。
后面的时间,可以输入间隔的数值。
然后点击后面的插入。
就可以看到命令已经被插入了,注意:在脚本中,所有的时间单位都是毫秒,即使你插入的时候单位选择的是秒,按键精灵也会转为毫秒。
还有一种更加简便的方法,点击源文件。
可以看到刚才的语句被转化为了Delay 100000,并且可以用键盘输入语句了。
所以,直接输入Delay+时间就可以设置时间间隔了,注意时间单位是毫秒。
基本思路是使用多线程定时按键,使用代码循环启停多线程。
本来想用结构来定义每一个定时器的参数优化代码量,但是发现按键精灵实现结构很不方便。
Dim TH1//线程1句柄
Dim TH2//线程2句柄
Dim TH3//线程3句柄
Dim TH4//线程4句柄
Dimenv TKey1//线程1按键
Dimenv TKey2//线程2按键
Dimenv TKey3//线程3按键
Dimenv TKey4//线程4按键
DimEnv GAP1//线程1间隔时间
Dimenv GAP2//线程2间隔时间
DimEnv GAP3//线程3间隔时间
DimEnv GAP4//线程4间隔时间
Dimenv T1//时间记录1
Dimenv T2//时间记录2
Dimenv T3//时间记录3
Dimenv T4//时间记录4
Dimenv isRun//运行标志
TKey1 = "Q"//初始化按键1
TKey2 = "W"//初始化按键2
TKey3 = "E"//初始化按键3
TKey4 = "R"//初始化按键4
GAP1=5.6 //设置间隔1
GAP2=3.2 //设置间隔2
GAP3 =4.1 //设置间隔3
GAP4=2.6 //设置间隔4
//启动定时器线程
TH1 = BeginThread(TimingClick1)
TH2 = BeginThread(TimingClick2)
TH3 = BeginThread(TimingClick3)
TH4 = BeginThread(TimingClick4)
isRun = 1//启动循环
While isRun
IF GetLastKey=27 Then isRun = 0//按ESC结束
Delay 10
Wend
StopThread TH1
StopThread TH2
StopThread TH3
StopThread TH4
EndScript
//================================
//#修改参数序号
Sub TimingClick1()//#
Dim SP
Dim T
T1=now//#
While isRun
T=now
SP =(T-T1)*100000//#
If (SP) >= GAP1 Then //#
KeyPress TKey1, 1//#
TracePrint "定时按键#1时间:" & T
T1=T//#
End If
Delay GAP1 * 10//#
Wend
End Sub
Sub TimingClick2()//#
Dim SP
Dim T
T2=now//#
While isRun
T=now
SP =(T-T2)*100000//#
If (SP) >= GAP2 Then //#
KeyPress TKey2, 1//#
TracePrint "定时按键#2时间:" & T
T2=T//#
End If
Delay GAP2 * 10//#
Wend
End Sub
Sub TimingClick3()//#
Dim SP
Dim T
T3=now//#
While isRun
T=now
SP =(T-T3)*100000//#
If (SP) >= GAP3 Then //#
KeyPress TKey3, 1//#
TracePrint "定时按键#3时间:" & T
T3=T//#
End If
Delay GAP3 * 10//#
Wend
End Sub
Sub TimingClick4()//#
Dim SP
Dim T
T4=now//#
While isRun
T=now
SP =(T-T4)*100000//#
If (SP) >= GAP4 Then //#
KeyPress TKey4, 1//#
TracePrint "定时按键#4时间:" & T
T4=T//#
End If
Delay GAP4*10//#
Wend
End Sub
关于“按键精灵怎么让它隔段时间按回车”这个话题的介绍,今天小编就给大家分享完了,如果对你有所帮助请保持对本站的关注!
本文来自作者[灵安]投稿,不代表亿简号立场,如若转载,请注明出处:https://www.xjgoibb.cn/yz/757.html
评论列表(4条)
我是亿简号的签约作者“灵安”!
希望本篇文章《按键精灵怎么让它隔段时间按回车》能对你有所帮助!
本站[亿简号]内容主要涵盖:生活百科,小常识,生活小窍门,知识分享
本文概览:网上有关“按键精灵怎么让它隔段时间按回车”话题很是火热,小编也是针对按键精灵怎么让它隔段时间按回车寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够...