1. 调用 Sys.SetSc(1440,900,32)
2. 延时 3000 毫秒
3. 令 游戏路径 = Form1.DNF路径.Text
4. 令 判断是否是正确路径 = File.IsFileExit(游戏路径)
5. 如果 判断是否是正确路径 = True 则
6. 否则
7.     Msgbox("游戏文件不存在",1 + 32,"红遍江淮提示")
8.     脚本停止运行
9. 条件结束
10. 令 游戏服务器配置文件路径 = split(游戏路径,"DNFchina.exe")(0) & "UserSetting.ini"
11. 令 判断账号路径 = File.IsFileExit(Form1.DNF账号.Text)
12. 如果 判断账号路径 = True 则
13. 否则
14.     Msgbox("账号文档不存在",1 + 32,"红遍江淮提示")
15.     脚本停止运行
16. 条件结束
17. 调用 File.WriteINI("ServerSelection","LastSelectName",Form1.服务器.Text,游戏服务器配置文件路径)
18. 令 Text = File.ReadINI("游戏账号","账号" & Form1.账号几.Text,Form1.DNF账号.Text)
19. 令 QQ = split(Text,"|")
20. 令 a = QQ(1)
21. 如果 a = "" 则
22.     Msgbox("第" & Form1.账号几.Text & "组账号不存在",1 + 32,"红遍江淮提示")
23.     脚本停止运行
24. 条件结束
25. 启动程序或打开文件 游戏路径
26. 令 i = 8
27. 循环当 i > 0 时
28.     从左上到右下查找图片 "Attachment:\确认选择.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
29.     如果 intX > 0 并且 intY > 0 则
30.         （鼠标）移动到 (intX, intY)
31.         （鼠标）左键单击, 1次
32.         调用 Msg.Tips("在第" & 8 - i & "秒选服务器成功")
33.         令 i = - 2
34.     否则
35.         延时 1000 毫秒
36.         调用 Msg.Tips("倒计时" & i & "秒")
37.         令 i = i - 1
38.         如果 i = 0 则
39.             Msgbox("选取服务器失败，检测游戏服务器输入框的格式",1 + 32,"红遍江淮提示")
40.             脚本停止运行
41.         条件结束
42.     条件结束
43. 循环结束
44. 令 ii = 20
45. 循环当 ii > - 1 时
46.     从左上到右下查找图片 "Attachment:\安全检查完成.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
47.     如果 intX > 0 并且 intY > 0 则
48.         令 Text = File.ReadINI("游戏账号","账号" & Form1.账号几.Text,Form1.DNF账号.Text)
49.         令 QQ = split(Text,"|")
50.         令 QQ号码 = QQ(0)
51.         令 QQ密码 = QQ(1)
52.         （鼠标）移动到 (809, 517)
53.         （鼠标）左键单击, 1次
54.         （超级模拟键盘）按 "BackSpace" 键, 20次
55.         延时 500 毫秒
56.         调用 （命令库 键盘）KeyList(QQ号码,1,100)
57.         延时 500 毫秒
58.         （超级模拟键盘）按 Tab 键, 1次
59.         （鼠标）移动到 (705, 543)
60.         （鼠标）左键单击, 1次
61.         调用 （命令库 键盘）KeyList(QQ密码,1,100)
62.         （超级模拟键盘）按 "Enter" 键, 1次
63.         调用 Msg.Tips("在第" & 20 - ii & "秒正式进入游戏")
64.         令 ii = - 2
65.     否则
66.         延时 1000 毫秒
67.         调用 Msg.Tips("倒计时" & ii & "秒")
68.         令 ii = ii - 1
69.         如果 ii = 0 则
70.             Msgbox("游戏一直卡住，请确保网络顺畅",1 + 32,"红遍江淮提示")
71.             脚本停止运行
72.         条件结束
73.     条件结束
74. 循环结束