If HwndEx <> 0 Then
            Coord = Plugin.Window.GetClientRect(HwndEx)
            MyArray = Split(Coord, "|", - 1 , 1)
            Do 
                Delay 100
                IfColor Cint(MyArray(0)) + 10, Cint(MyArray(1)) + 10, "676767", 1 Then
                    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,457,FFFFFF,660,450,00605A"
    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