//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