Question

谁能帮我做一个按键精灵脚本。后台运行一直按enter键，锁定一个窗口,时在0.4秒按一下

谁能帮我做一个按键精灵的脚本，后台运行的。锁定一个窗口后每隔0.4秒按一下enter

Answer 1

Dim hwnd
Hwnd = Plugin.Window.MousePoint()
Rem 循环
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 400
Goto 循环

追问

你这没有Enter键啊 ,还有,怎么可以设置按多少次 ,比如我想要按2000下就自己停

追答

晕死，Call Plugin.Bkgnd.KeyPress(Hwnd, 13) 这句话就是按Enter健，是后台的
如果要设置按健次数，只要把Rem 循环 换成 For 就可以了，具体更改脚本如下：
Dim hwnd
Hwnd = Plugin.Window.MousePoint()
For 2000 '按2000次，可以换成你想要的次数
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 400
Next

追问

谢谢你啊，可以了，怎么联系你，我想跟你学简单的制作脚本~~~13是键 字码a是什么？

追答

键盘上 每个按键都对应一个按键码，Enter的按键码是13， 下面给的字母a 是一个变量

Answer 2

Rem 开始
Dim hwnd
Hwnd = Plugin.Window.MousePoint()
a = Waitkey()//需按一次ENTER键,ENTER键的按键码是13
If a = 13 Then

For 2000//更改这个值可设置按多少次
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Next

Goto 循环
End If
Goto 开始

追问

有错误啊

追答

Rem 开始
Dim hwnd
Hwnd = Plugin.Window.MousePoint()
a = Waitkey()//需按一次ENTER键,ENTER键的按键码是13
If a = 13 Then

For 2000//更改这个值可设置按多少次
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 400
Next
End If
Goto 开始
不好意思啊

Answer 3

我发给你，你的联系方式

追问

327842921@qq.com我的邮箱