Hwnd = Plugin.Window.Find(WSGAME, 0)
sText = Plugin.Window.GetText(Hwnd)
HwndEx = Plugin.Window.Search("梦幻西游ONLINE")
//MsgBox "查找到符合的窗口句柄为："& HwndEx  
//下面这句用于分割字符串,将获得的句柄组分割   
UserVar RW1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物1"
UserVar BB1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝1"
UserVar RW2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物2"
UserVar BB2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝2"
UserVar RW3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物3"
UserVar BB3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝3"
UserVar RW4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物4"
UserVar BB4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝4"
UserVar RW5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物5"
UserVar BB5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝5"
dim MyArray   
MyArray = Split(HwndEx, "|")
窗口1 = Clng(Myarray(0))
窗口3 = Clng(Myarray(1))
窗口2 = Clng(Myarray(2))
窗口4 = Clng(Myarray(3))
窗口5 = Clng(Myarray(4))
Call Plugin.Window.Move(窗口1, 0, 0)
Call Plugin.Window.Move(窗口2, 0, 505)
Call Plugin.Window.Move(窗口3, 646, 0)
Call Plugin.Window.Move(窗口4, 646, 505)
Call Plugin.Window.Move(窗口5, 1034 , 0)
Call 复位
i = 0
yanchi = 200
Do  While true
    If rw1 = 3 Then 
    Else 
        Call 战斗1
    End If
    If rw2 = 3 Then 
    Else 
        Call 战斗2
    End If
    If rw3 = 3 Then 
    Else 
        Call 战斗3
    End If
    If rw4 = 3 Then 
    Else 
        Call 战斗4
    End If
    If rw5 = 4 Then
    Else 
        Call 战斗5
    End If
Loop
//
Sub bbb
    If UBound(MyArray)>=0 Then  
        i=0   
        For UBound(MyArray)   
            //下面这句将字符串转换成数值   
            Msgbox "第 "& i+1 &" 个窗口句柄为："&Clng(MyArray(i))   
            i=i+1   
        Next  
    End If   
End Sub
Sub 防飘
    dim n,h
    n=1
    h=0
    zx=目标x
    zy=目标y
    If zx<50+定位点x or zx>540+定位点x
        If zx<50+定位点x
            zzx=zx+40
        EndIf 
        If zx>540+定位点x
            zzx=zx-40
        EndIf 
    Else 
        zzx=zx
    EndIf 
    If zy<50+定位点y or zy>400+定位点y 
        If zy<50+定位点y 
            zzy=zy+40
        EndIf 
        If zy>400+定位点y 
            zzy=zy-40
        EndIf 
    Else 
        zzy=zy
    EndIf 
    MoveTo zzx,zzy
    Delay 100
    Rem py
    mz=0
    Call FindPic(定位点x,定位点y,限制x,限制y,"Attachment:\鼠标.bmp",0.9,x1,y1)
    If x1>=0 and y1>=0
        a=zx-x1+18
        b=zy-y1+12
    Else 
        Call FindPic(定位点x,定位点y,限制x,限制y,"Attachment:\剑.bmp",0.9,x1,y1)
        If x1>=0 and y1>=0