判断整数 = "False"
    End If
End Function


Sub 运行日志(编号) 
    Dim Aarry_log(13)
    Aarry_log(0) = " 当前账号信息是" & qq & " " & region & " " & server
    Aarry_log(1) = " 正在判断选择大区窗口……"
    Aarry_log(2) = " 正在判断输入账号和密码窗口……"
    Aarry_log(3) = " 正在判断选择频道窗口……"
    Aarry_log(4) = " 正在判断选择角色窗口……"
    Aarry_log(5) = " 判断选择大区窗口成功"
    Aarry_log(6) = " 判断输入账号和密码窗口成功"
    Aarry_log(7) = " 判断选择频道窗口成功"
    Aarry_log(8) = " 判断选择角色窗口成功"
    Aarry_log(9) = " 登录成功,程序退出"
    Aarry_log(10) = " DNFchina.exe路径错误,程序停止进行!"
    Aarry_log(11) = " QQ号码格式错误,程序停止进行!"
    Aarry_log(12) = " 输入的密码错误,程序停止进行!"
    Aarry_log(13) = " 找不到大区或服务器,程序结束"
    Call Plugin.File.WriteFileEx("Run.log", now & Aarry_log(编号))
End Sub

Sub 窗口判断(名称)
    Dim W(3)
    W(0) = "选大区|320|240|332012"
    W(1) = "输密码|660|450|00605A"
    W(2) = "择频道|80|40|383CC3"
    W(3) = "挑角色|80|40|7B4A31"
     
    For i = 0 To 3
        Array_name = Split(W(i), "|", - 1 , 1)
        If Array_name(0) = 名称 Then 
        	call 运行日志(i + 1)
            Do
                Delay 50
                IfColor Ux + Array_name(1), Uy + Array_name(2), Array_name(3),0 Then 
                    call 运行日志(i + 5)
                    Exit Sub
                End If 
            Loop 
        End If
    Next 
End Sub