yd_time=500 遇敌时长
UserVar Var1=DropList{战士:1|法师:2}=0 设置角色
VBSCall RunApp("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Delay 1000
Plugin Hwnd = Window.Foreground()
Plugin Window.Max(Hwnd)
Delay 300
//输入游戏网址
KeyDown 17,1
Delay 32
KeyPress 9,1
Delay 32
KeyUp 17,1
Delay 32
SayString "http://www.vrbrothers.com/cn/qmacro/lab/content_03.html"
Delay 100
KeyPress 13,1
Delay 32
//----------------------------华丽的分割线-------------------------
Rem 登录游戏
VBSCall FindPic(823,494,1007,588,"Attachment:\kaishi.bmp",0.9,ks_intX,ks_intY)
If ks_intX>0
    MoveTo ks_intX+5,ks_intY+5
    Delay 100
    LeftClick 1
    Delay 1000
Else 
    Delay 1000
    Goto 登录游戏
EndIf 
//----------------------------华丽的分割线-------------------------
Rem 开始
Gosub 补红蓝
KeyDown 39,1
Delay yd_time
KeyUp 39,1
Gosub 杀怪
KeyDown 37,1
Delay yd_time
KeyUp 37,1
Gosub 杀怪
Goto 开始
//----------------------------华丽的分割线-------------------------
Sub 杀怪
    VBSCall FindPic(1086,380,1179,426,"Attachment:\gongji.bmp",0.9,gj_intX,gj_intY)
    If gj_intX>0
        Goto 杀1
    Else 
        Goto 杀怪结束
    EndIf 
    Rem 杀1
    IfColor 1084,324,66ff,0
        MoveTo 748,430
        Delay 100
        If Var1=1
            LeftDoubleClick 1
        ElseIf 
            Var1=2
            KeyPress 50,1
            Delay 32
            LeftDoubleClick 1
        EndIf 
        Delay 100
    EndIf 
    Rem 杀2
    IfColor 1109,313,66ff,0
        MoveTo 832,395
        Delay 100
        If Var1=1
            LeftDoubleClick 1
        ElseIf 
            Var1=2
            KeyPress 50,1
            Delay 32
            LeftDoubleClick 1
        EndIf 
        Delay 100
    EndIf 
    Rem 杀3
    IfColor 1132,308,66ff,0
        MoveTo 912,373
        Delay 100
        If Var1=1
            LeftDoubleClick 1
        ElseIf 
            Var1=2
            KeyPress 50,1
            Delay 32
            LeftDoubleClick 1
        EndIf 
        Delay 100
    EndIf 
    Rem 杀怪结束
Return 杀怪
Sub 补红蓝
    IfColor 778,298,66ff,1
        KeyPress 51,1
        Delay 100
    EndIf 
Return