//1为抢怪技能 UserVar asjdaisd="请设置" ---------技能设置---------- UserVar jn1="2" 设置技能1键位 UserVar jn2="3" 设置技能2键位 UserVar jn3="4" 设置技能3键位 UserVar s1=60 设置技能1施放间隔时间(单位:秒) UserVar s2=90 设置技能2施放间隔时间(单位:秒) UserVar s3=120 设置技能3施放间隔时间(单位:秒) UserVar y1=10 技能1吟唱时间(秒) UserVar y2=10 技能2吟唱时间(秒) UserVar y3=10 技能3吟唱时间(秒) UserVar jg=1 抢怪间隔(秒) Plugin hx=Window.Find(0,"QQ华夏") //MessageBox ""&hx&"" Plugin Window.Active(hx) //---------------[分隔线]-------------------- dim key(2),sj(3) dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx //声明变量 key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3) sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4 //把自定义参数的返回值转换成数组元素 t1=now:t2=now:t3=now:t4=now //返回当前系统日期时间到变量 //---------------[分隔线]-------------------- Rem 开始挂机 Gosub 抢怪 Gosub 检查辅助技能 Goto 开始挂机 //---------------[分隔线]-------------------- Sub 抢怪 Plugin Window.SendKeyPress(hx,192) Delay 100 Plugin Window.SendKeyPress(hx,49) Delay 500 Plugin Window.SendKeyPress(hx,192) //防止技能狂按 Delay jg*1000 Return //--------------[分隔线]------------------------ Sub 检查辅助技能 If DateDiff("s",t1,now)>=sj(0) Plugin Window.SendKeyDown(hx,key(0)) Delay 32 Plugin Window.SendKeyUp(hx,key(0)) Delay y1*1000 t1=now EndIf If DateDiff("s",t2,now)>=sj(1) Delay 10 Plugin Window.SendKeyDown(hx,key(1)) Delay 32 Plugin Window.SendKeyUp(hx,key(1)) Delay y2*1000 t2=now EndIf If DateDiff("s",t3,now)>=sj(2) Delay 10 Plugin Window.SendKeyDown(hx,key(2)) Delay 32 Plugin Window.SendKeyUp(hx,key(2)) t3=now EndIf If DateDiff("s",t3,now)>=sj(2) Delay 10 Plugin Window.SendKeyDown(hx,key(2)) Delay 32 Plugin Window.SendKeyUp(hx,key(2)) Delay y3*1000 t3=now EndIf Return