MoveTo intX, intY
        Exit Do 
    Else 
        If tdPD = 3 Then tdPD = -1  '找不到设定的状态,就找下一种状态'
        tdPD = tdPD + 1
    End If
Loop
Delay Delay_click
LeftClick 1
Delay 300
MoveTo Ux + 320, Uy + 445   '[游戏开始]'
Delay Delay_click
LeftClick 1
Delay 500
RunApp("cmd.exe /C Taskkill  /f /im QQlogin.exe")

//●●●●●●●● 挑角色 ●●●●●●●●

Call 窗口判断("挑角色")
Do
    Delay 50
    IfColor Ux + 401, Uy + 195, "8DEDFF", 1 Then  '判断是否在读取信息'
        Exit Do 
    End If
Loop

MoveTo Ux + 120 + (role_x - 1) * 130, Uy + 130 + (role_y - 1) * 180 '[角色]
Delay Delay_click
LeftClick 1
Delay 300
MoveTo Ux + 320, Uy + 445 '[游戏开始]'
Delay Delay_click
LeftClick 1
Delay 300
Call 运行日志(9)
Delay 5000
RunApp("cmd.exe /C Taskkill /f /im AutoDNFlogin.exe") '关闭自己,AutoDNFlogin.exe为自己小精灵的文件名
EndScript

//▓▓▓▓▓▓▓▓▓▓▓ 子    程    序 ▓▓▓▓▓▓▓▓▓▓▓
Sub 相对坐标()
    //作用：得到地下城与勇士窗口最左上角的坐标
    Dim Hwnd, coord, MyArray
    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))
            Exit Sub 
        End If
    Loop 
End Sub



Sub 子窗口(子窗口标题)
    //作用：点击指定标题子窗体，
    Do 
        Delay 50
        Hwnd = Plugin.Window.Find(0, "地下城与勇士")
        handleS = Plugin.Window.FindEx(Hwnd, i, 0, 子窗口标题)
        If handleS <> 0 Then
            coord = Plugin.Window.GetClientRect(handleS)
            // MyArray(0),MyArray(1) 左上角坐标
            // MyArray(2):MyArray(3) 宽:高
            MyArray = Split(coord, "|", - 1 , 1)
            Delay Delay_click	
            MoveTo Cint(MyArray(0))+Cint(MyArray(2))/2 , Cint(MyArray(1))+Cint(MyArray(3))/2 
            Delay Delay_click
            LeftClick 1
            Delay 300
            Exit Sub 
        Else 
            Call 运行日志(13)
            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    
	
Function 判断整数(数据)
    Dim M(9)
    k = 0
    For i = 0 To 9
        M(i) =i
    Next
    For j = 1 To len(数据)
        For i = 0 To 9         
            If Cstr(Mid(数据, j, 1)) = Cstr((i)) Then 
                k = k + 1
                Exit For
            End If
        Next
    Next
    If k = len(数据) Then 
        判断整数 = "True"
    Else