1.     调用 Bkgnd.MoveTo(h,54,200)
  2.     调用 Bkgnd.LeftClick(h,54,200)
  3.     标记 J(子程序 幸运币200)
  4.     调用 Bkgnd.MoveTo(h,408,305)
  5.     调用 Bkgnd.LeftClick(h,408,305)
  6.     延时 1000 毫秒
  7.     调用 Bkgnd.MoveTo(h,440,460)
  8.     调用 Bkgnd.LeftClick(h,440,460)
  9.     跳转到标记 j(子程序 幸运币200)
  10. 子程序结束
  11. 子程序 幸运币500
  12.     定义变量 h
  13.     令 h = Window.Find("GAMEAPP",0)
  14.     调用 Window.Move(h,0,0)
  15.     延时 1000 毫秒
  16.     调用 Msg.Tips("幸运币抽奖正常开启")
  17.     调用 Bkgnd.MoveTo(h,646,90)
  18.     调用 Bkgnd.LeftClick(h,646,90)
  19.     延时 1000 毫秒
  20.     调用 Bkgnd.MoveTo(h,54,333)
  21.     调用 Bkgnd.LeftClick(h,54,333)
  22.     标记 J1(子程序 幸运币500)
  23.     调用 Bkgnd.MoveTo(h,408,305)
  24.     调用 Bkgnd.LeftClick(h,408,305)
  25.     延时 1000 毫秒
  26.     调用 Bkgnd.MoveTo(h,440,460)
  27.     调用 Bkgnd.LeftClick(h,440,460)
  28.     跳转到标记 j1(子程序 幸运币500)
  29. 子程序结束
  30. 子程序 幸运币2000
  31.     定义变量 h
  32.     令 h = Window.Find("GAMEAPP",0)
  33.     调用 Window.Move(h,0,0)
  34.     延时 1000 毫秒
  35.     调用 Msg.Tips("幸运币抽奖正常开启")
  36.     调用 Bkgnd.MoveTo(h,646,90)
  37.     调用 Bkgnd.LeftClick(h,646,90)
  38.     延时 1000 毫秒
  39.     调用 Bkgnd.MoveTo(h,54,460)
  40.     调用 Bkgnd.LeftClick(h,54,460)
  41.     标记 J2(子程序 幸运币2000)
  42.     调用 Bkgnd.MoveTo(h,408,305)
  43.     调用 Bkgnd.LeftClick(h,408,305)
  44.     延时 1000 毫秒
  45.     调用 Bkgnd.MoveTo(h,440,460)
  46.     调用 Bkgnd.LeftClick(h,440,460)
  47.     跳转到标记 j2(子程序 幸运币2000)
  48. 子程序结束
  49. Event(Form1.Button25.Click)
  50. StopThread(幸运ID)
  51. 调用 Msg.Tips("幸运币抽奖正常开启")
  52. (语句无法识别，可能有错误): End Event
  53. Event(Form1.Button24.Click)
  54. (语句无法识别，可能有错误): 幸运ID = BeginThread(幸运币200)
  55. (语句无法识别，可能有错误): End Event
  56. Event(Form1.幸运币.SelectChange)
  57. 如果 Form1.幸运币.ListIndex = 0 则
  58.     调用 Msg.Tips("请选择")
  59. 条件结束
  60. 如果 Form1.幸运币.ListIndex = 1 则
  61.     (语句无法识别，可能有错误): 幸运ID = BeginThread(幸运币200)
  62.     调用 Msg.Tips("幸运币抽奖正常开启")
  63. 条件结束
  64. 如果 Form1.幸运币.ListIndex = 2 则
  65.     (语句无法识别，可能有错误): 幸运ID = BeginThread(幸运币500)
  66.     调用 Msg.Tips("幸运币抽奖正常开启")
  67. 条件结束
  68. 如果 Form1.幸运币.ListIndex = 3 则
  69.     (语句无法识别，可能有错误): 幸运ID = BeginThread(幸运币2000)
  70.     调用 Msg.Tips("幸运币抽奖正常开启")
  71. 条件结束
  72. (语句无法识别，可能有错误): End Event
  73. 子程序 掉房
  74.     循环开始
  75.         从左上到右下查找图片 "Attachment:\掉房.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
  76.         如果 intX > 0 并且 intY > 0 则
  77.             调用 掉线报警
  78.         条件结束
  79.     循环结束
  80. 子程序结束
  81. 子程序 掉线
  82.     循环开始
  83.         从左上到右下查找图片 "Attachment:\掉线.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
  84.         如果 intX > 0 并且 intY > 0 则
  85.             调用 掉线报警
  86.         条件结束
  87.     循环结束
  88. 子程序结束
  89. 注释：PK人
  90. 子程序 PK人1()
  91.     调用 Msg.Tips("PK锁人模式启动成功，当前锁定第1人")
  92.     定义变量 h
  93.     令 h = Window.Find("GAMEAPP",0)
  94.     调用 Window.Move(h,0,0)
  95.     延时 1000 毫秒
  96.     标记 J(子程序 PK人1)
  97.     调用 Bkgnd.MoveTo(h,650,120)
  98.     调用 Bkgnd.RightClick(h,650,120)
  99.     延时 100 毫秒
  100.     调用 Bkgnd.MoveTo(h,662,340)