1. (语句无法识别，可能有错误): /**
2. (语句无法识别，可能有错误): *@ namne DNF自动登录分材料
3. (语句无法识别，可能有错误): *@ author onRoad 有共同学习者请加 QQ 2801623141
4. (语句无法识别，可能有错误): *@ data 2012-10-20
5. (语句无法识别，可能有错误): *@ Coyright
6. (语句无法识别，可能有错误): *
7. (语句无法识别，可能有错误): */
8. (语句无法识别，可能有错误): dnfPath="" //"游戏路径"
9. (语句无法识别，可能有错误): qqPath="" //"QQ号文本路径"
10. (语句无法识别，可能有错误): qqCount=1 //"QQ数量"
11. (语句无法识别，可能有错误): whichQQ=1 //"第几个号"
12. (语句无法识别，可能有错误): bigMoney=0 //"大号分给小号金钱数量"
13. (语句无法识别，可能有错误): smallMoney=0 //"小号交个大号金钱数量"
14. (语句无法识别，可能有错误): roleCount=0 //"小号角色数量"
15. (语句无法识别，可能有错误): switchRolesCount=0 //"取一次材料交给多少个角色"
16. (语句无法识别，可能有错误): weiRui = "" //微锐上传密码串
17. (语句无法识别，可能有错误): wsjk=0 //"无色小金块"
18. (语句无法识别，可能有错误): hsjk=0 //"黑色小金块"
19. (语句无法识别，可能有错误): lyt=0 //"炉岩炭"
20. (语句无法识别，可能有错误): sbp=0 //"碎布片"
21. 注释：Dim dnfPath //Dnf insert path
22. 注释：Dim roleCount //dnf role numbers
23. 注释：
24. 注释：/** temp varible **/
25. 注释：
26. 注释：dnfPath = "D:\地下城与勇士\start\DNFchina.exe"
27. 注释：qqPath = "E:\西北2.txt"
28. 注释：roleCount = 16
29. 注释：qqCount = 5
30. 注释：whichQQ = 1
31. 注释：switchRolesCount = 8
32. 令 dnfPath = Form.dnfPath.Text
33. 令 qqPath = Form.qqPath.Text
34. 令 qqCount = Form.qqCount.Text
35. 令 whichQQ = Form.whichQQ.Text
36. 令 roleCount = Form.roleCount.Text
37. 令 switchRolesCount = Form.switchRolesCount.Text
38. 令 bigMoney = Form.bigMoney.Text
39. 令 smallMoney = Form.smallMoney.Text
40. 令 wsjk = Form.wsjk.Text
41. 令 hsjk = Form.hsjk.Text
42. 令 lyt = Form.lyt.Text
43. 令 sbp = Form.sbp.Text
44. 令 weiRui = Form.weiRui.Text
45. 令 qqCount = CInt(qqCount)
46. 令 whichQQ = CInt(whichQQ)
47. 令 roleCount = CInt(roleCount)
48. 令 bigMoney = CInt(bigMoney)
49. 令 smallMoney = CInt(smallMoney)
50. (语句无法识别，可能有错误): /****************************************/
51. (语句无法识别，可能有错误): /* handle DNF log info com from file for read */
52. (语句无法识别，可能有错误): Dim QQNum //instore qq accout
53. (语句无法识别，可能有错误): Dim QQpass //instore qq passowrd
54. (语句无法识别，可能有错误): Dim region //instore each region
55. (语句无法识别，可能有错误): Dim services //instore each region every services
56. (语句无法识别，可能有错误): Dim CH //频道
57. 令 QQNum = ""
58. 令 QQpass = ""
59. 令 region = ""
60. 令 services = ""
61. 令 CH = ""
62. 注释：窗口句柄
63. 定义变量 hand
64. 定义变量 Hwnd
65. (语句无法识别，可能有错误): Dim validateFlag //tmep varible flag
66. (语句无法识别，可能有错误): Dim roleNum //which role
67. (语句无法识别，可能有错误): Dim tempI //循环次数临时变量
68. (语句无法识别，可能有错误): Dim roles(15) //角色数量 坐标
69. (语句无法识别，可能有错误): Dim judgeX, judgeY //验证码起始坐标
70. (语句无法识别，可能有错误): Dim Answer //微锐返回验证码值
71. 令 Answer = ""
72. 令 judgeX = 0
73. 令 judgeY = 0
74. 令 roleNum = 0
75. 令 tempI = 1
76. 令 validateFlag = true
77. 令 tWsjk = wsjk * switchRolesCount
78. 令 tHsjk = hsjk * switchRolesCount
79. 令 tLyt = lyt * switchRolesCount
80. 令 tSbp = sbp * switchRolesCount
81. 令 tempI = roleCount / switchRolesCount
82. (语句无法识别，可能有错误): Dim loginConten //日志记录内容
83. 令 loginConten = ""
84. 注释：16个角色坐标
85. 令 roles(0) = "90,190"
86. 令 roles(1) = "220,190"
87. 令 roles(2) = "350,190"
88. 令 roles(3) = "480,190"
89. 令 roles(4) = "610,190"
90. 令 roles(5) = "740,190"
91. 令 roles(6) = "90,400"
92. 令 roles(7) = "220,400"
93. 令 roles(8) = "350,400"
94. 令 roles(9) = "480,400"
95. 令 roles(10) = "610,400"
96. 令 roles(11) = "740,400"
97. 令 roles(12) = "90,190"
98. 令 roles(13) = "220,190"
99. 令 roles(14) = "350,190"
100. 令 roles(15) = "480,190"