1. (语句无法识别，可能有错误): dnfPath="" //"游戏路径"
2. (语句无法识别，可能有错误): qqPath="" //"QQ号文本路径"
3. (语句无法识别，可能有错误): qqCount=1 //"QQ数量"
4. (语句无法识别，可能有错误): whichQQ=1 //"第几个号"
5. 令 redHowMuch = 1
6. 令 blueHowMuch = 1
7. 令 dnfPath = Form.dnfPath.Text
8. 令 qqPath = Form.qqPath.Text
9. 令 qqCount = Form.qqCount.Text
10. 令 whichQQ = Form.whichQQ.Text
11. 令 TempI = Form.ComboBox.ListIndex
12. 令 redHowMuch = Form.redHowMuch.Text
13. 令 blueHowMuch = Form.blueHowMuch.Text
14. 令 Model = Form.Model.ListIndex
15. 令 qqCount = CInt(qqCount)
16. 令 whichQQ = CInt(whichQQ)
17. 令 TempI = CInt(TempI)
18. 令 redHowMuch = CInt(redHowMuch)
19. 令 blueHowMuch = CInt(blueHowMuch)
20. 令 Model = CInt(Model)
21. (语句无法识别，可能有错误): /** temp varible **/
22. 注释：dnfPath = "D:\地下城与勇士\start\DNFchina.exe"
23. 注释：qqPath = "E:\西北2.txt"
24. 注释：qqCount = 5
25. 注释：whichQQ = 1
26. (语句无法识别，可能有错误): Dim QQNum //instore qq accout
27. (语句无法识别，可能有错误): Dim QQpass //instore qq passowrd
28. (语句无法识别，可能有错误): Dim region //instore each region
29. (语句无法识别，可能有错误): Dim services //instore each region every services
30. (语句无法识别，可能有错误): Dim CH //频道
31. 定义变量 bmp1
32. 定义变量 bmp2
33. 令 QQNum = ""
34. 令 QQpass = ""
35. 令 region = ""
36. 令 services = ""
37. 令 CH = ""
38. (语句无法识别，可能有错误): Dim roles(15) //角色数量 坐标
39. 令 roleNum = 0
40. 令 validateFlag = true
41. (语句无法识别，可能有错误): Dim loginConten //日志记录内容
42. 令 loginConten = ""
43. 注释：16个角色坐标
44. 令 roles(0) = "90,190"
45. 令 roles(1) = "220,190"
46. 令 roles(2) = "350,190"
47. 令 roles(3) = "480,190"
48. 令 roles(4) = "610,190"
49. 令 roles(5) = "740,190"
50. 令 roles(6) = "90,400"
51. 令 roles(7) = "220,400"
52. 令 roles(8) = "350,400"
53. 令 roles(9) = "480,400"
54. 令 roles(10) = "610,400"
55. 令 roles(11) = "740,400"
56. 令 roles(12) = "90,190"
57. 令 roles(13) = "220,190"
58. 令 roles(14) = "350,190"
59. 令 roles(15) = "480,190"
60. 注释：日志记录 文件
61. 令 s = FormatDateTime(Date,0)
62. 令 loginFileName = "E:\login\" & s & ".txt"
63. 调用 File.CreateFolder("E:\login")
64. 如果 TempI = 0 则
65.     令 bmp1 = "小红"
66.     令 bmp2 = "小蓝"
67. 否则如果 TempI = 1 则
68.     令 bmp1 = "中红"
69.     令 bmp2 = "中蓝"
70. 否则
71.     令 bmp1 = "大红"
72.     令 bmp2 = "大蓝"
73. 条件结束
74. 循环当 whichQQ <= qqCount 时
75.     调用 dnfLogin(whichQQ)
76.     延时 1000 毫秒
77.     令 roleNum = 0
78.     循环 2 次
79.         调用 arrangePack(bmp1,bmp2,TempI)
80.         延时 100 毫秒
81.         令 roleNum = roleNum + 1
82.         如果 roleNum < 2 则
83.             调用 switchRoles(roleNum)
84.         条件结束
85.     循环结束
86.     令 loginConten = loginConten & "====" & whichQQ
87.     注释：TracePrint loginConten
88.     调用 recordLogin(whichQQ,loginConten,loginFileName)
89.     调用 finishGame()
90.     令 whichQQ = whichQQ + 1
91. 循环结束
92. (语句无法识别，可能有错误): /*
93. (语句无法识别，可能有错误): *@Fun restart run application software
94. (语句无法识别，可能有错误): *@arg2 every application software install path
95. (语句无法识别，可能有错误): *@retun null
96. (语句无法识别，可能有错误): **/
97. 函数 reStartApp()
98.     调用 （命令库 系统）结束进程("DNFchina.exe")
99.     延时 8000 毫秒
100.     调用 dnfLogin(whichQQ)