1. 注释： Delay 200
  2. 注释： KeyUp 18, 1
  3. 注释： Delay 200
  4. 注释： KeyDown 18, 1
  5. 注释： Delay 200
  6. 注释： KeyPress 65, 1
  7. 注释： Delay 200
  8. 注释： KeyUp 18, 1
  9. 注释： Delay 200
  10. 注释： End If
  11. 注释：End Sub
  12. 注释：Sub 战斗判断()
  13. 注释： IfColor Ux+636,Uy+122,"605000",0 Then
  14. 注释： Goto 开始挂机
  15. 注释： End If
  16. 注释：End Sub
  17. 注释：Goto 开始挂机
  18. 注释：
  19. 子程序 找色(a,b,色,点击x,点击y)
  20.     令 色1 = 得到指定点 (Ux + a, Uy + b) 的颜色
  21.     向调试窗口输出：色1
  22.     如果 色1 = 色 则
  23.         调用 点击(点击x,点击y)
  24.         令 i = i + 1
  25.     否则
  26.         延时 500 毫秒
  27.     条件结束
  28. 子程序结束
  29. 子程序 点击(cx,cy)
  30.     （鼠标）移动到 (Ux + cx, Uy + cy)
  31.     延时 200 毫秒
  32.     （鼠标）左键单击, 1次
  33. 子程序结束
  34. Event(Form1.InputBox1.Change)
  35. 令 帐号1 = Form1.InputBox1.Text
  36. (语句无法识别，可能有错误): End Event
  37. Event(Form1.InputBox2.Change)
  38. 令 密码1 = Form1.InputBox2.Text
  39. (语句无法识别，可能有错误): End Event
  40. Event(Form1.InputBox3.Change)
  41. 令 帐号2 = Form1.InputBox3.Text
  42. (语句无法识别，可能有错误): End Event
  43. Event(Form1.InputBox4.Change)
  44. 令 密码2 = Form1.InputBox4.Text
  45. (语句无法识别，可能有错误): End Event
  46. Event(Form1.InputBox5.Change)
  47. 令 帐号3 = Form1.InputBox5.Text
  48. (语句无法识别，可能有错误): End Event
  49. Event(Form1.InputBox6.Change)
  50. 令 密码3 = Form1.InputBox6.Text
  51. (语句无法识别，可能有错误): End Event
  52. Event(Form1.InputBox7.Change)
  53. 令 帐号4 = Form1.InputBox7.Text
  54. (语句无法识别，可能有错误): End Event
  55. Event(Form1.InputBox8.Change)
  56. 令 密码4 = Form1.InputBox8.Text
  57. (语句无法识别，可能有错误): End Event
  58. Event(Form1.Button1.Click)
  59. 延时 1000 毫秒
  60. 调用 自动登陆(帐号1,密码1)
  61. (语句无法识别，可能有错误): End Event
  62. Event(Form1.Button2.Click)
  63. 延时 1000 毫秒
  64. 调用 自动登陆(帐号2,密码2)
  65. (语句无法识别，可能有错误): End Event
  66. Event(Form1.Button3.Click)
  67. 延时 1000 毫秒
  68. 调用 自动登陆(帐号3,密码3)
  69. (语句无法识别，可能有错误): End Event
  70. Event(Form1.Button4.Click)
  71. 延时 1000 毫秒
  72. 调用 自动登陆(帐号4,密码4)
  73. (语句无法识别，可能有错误): End Event