BB = BB4
    Else 
        RW = RW5
        BB = BB5
    End If
    Delay 200
    sRect = Plugin.Window.GetClientRect(CPID) //得到窗口句柄的客户区大小
    myarray1 = Split(sRect, "|")
    zdx = CLng(myarray1(0))
    zdy = CLng(myarray1(1))
    MoveTo cx+30,cy+90
    FindPic zdx,zdy,zdx+643,zdy+502,"Attachment:\验证对话框.bmp",0.9,intX,intY
    If intX > zdx + 3 And intY > zdy + 22 Then 
        Call 验证(CPID)
    End If
    FindPic zdx,zdy,zdx+643,zdy+502,"Attachment:\法术.bmp",0.9,RintX,RintY
    If RintX > zdx + 3 And RintY > zdy + 22 Then 
        KeyDown 18, 1
        Delay 50
        KeyPress RW, 1
        Delay 50
        KeyUp 18, 1
        Delay 200
        FindPic zdx,zdy,zdx+643,zdy+502,"Attachment:\法术.bmp",0.9,BintX,BintY
        If BintX > zdx + 3 And BintY > zdy + 22 Then 
            KeyDown 18, 1
            Delay 50
            KeyPress BB, 1
            Delay 50
            KeyUp 18, 1
        End If
    Else 
        If CPID = srw1 Then 
            Call 开始走路
        Else 
            If CPID <> srw1 Then 
                MoveTo zdx + 20, zdy + 60
                Delay 100
            End If
            Call 开始战斗(CPID)
        End If
    End If
End Sub
//奖励对话框验证
Sub 验证(窗口句柄)
    sRect = Plugin.Window.GetClientRect(窗口句柄) //得到窗口句柄的客户区大小
    myarray1 = Split(sRect, "|")
    cx = CLng(myarray1(0))
    cy = CLng(myarray1(1))
    //下句为找到“请点面对”等字
    yanzheng=Plugin.Color.FindMutiColor(cx,cy,cx+646,cy+502,"0000FF","-26|1|FFFFFF,-7|2|FFFFFF,14|2|0000FF,-22|3|FFFFFF,3|3|0000FF,24|4|0000FF,-13|5|FFFFFF,21|6|0000FF,-26|7|FFFFFF,-20|7|FFFFFF,-4|8|FFFFFF,5|9|0000FF,18|9|0000FF,-3|11|FFFFFF,-17|12|FFFFFF,7|12|0000FF,11|12|0000FF,23|12|0000FF",0.75)
    ZB = InStr(yanzheng,"|")
    yanx = Clng(Left(yanzheng, ZB - 1)) : yany = Clng(Right(yanzheng, Len(yanzheng) - ZB))
    If yanx > 0 and yany > 0 Then 
        x = yanx-90    //确定查找验证图的一个小区间
        y = yany
        Call Lib.xyq.鼠标移动(x,y)
        Delay 500
        XYArray=Plugin.FindPicture5_04.FindPictureNA(0,yanx-90, yany, yanx+275,yany+155,HandleArray,25,0.9)
        n = UBound(XYArray, 2) + 1
        If n Then
            i=0
            str = ""
            For n
                If i Then
                    str = str & vbCrLf & CStr(XYArray(0, i)) & "," & CStr(XYArray(1, i)) & "," & FileArray(XYArray(2, i))
                Else
                    str=CStr(XYArray(0,i))&","&CStr(XYArray(1,i))&","&FileArray(XYArray(2,i))
                End If
                i=i+1
            Next
            Call Lib.xyq.鼠标移动(XYArray(0,0)+6,XYArray(1,0)+6) //找到图后移到图片上，在实际应用时可换成防鼠标漂子程序
            LeftClick 1
        Else 
            MsgBox "未找到图形，请用手动点击！", 4096
            Call Plugin.Media.Vol(100)
            Call Plugin.Media.Play("Attachment:\1540.mp3")
            Delay 5000
            Call Plugin.Media.Stop()
            Call 开始战斗(窗口句柄)
        End If
    Else 
        Call 开始战斗(窗口句柄)
    End If
End Sub
//弹出的对话框关闭
Sub 关闭对话框(窗口句柄)
    sRect1 = Plugin.Window.GetClientRect(窗口句柄)
    myarray2 = Split(sRect1, "|")
    dx = CLng(myarray2(0))
    dy = CLng(myarray2(1))
    Call Lib.xyq.鼠标移动(dx + 20, dy + 80)
    Delay 100
    XYArray = Plugin.FindPicture5_04.FindPictureNA(0, dx, dy, dx + 646, dy + 480, HandleNatureArray, 25, 0.9)
    n = UBound(XYArray, 2) + 1
    If n Then 
        i = 0
        std = ""
        For n
            If i Then