Call 移动并点击(Cint(MyArray(0)) + Cint(MyArray(2)) / 2 - Ux, Cint(MyArray(1)) + Cint(MyArray(3)) / 2 - Uy, 0, 1)  
                    Exit Do   
                End If  
            Loop   
            Delay Delay_window  
            Exit Sub   
        Else   
            MsgBox "出错:找不到子窗口" & 标题, 16, "提示"  
            EndScript   
        End If   
    Loop   
End Sub   
Sub 等待窗口(窗口名)  
    Dim Array_name, Hwnd, Coord, MyArray, i, k  
    Dim Array_Feature_form(3)  
    Array_Feature_form(0) =  "选大区,71,86,C9FFFF,71,86,C9FFFF"  
    Array_Feature_form(1) =  "输密码,90,480,FFFFFF,660,469,18FF9F"  
    Array_Feature_form(2) =  "择频道,332,13,B3F2FF,333,13,B3F2FF"  
    Array_Feature_form(3) =  "挑角色,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4"   
    For i = 0 To UBound(Array_Feature_form)  
        Array_name = Split(Array_Feature_form(i), ",", - 1 , 1)  
        If Array_name(0) = 窗口名 Then   
            Do  
                Delay 50   
                Hwnd = Plugin.Window.Find(0, "地下城与勇士")  
                Coord = Plugin.Window.GetClientRect(Hwnd)    
                MyArray = Split(Coord, "|", - 1 , 1)  
                If Cint(MyArray(2)) = 687 or Cint(MyArray(2)) = 640 Then    
                    Ux = Cint(MyArray(0)) : Uy = Cint(MyArray(1))  
                    For k = 0 To (UBound(Array_name) - 6) / 6  
                        IfColor Ux + Array_name(k * 6 + 1), Uy + Array_name(k * 6 + 2), Array_name(k * 6 + 3),0 Then   
                            IfColor Ux + Array_name(k * 6 + 4), Uy + Array_name(k * 6 + 5), Array_name(k * 6 + 6),0 Then   
                                Exit Sub  
                            End If   
                        End If                            
                    Next  
                End If  
            Loop   
        End If  
    Next   
End Sub  
Sub 移动并点击(横坐标, 纵坐标, 操作方式, 左击次数)  
    //点击次数: 0表示不点击  
    //操作方式：【0前台模式，1后台模式】  
    If 操作方式 = 0 Then   
        横坐标 = Ux + 横坐标 : 纵坐标 = Uy + 纵坐标  
        MoveTo 横坐标, 纵坐标  
        Delay Delay_move  
        If 左击次数 <> 0 Then   
            For 左击次数  
                LeftDown 1  
                Delay 100  
                LeftUp 1  
                Delay Delay_click  
            Next   
        End If  
    End If       
End Sub  
Dim MyHour,MyVar
rem aaa
Delay 3000
Goto aaa