求个按键精灵后台 脚本

来源：百度知道 编辑：UC知道 时间：2024/06/16 12:11:02
KeyDown 112,1
Delay 140
KeyUp 112,1
Delay 47
For 8
KeyDown 113,1
Delay 125
KeyUp 113,1
Delay 123
KeyDown 114,1
Delay 47
KeyUp 114,1
Delay 47
EndFor
KeyDown 117,1
Delay 47
KeyUp 117,1
Delay 47
请高手帮忙做个后台脚本 本人对软件不熟悉 希望直接复制能用的 谢谢

根据你的脚本我已经翻译成后台了.具体如果不好用,上线请M我.
通过交流我会帮你把脚本完善.
以下脚本直接复制可用:

Plugin Hwnd = Window.Foreground()
Dim t1 t2
UserVar daguaishijian 打怪时间设置
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：113)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
t2=now
While 1=1
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 500
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
If DateDiff("s",t1,now)>=daguaishijian
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
Delay 500
ElseIf DateDiff("s",t2,now)>=120
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：117)按键
Plugin Bkgnd.KeyPress(Hwnd, 117)
t2=now
EndIf
EndWhile

下面这个是辅助脚本,
以下脚本直接复制可用:

UserVar f6f8=0 F6F8时间间隔
UserVar f9=0 F9时间间隔
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window