UserVar name0=0"左下角为主号，请输入后3位ID"
UserVar name1=0"左上角为2号，请输入后3位ID"
UserVar name2=0"右上角为3号，请输入后3位ID"
UserVar name3=0"左下角为4号，请输入后3位ID"
UserVar name4=0"中间为5号，请输入后3位ID"
UserVar RW1=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物1"
UserVar BB1=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝1"
UserVar RW2=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物2"
UserVar BB2=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝2"
UserVar RW3=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物3"
UserVar BB3=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝3"
UserVar RW4=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物4"
UserVar BB4=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝4"
UserVar RW5=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物5"
UserVar BB5=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝5"
UserVar YS=DropList{"一号人物":1|"二号人物":2|"三号人物":3|"四号人物":4|"五号人物":5|"无":6}=5"选择医生"
UserVar YSAJ=DropList{"F1":112|"F2":113|"F3":114|"F4":115|"F5":116|"F6":117|"F7":118|"F8":119|"F9":120}=0"快捷键"
Dim srw1, srw2, srw3, srw4, srw5//五个号的句柄
Dim hp1,hp2,hp3,hp4,hp5//五个号的血值状态
Dim mp1,mp2,mp3,mp4,mp5//五个号的蓝值状态
Dim FileArray(11)  
Dim HandleArray//建完图库后这里要改一下数目奖励验证库
Dim FileNatureArray(11)
Dim HandleNatureArray//弹出的对话框验证库
Sub 奖励验证图片加载()//奖励验证图片加载库方法
    //先装入奖励验证图片
    For i = 0 To 11
        FileArray(i)="Attachment:\"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
    Next
    HandleArray = Plugin.FindPicture5_04.LoadBMP(FileArray)
    //UBound函数用于获得指定数组维数的最大可用下标，在这里，数组大小是0时，返回-1
    If UBound(HandleArray)=-1 Then
        MsgBox "载入验证图片失败",4096
        EndScript
    End If
End Sub
Sub 弹出对话框验证图片加载()//弹出对话框验证图片库方法
    //先装入奖励验证图片
    For i = 0 To 11
        FileNatureArray(i)="Attachment:\d"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
    Next
    HandleNatureArray= Plugin.FindPicture5_04.LoadBMP(FileNatureArray)
    //UBound函数用于获得指定数组维数的最大可用下标，在这里，数组大小是0时，返回-1
    If UBound(HandleArray)=-1 Then
        MsgBox "载入验证图片失败",4096
        EndScript
    End If
End Sub
//开始循环查找要练级的5号
'---------------------------------------------------------------------------
Hwndex = Plugin.Window.Search("梦幻西游ONLINE")
MyArray = Split(HwndEx, "|")
i = 0
For CLng(UBound(MyArray))
    sText = Plugin.Window.GetText(MyArray(i))
    sText = Right(sText, 5)
    sText = Left(sText, 3)
    If sText <> "NLI" Then 
        If name0 = CInt(sText) Then 
            srw1=MyArray(i)
            Call Plugin.Window.Active(srw1)
            Delay 500
            Call Plugin.Window.Move(srw1, 0,480)
        ElseIf name1 = CInt(sText) Then
            srw2=MyArray(i)
            Call Plugin.Window.Active(srw2)
            Delay 500
            Call Plugin.Window.Move(srw2, 0, 0)
        ElseIf name2 = CInt(sText) Then
            srw3=MyArray(i)
            Call Plugin.Window.Active(srw3)
            Delay 500
            Call Plugin.Window.Move(srw3,643, 0 )
        ElseIf name3 = CInt(sText) Then
            srw4=MyArray(i)
            Call Plugin.Window.Active(srw4)
            Delay 500
            Call Plugin.Window.Move(srw4,643, 500 )
        ElseIf name4 = CInt(sText) Then
            srw5=MyArray(i)
            Call Plugin.Window.Active(srw5)
            Delay 500
            Call Plugin.Window.Move(srw5, 300,300)
        Else 
        End If
    End If
    If i = CLng(UBound(MyArray))-1 Then 
        Call Plugin.Window.Active(srw5)
    End If
    i = i + 1
    Delay 100
Next
//Game开始挂机
Sub 开始走路()
    Delay 200
    Call Plugin.Window.Active(srw1)
    Rect= Plugin.Window.GetClientRect(srw1)
    MyArray=Split(Rect,"|")
    Ux=CLng(MyArray(0))
    Uy = CLng(MyArray(1))