自动开冰盾脚本新贴

其实先前的帖子我也写上这个脚本了,在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 编辑 ]