求一个按键精灵9的脚本
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了求一个按键精灵9的脚本相关的知识,希望对你有一定的参考价值。
要求:最好能是在30-50秒的随机时间内按一次“1”键,循环100次
如果不行的话设置成40秒的固定时间也行
同时在150-270秒的随机时间内按一次“2”循环17次
如果不行的话就设置成240秒的固定时间
请发邮箱17092469@qq.com 不胜感谢
kssj1 = now
kssj2 = now
Randomize
sj1 = rnd * 20 + 30
Randomize
sj2 = rnd * 120 +150
//算法是最小时间+随机数*时间差。
aj1js = 0
aj2js = 0
Rem 开始
If DateDiff("s",kssj1,Now)>sj1 and aj1js<100
//调试用SayString " sj1="&sj1
KeyPress "1", 1
kssj1=now
aj1js=aj1js+1
Randomize
sj1 = rnd * 2 + 3
End If
If DateDiff("s",kssj2,Now)>sj2 and aj2js<17
//调试用SayString " sj2="&sj2
KeyPress "2", 1
kssj2=now
aj2js=aj2js+1
Randomize
sj2 = rnd * 12 +5
End If
Delay 100
Goto 开始追问
大哥啊
这个我不会搞上去啊
晕,你复制进去就行了啊。
追问能不能留个QQ,帮忙我看看 我这可以给你追加分数,谢谢啦啊
追答你留QQ我加你吧。复制都不会啊?
追问17092469
参考技术A ok追问哥们,你这发了没啊
按键精灵有生成13位时间戳的代码或插件吗,求大神指点
参考技术A UserVar ShuChuFangShi = 1 ;获取到时间之后的输出方式。1是弹对话框,适合平时看时间;
2是文本输出,适合网游里使用;
Dim Y,Mon,D,W,h,m,s,SJ
//先声明变量
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
//利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
h=Hour(time):m=Minute(time):s=Second(time)
//利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
SJ=Y ;年; Mon ;月; D ;号; W ; ; h ;点; m ;分; s ;秒;
//把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
If ShuChuFangShi=1 Then
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox SJ
End If
If ShuChuFangShi=2 Then
//最后弹出个窗口 显示当前的系统时间(变量SJ)
MessageBox SJ
End If本回答被提问者采纳
以上是关于求一个按键精灵9的脚本的主要内容,如果未能解决你的问题,请参考以下文章