1.         循环结束
  2.     条件结束
  3. 子程序结束
  4. 子程序 窗口移动到左上角()
  5.     如果 h >= 1 则
  6.         调用 Window.Move(JB1,0,0)
  7.         延时 100 毫秒
  8.     条件结束
  9.     如果 h >= 2 则
  10.         延时 100 毫秒
  11.         调用 Window.Active(JB2)
  12.         延时 100 毫秒
  13.         调用 Window.Move(JB2,0,0)
  14.     条件结束
  15.     延时 100 毫秒
  16.     如果 h >= 3 则
  17.         延时 100 毫秒
  18.         调用 Window.Active(JB3)
  19.         延时 100 毫秒
  20.         调用 Window.Move(JB3,0,0)
  21.     条件结束
  22.     延时 100 毫秒
  23.     如果 h >= 4 则
  24.         延时 100 毫秒
  25.         调用 Window.Active(JB4)
  26.         延时 100 毫秒
  27.         调用 Window.Move(JB4,0,0)
  28.     条件结束
  29.     延时 100 毫秒
  30.     如果 h >= 5 则
  31.         延时 100 毫秒
  32.         调用 Window.Active(JB5)
  33.         延时 100 毫秒
  34.         调用 Window.Move(JB5,0,0)
  35.     条件结束
  36.     延时 100 毫秒
  37.     如果 h >= 6 则
  38.         延时 100 毫秒
  39.         调用 Window.Active(JB6)
  40.         延时 100 毫秒
  41.         调用 Window.Move(JB6,0,0)
  42.     条件结束
  43.     注释：返回大号
  44.     延时 100 毫秒
  45.     调用 Window.Active(JB1)
  46.     延时 100 毫秒
  47.     注释：====================================================窗口移到左上角结束
  48. 子程序结束
  49. 子程序 获取定点()
  50.     注释：获得窗口起始点坐标
  51.     令 Rect = Window.GetClientRect(JB1)
  52.     令 MyArrays = Split(Rect,"|")
  53.     令 Ux = CLng(MyArrays(0))
  54.     令 Uy = CLng(MyArrays(1))
  55. 子程序结束
  56. 子程序 游戏中x()
  57.     注释：检测背景
  58.     如果 h >= 1 则
  59.         调用 Window.Active(JB1)
  60.         延时 200 毫秒
  61.         （键盘）按 "Num -" 键, 2次
  62.         延时 5 毫秒
  63.         （键盘）按 "F12" 键, 1次
  64.         延时 5 毫秒
  65.         （键盘）按 "F2" 键, 1次
  66.         延时 200 毫秒
  67.     条件结束
  68.     注释：多开2
  69.     如果 h >= 2 则
  70.         调用 Window.Active(JB2)
  71.         延时 200 毫秒
  72.         （键盘）按 "Num -" 键, 2次
  73.         延时 5 毫秒
  74.         （键盘）按 "F12" 键, 1次
  75.         延时 5 毫秒
  76.         （键盘）按 "F2" 键, 1次
  77.         延时 200 毫秒
  78.     条件结束
  79.     注释：多开3
  80.     如果 h >= 3 则
  81.         调用 Window.Active(JB3)
  82.         延时 200 毫秒
  83.         （键盘）按 "Num -" 键, 2次
  84.         延时 5 毫秒
  85.         （键盘）按 "F12" 键, 1次
  86.         延时 5 毫秒
  87.         （键盘）按 "F2" 键, 1次
  88.         延时 200 毫秒
  89.     条件结束
  90.     注释：多开4
  91.     如果 h >= 4 则
  92.         调用 Window.Active(JB4)
  93.         延时 200 毫秒
  94.         （键盘）按 "Num -" 键, 2次
  95.         延时 5 毫秒
  96.         （键盘）按 "F12" 键, 1次
  97.         延时 5 毫秒
  98.         （键盘）按 "F2" 键, 1次
  99.         延时 200 毫秒
  100.     条件结束