Call 移动并点击(Cint(MyArray(0)) + Cint(MyArray(2)) / 2 - Ux, Cint(MyArray(1)) + Cint(MyArray(3)) / 2 - Uy, 0, 1)
            Exit Sub 
        Else 
            RunApp("cmd.exe /C Taskkill /f /im DNFchina.exe&Taskkill  /f /im DNF.exe&Taskkill  /f /im QQlogin.exe&exit")
            EndScript 
        End If 
    Loop 
End Sub  
Sub 判断窗口(名称)
    Dim Array_name, Hwnd, Coord, MyArray
    Dim W(4)
    W(0) = "选大区,78,233,69EFFF,79,233,69EFFF"
    W(1) = "输密码,90,457,FFFFFF,660,450,00605A"
    W(2) = "择频道,80,40,383CC3,318,406,FFFFFF"
    W(3) = "挑角色,470,445,8DC5DD,491,454,8DC5DD"
    W(4) = "丽亚房,371,156,9BC8E6,370,156,9BC8E6"
    For i = 0 To 4
        Array_name = Split(W(i), ",", - 1 , 1)
        If Array_name(0) = 名称 Then 
            Do
                Delay 50
                Hwnd = Plugin.Window.Find(0, "地下城与勇士")
                If Hwnd > 0 Then    
                    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))
                        IfColor Ux + Array_name(1), Uy + Array_name(2), Array_name(3),0 Then 
                            IfColor Ux + Array_name(4), Uy + Array_name(5), Array_name(6),0 Then 
                                Exit Sub
                            End If 
                        End If
                    End If 
                End If
            Loop 
        End If
    Next    
End Sub
Sub 移动并点击(横坐标, 纵坐标, 模拟方式, 左击次数)
    //点击次数: 0表示不点击
    横坐标 = Ux + 横坐标 : 纵坐标 = Uy + 纵坐标
    If 模拟方式 = 0 Then 
        MoveTo 横坐标, 纵坐标
        Delay Delay_move
        If 左击次数 <> 0 Then 
            For 左击次数
                LeftDown 1
                Delay 100
                LeftUp 1
                Delay Delay_click
            Next 
        End If      
    End If 
End Sub