高分求个比较简单的按键精灵脚本
发布网友
发布时间:2022-06-02 06:42
我来回答
共2个回答
热心网友
时间:2023-10-07 00:34
呵呵,很荣幸能为您解答:根据偶对您描述的理解,作出如下2个脚本,几个小提示:按键1间隔可以自定义时间,默认为100毫秒即0.1秒一次;循环次数(15)也可自定义设置.脚本3分钟时间精确度控制在150毫秒之内.第一个为前台脚本.在游戏窗口按热键启动即可.第二个为后台运行框架.运行时因为要得到窗口句柄,所以要将鼠标放在在目标程序窗口上按热键启动.(得到鼠标指向的窗口的句柄,话说一般程序都有好几个子窗口的)
如果是游戏不保证后台绝对有效,很多游戏都拒绝接受后台指令.因为游戏开发人员不怎么喜欢被冷落,曰:凭什么丫的我在后台还得干活?
如果后台无效可问题补充,偶试着给您换几个插件及命令试试.在记事本上后台通过.(按键精灵7.1版).其他问题请问题补充. //前台脚本---------------------------------------------------UserVar ys=100 按键1之间的延时
UserVar cs=15 231键循环次数
tt=time
Rem 程序开始
For cs t1=time
KeyPress 50,1
Delay 1000
KeyPress 51,1
Delay 1000
Rem start
KeyPress 49,1
Delay ys
If DateDiff("s",t1,time)=>180000
Goto over
EndIf
Goto start
Rem over
EndFor
KeyPress 87,1
Delay 1000
KeyPress 38,1
Delay 1000
KeyPress 13,1
Delay 10000
Goto 程序开始
Sub OnScriptExit
MsgBox "脚本已停止,共计运行了"&DateDiff("s",tt,time)&"秒"&vbcr&"适度游戏益脑,沉迷游戏伤身。"&vbcr&"合理安排时间,享受健康生活。",16+0+4096,"友情提醒"
Return //后台脚本---------------------------------------------------UserVar ys=100 按键1之间的延时
UserVar cs=15 231键循环次数
Plugin ck=Window.MousePoint()
tt=time
Rem 程序开始
For cs
t1=time
Plugin Window.SendKeyPress(ck,50)
Delay 1000
Plugin Window.SendKeyPress(ck,51)
Delay 1000
Rem start
Plugin Window.SendKeyPress(ck,49)
Delay ys
If DateDiff("s",t1,time)=>180000
Goto over
EndIf
Goto start
Rem over
EndFor
Plugin Window.SendKeyPress(ck,87)
Delay 1000
Plugin Window.SendKeyPress(ck,38)
Delay 1000
Plugin Window.SendKeyPress(ck,13)
Delay 10000
Goto 程序开始
Sub OnScriptExit
MsgBox "脚本已停止,共计运行了"&DateDiff("s",tt,time)&"秒"&vbcr&"适度游戏益脑,沉迷游戏伤身。"&vbcr&"合理安排时间,享受健康生活。",16+0+4096,"友情提醒"
Return
热心网友
时间:2023-10-07 00:34
呵呵,很荣幸能为您解答:根据偶对您描述的理解,作出如下2个脚本,几个小提示:按键1间隔可以自定义时间,默认为100毫秒即0.1秒一次;循环次数(15)也可自定义设置.脚本3分钟时间精确度控制在150毫秒之内.第一个为前台脚本.在游戏窗口按热键启动即可.第二个为后台运行框架.运行时因为要得到窗口句柄,所以要将鼠标放在在目标程序窗口上按热键启动.(得到鼠标指向的窗口的句柄,话说一般程序都有好几个子窗口的)
如果是游戏不保证后台绝对有效,很多游戏都拒绝接受后台指令.因为游戏开发人员不怎么喜欢被冷落,曰:凭什么丫的我在后台还得干活?
如果后台无效可问题补充,偶试着给您换几个插件及命令试试.在记事本上后台通过.(按键精灵7.1版).其他问题请问题补充. //前台脚本---------------------------------------------------UserVar ys=100 按键1之间的延时
UserVar cs=15 231键循环次数
tt=time
Rem 程序开始
For cs t1=time
KeyPress 50,1
Delay 1000
KeyPress 51,1
Delay 1000
Rem start
KeyPress 49,1
Delay ys
If DateDiff("s",t1,time)=>180000
Goto over
EndIf
Goto start
Rem over
EndFor
KeyPress 87,1
Delay 1000
KeyPress 38,1
Delay 1000
KeyPress 13,1
Delay 10000
Goto 程序开始
Sub OnScriptExit
MsgBox "脚本已停止,共计运行了"&DateDiff("s",tt,time)&"秒"&vbcr&"适度游戏益脑,沉迷游戏伤身。"&vbcr&"合理安排时间,享受健康生活。",16+0+4096,"友情提醒"
Return //后台脚本---------------------------------------------------UserVar ys=100 按键1之间的延时
UserVar cs=15 231键循环次数
Plugin ck=Window.MousePoint()
tt=time
Rem 程序开始
For cs
t1=time
Plugin Window.SendKeyPress(ck,50)
Delay 1000
Plugin Window.SendKeyPress(ck,51)
Delay 1000
Rem start
Plugin Window.SendKeyPress(ck,49)
Delay ys
If DateDiff("s",t1,time)=>180000
Goto over
EndIf
Goto start
Rem over
EndFor
Plugin Window.SendKeyPress(ck,87)
Delay 1000
Plugin Window.SendKeyPress(ck,38)
Delay 1000
Plugin Window.SendKeyPress(ck,13)
Delay 10000
Goto 程序开始
Sub OnScriptExit
MsgBox "脚本已停止,共计运行了"&DateDiff("s",tt,time)&"秒"&vbcr&"适度游戏益脑,沉迷游戏伤身。"&vbcr&"合理安排时间,享受健康生活。",16+0+4096,"友情提醒"
Return
热心网友
时间:2023-10-07 00:34
你自己录不就行了keypress'1'keyup '1'delay 1000keypress'3'keyup '3'delay 1000keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'
热心网友
时间:2023-10-07 00:34
你自己录不就行了keypress'1'keyup '1'delay 1000keypress'3'keyup '3'delay 1000keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'keypress'1'keyup '1'