没0.1秒按d 4秒按e 31秒按w 900秒按q
无限循环
谢了
帮忙弄个按键精灵脚本
答案:2 悬赏:0
解决时间 2021-02-16 16:40
- 提问者网友:虛偽丶靜
- 2021-02-16 09:36
最佳答案
- 二级知识专家网友:魅世女王
- 2021-02-16 09:46
分都不给呀,呵呵,除了我可能很少人帮你做了。
由于你没有要求后台所以我只做了前台。
以下是7.0版本的脚本 是前台脚本。
dim t1 t2 t3
t1=now
t2=now
t3=now
While 1=1
While 1=1
While 1=1
While 1=1
Delay 100
KeyPress 68,1
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem E跳转
KeyPress 69,1
t1=now
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem W跳转
KeyPress 87,1
t2=now
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem Q跳转
KeyPress 81,1
t3=now
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
EndWhile
由于你没有要求后台所以我只做了前台。
以下是7.0版本的脚本 是前台脚本。
dim t1 t2 t3
t1=now
t2=now
t3=now
While 1=1
While 1=1
While 1=1
While 1=1
Delay 100
KeyPress 68,1
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem E跳转
KeyPress 69,1
t1=now
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem W跳转
KeyPress 87,1
t2=now
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t3,now)>=900
Goto Q跳转
EndIf
EndWhile
Rem Q跳转
KeyPress 81,1
t3=now
If DateDiff("s",t1,now)>=4
Goto E跳转
EndIf
If DateDiff("s",t2,now)>=31
Goto W跳转
EndIf
EndWhile
全部回答
- 1楼网友:茫然不知崩溃
- 2021-02-16 10:26
keypress 37,1 delay 10 keypress 39,1 delay 10 把上边的内容复制到脚本编辑器里的“源文件”里。 然后你把脚本属性中的运行中的脚本循环设为“循环到按中止键为止”。 以上脚本,是这个意思: 第一行是左向键敲击一次 第二行是延时10毫秒(约0.01秒,你可以自己设置,太 小了不好吧) 第三行是右向键敲击一次, 第四行是延时10毫秒 根据自己的需要,设置一下应该行了。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯