- 注释:--------------------------------------------------------------------------
- 注释:By:qingfengzhixia
- 注释:QQ:416721062
- 注释:EMail:qingfengzhixia1@163.com
- 注释:Date:2010-3-30
- 注释:--------------------------------------------------------------------------
- 注释:用户自定义的变量
- 用户定义变量 DNFpath="D:\Program Files\腾讯游戏\地下城与勇士\start\DNFchina.exe" "游戏路径(可不用加引号)"
- 用户定义变量 qq=416721062 "QQ帐号"
- 用户定义变量 psw="qingfengzhixia1@163.com" "QQ密码(登录过程中不要打开Caps Lock键),最好加上引号"
- 用户定义变量 MyDQ=DropList{"否":"0"|"是":"1"}=1 "是否启用自定义大区和服务器"
- 用户定义变量 Region="广东区" "输入大区名称(可不用加引号)"
- 用户定义变量 Server="广东1区" "输入服务器名称(可不用加引号)"
- 用户定义变量 Delay_click=600 "点击速度"
- 用户定义变量 Delay_psw=60 "密码输入速度"
- 用户定义变量 tdPD=DropList{"拥挤":0|"普通":1|"良好":2|"顺畅":3}=1 "自动登录到特定状态的频道"
- 用户定义变量 role_y=DropList{"1":1|"2":2}=0 "选择要登录第一页第几排角色"
- 用户定义变量 role_x=DropList{"1":1|"2":2|"3":3|"4":4}=0 "选择要登录第一页第几行角色"
- 注释:▓▓▓▓▓▓▓▓▓▓▓ 自定义变量判断 ▓▓▓▓▓▓▓▓▓▓
- 如果 File.ExistFile(DNFpath) = 0 则
- 调用 运行日志(10)
- 脚本停止运行
- 条件结束
- 如果 判断整数(qq) = False 则
- 调用 运行日志(11)
- 脚本停止运行
- 条件结束
- 注释:▓▓▓▓▓▓▓▓▓▓▓全局变量初始化 ▓▓▓▓▓▓▓▓▓▓▓
- 定义变量 C(3)
- (语句无法识别,可能有错误): C(0) = "0000FF" '拥挤
- (语句无法识别,可能有错误): C(1) = "0080FF" '普通
- (语句无法识别,可能有错误): C(2) = "00B1FF" '良好
- (语句无法识别,可能有错误): C(3) = "00FF00" '顺畅
- 注释:▓▓▓▓▓▓▓▓▓▓▓主 程 序 ▓▓▓▓▓▓▓▓▓▓▓
- 启动程序或打开文件 DNFpath
- 调用 运行日志(0)
- 注释:●●●●●●●●● 选大区 ●●●●●●●●
- 调用 相对坐标()
- 调用 窗口判断("选大区")
- 向调试窗口输出:Ux & "," & Uy
- 如果 MyDQ = 1 则
- 注释:判断是不是启用自定义大区和服务器功能'
- 条件结束
- 调用 子窗口(region)
- 调用 子窗口(server)
- 条件结束
- 循环开始
- 延时 50 毫秒
- (语句无法识别,可能有错误): IfColor Ux+116, Uy+363,"676767",1 Then '判断服务器状态
- 跳出循环
- 条件结束
- 循环结束
- (语句无法识别,可能有错误): MoveTo Ux + 560, Uy + 490 '[确认选择]
- 延时 500 毫秒
- (鼠标)左键单击, 1次
- 延时 500 毫秒
- 注释:●●●●●●●● 输密码 ●●●●●●●●
- 令 Ux = Ux - 1
- 令 Uy = Uy - 1
- 调用 窗口判断("输密码")
- 向调试窗口输出:Ux & "," & Uy
- (语句无法识别,可能有错误): MoveTo Ux + 447, Uy + 367 '账号窗口'
- 延时 400 毫秒
- (鼠标)左键单击, 1次
- 延时 400 毫秒
- (键盘)按 "BackSpace" 键, 15次
- (语句无法识别,可能有错误): SayString qq '[输入账号]
- 延时 300 毫秒
- (键盘)按 "Tab" 键, 1次
- (语句无法识别,可能有错误): Call Lib.键盘.KeyList(psw, 0, Delay_psw) '输入密码,当输入密码有引号时(")必须输入一对("")
- (语句无法识别,可能有错误): MoveTo Ux + 570, Uy + 380 '[登录游戏]'
- 延时 500 毫秒
- (鼠标)左键单击, 1次
- 延时 3000 毫秒
- 如果点 (Ux + 460,Uy + 200) 的颜色等于 "041E74" 则
- 调用 运行日志(12)
- 脚本停止运行
- 条件结束
- 注释:●●●●●●●● 择频道 ●●●●●●●●
- 令 Ux = Ux - 56
- 令 Uy = Uy - 12
- 调用 窗口判断("择频道")
- 向调试窗口输出:Ux & "," & Uy
- 循环开始
- 延时 50 毫秒
- (语句无法识别,可能有错误): IfColor Ux+104, Uy+138, "A9C3C8" ,0 Then '是否在读取频道信息'
- 跳出循环
- 条件结束
- 循环结束
- 循环开始
- 延时 50 毫秒
- (语句无法识别,可能有错误): FindColor Ux, Uy, Ux + 640, Uy + 480, C(tdPD), intX, intY '不同频道状态不同的颜色'
- 如果 intX > 0 并且 intY > 0 则
- (鼠标)移动到 (intX, intY)
- 跳出循环
- 否则
- (语句无法识别,可能有错误): If tdPD = 3 Then tdPD = -1 '找不到设定的状态,就找下一种状态'
- 令 tdPD = tdPD + 1
- 条件结束
- 循环结束