标题:
自动开冰盾脚本新贴
[打印本页]
作者:
nil2susan1314
时间:
2008-6-28 01:10
标题:
自动开冰盾脚本新贴
其实先前的帖子我也写上这个脚本了,在5楼,只是大家懒得看贴
Rem 开始
Delay 2000
PutAttachment .\plugin 冰盾.bmp
VBS dim x,y
t1=now:t2=now
UserVar a=DropList{不使用:0|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 1.技能1快捷键设置
UserVar s1=10 技能时间间隔
UserVar b=DropList{不使用:0|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 2.技能2快捷键设置
UserVar s2=10 技能时间间隔
UserVar c=DropList{不使用:0|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 3.集中技能快捷键设置
UserVar d=DropList{不使用:0|F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 4.盾技能快捷键设置
Rem 主程序
VBSCall FindPic(0,0,1024,384,"Attachment:\冰盾.bmp",0.6,x,y)
If x>0 and y>0
Delay 955
Gosub 12
Else
Delay 10
KeyPress c,1
Delay 10
KeyPress c,1
Delay 15
KeyPress d,1
EndIf
Goto 主程序
EndScript
Sub 12
If DateDiff("s",t1,now)>=s1
Delay 50
KeyPress a,1
t1=now
EndIf
If DateDiff("s",t2,now)>=s2
Delay 50
KeyPress b,1
t2=now
EndIf
Return 12
冰盾.bmp,这个图片就是截图,就是开盾时右上角冰盾的状态图标,要把它保存在按键精灵的脚本的附件里
要多加几个技能的话
上面的这部分修改如如下:
Sub 12
If DateDiff("s",t1,now)>=s1
Delay 50
KeyPress a,1
t1=now
EndIf
If DateDiff("s",t2,now)>=s2
Delay 50
KeyPress b,1
t2=now
EndIf
If DateDiff("s",t3,now)>=s3
Delay 50
KeyPress c,1
t3=now
EndIf
Return 12
前面的时间t1=now:t2=now要变成t1=now:t2=now:t3=now
[
本帖最后由 nil2susan1314 于 2008-6-30 16:14 编辑
]
作者:
mimisky
时间:
2008-6-28 20:25
谢谢分享了...
作者:
oncityce
时间:
2008-11-7 12:08
没图片啊。。。
作者:
双子alex
时间:
2008-12-7 08:28
乱码! 理解代码!
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1