-------------------------------------------------------------------
'By:qingfengzhixia
'QQ:416721062
'EMail:qingfengzhixia1@163.com
'Date:2010-3-30
'--------------------------------------------------------------------------
//用户自定义的变量
UserVar DNFpath="D:\Program Files\腾讯游戏\地下城与勇士\start\DNFchina.exe" "游戏路径(可不用加引号)"
UserVar qq=416721062 "QQ帐号"
UserVar psw="qingfengzhixia1@163.com" "QQ密码(登录过程中不要打开Caps Lock键),最好加上引号"
UserVar MyDQ=DropList{"否":"0"|"是":"1"}=1 "是否启用自定义大区和服务器"
UserVar Region="广东区" "输入大区名称(可不用加引号)"
UserVar Server="广东1区" "输入服务器名称(可不用加引号)"
UserVar Delay_click=600 "点击速度"
UserVar Delay_psw=60 "密码输入速度"
UserVar tdPD=DropList{"拥挤":0|"普通":1|"良好":2|"顺畅":3}=1 "自动登录到特定状态的频道"
UserVar role_y=DropList{"1":1|"2":2}=0 "选择要登录第一页第几排角色"
UserVar role_x=DropList{"1":1|"2":2|"3":3|"4":4}=0 "选择要登录第一页第几行角色"

//▓▓▓▓▓▓▓▓▓▓▓ 自定义变量判断 ▓▓▓▓▓▓▓▓▓▓

If Plugin.File.ExistFile(DNFpath) = 0 Then 
    Call 运行日志(10)
    EndScript 
End If

If 判断整数(qq) = False Then 
    Call 运行日志(11)
    EndScript	
End If

//▓▓▓▓▓▓▓▓▓▓▓全局变量初始化 ▓▓▓▓▓▓▓▓▓▓▓
Dim C(3)
C(0) = "0000FF" '拥挤
C(1) = "0080FF" '普通
C(2) = "00B1FF" '良好
C(3) = "00FF00" '顺畅	


//▓▓▓▓▓▓▓▓▓▓▓主    程    序 ▓▓▓▓▓▓▓▓▓▓▓

RunApp DNFpath
Call 运行日志(0)
//●●●●●●●●● 选大区 ●●●●●●●●
Call 相对坐标()
Call 窗口判断("选大区")
TracePrint Ux & "," & Uy
If MyDQ = 1 Then '判断是不是启用自定义大区和服务器功能'
    Call 子窗口(region)
    Call 子窗口(server)
End If
Do 
    Delay 50 
    IfColor Ux+116, Uy+363,"676767",1 Then '判断服务器状态
        Exit Do 
    End If 	
Loop
MoveTo Ux + 560, Uy + 490 '[确认选择]
Delay 500
LeftClick 1
Delay 500


//●●●●●●●● 输密码 ●●●●●●●●
Ux = Ux - 1:Uy = Uy - 1
Call 窗口判断("输密码")
TracePrint Ux & "," & Uy
MoveTo Ux + 447, Uy + 367 '账号窗口'
Delay 400
LeftClick 1
Delay 400
KeyPress "BackSpace", 15
SayString qq   '[输入账号]
Delay 300
KeyPress "Tab", 1
Call Lib.键盘.KeyList(psw, 0, Delay_psw)   '输入密码,当输入密码有引号时（"）必须输入一对（""）	
MoveTo Ux + 570, Uy + 380 '[登录游戏]'
Delay 500
LeftClick 1 
Delay 3000
IfColor Ux + 460, Uy + 200, "041E74" , 0 Then 
    Call 运行日志(12)
    EndScript 
End If 

//●●●●●●●● 择频道 ●●●●●●●●

Ux = Ux - 56:Uy = Uy - 12
Call 窗口判断("择频道")
TracePrint Ux & "," & Uy
Do
    Delay 50
    IfColor Ux+104, Uy+138, "A9C3C8" ,0  Then   '是否在读取频道信息'
        Exit Do 
    End If
Loop
Do
    Delay 50
    FindColor Ux, Uy, Ux + 640, Uy + 480, C(tdPD), intX, intY '不同频道状态不同的颜色'
    If intX > 0 And intY > 0 Then