1. 令 Hwnd = Window.Find(WSGAME,0)
  2. 令 sText = Window.GetText(Hwnd)
  3. 令 HwndEx = Window.Search("梦幻西游ONLINE")
  4. 注释:MsgBox "查找到符合的窗口句柄为:"& HwndEx
  5. 注释:下面这句用于分割字符串,将获得的句柄组分割
  6. 用户定义变量 RW1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物1"
  7. 用户定义变量 BB1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝1"
  8. 用户定义变量 RW2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物2"
  9. 用户定义变量 BB2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝2"
  10. 用户定义变量 RW3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物3"
  11. 用户定义变量 BB3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝3"
  12. 用户定义变量 RW4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物4"
  13. 用户定义变量 BB4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝4"
  14. 用户定义变量 RW5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物5"
  15. 用户定义变量 BB5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝5"
  16. 定义变量 MyArray
  17. 令 MyArray = Split(HwndEx,"|")
  18. 令 窗口1 = Clng(Myarray(0))
  19. 令 窗口3 = Clng(Myarray(1))
  20. 令 窗口2 = Clng(Myarray(2))
  21. 令 窗口4 = Clng(Myarray(3))
  22. 令 窗口5 = Clng(Myarray(4))
  23. 调用 Window.Move(窗口1,0,0)
  24. 调用 Window.Move(窗口2,0,505)
  25. 调用 Window.Move(窗口3,646,0)
  26. 调用 Window.Move(窗口4,646,505)
  27. 调用 Window.Move(窗口5,1034,0)
  28. 调用 复位
  29. 令 i = 0
  30. 令 yanchi = 200
  31. 循环当 true 时
  32.     如果 rw1 = 3 则
  33.     否则
  34.         调用 战斗1
  35.     条件结束
  36.     如果 rw2 = 3 则
  37.     否则
  38.         调用 战斗2
  39.     条件结束
  40.     如果 rw3 = 3 则
  41.     否则
  42.         调用 战斗3
  43.     条件结束
  44.     如果 rw4 = 3 则
  45.     否则
  46.         调用 战斗4
  47.     条件结束
  48.     如果 rw5 = 4 则
  49.     否则
  50.         调用 战斗5
  51.     条件结束
  52. 循环结束
  53. 注释:
  54. 子程序 bbb
  55.     如果 UBound(MyArray) >= 0 则
  56.         令 i = 0
  57.         循环 UBound(MyArray) 次
  58.             注释:下面这句将字符串转换成数值
  59.             Msgbox("第 " & i + 1 & " 个窗口句柄为:" & Clng(MyArray(i)))
  60.             令 i = i + 1
  61.         循环结束
  62.     条件结束
  63. 子程序结束
  64. 子程序 防飘
  65.     定义变量 n, h
  66.     令 n = 1
  67.     令 h = 0
  68.     令 zx = 目标x
  69.     令 zy = 目标y
  70.     如果 zx < 50 + 定位点x 或者 zx > 540 + 定位点x 则
  71.         如果 zx < 50 + 定位点x 则
  72.             令 zzx = zx + 40
  73.         条件结束
  74.         如果 zx > 540 + 定位点x 则
  75.             令 zzx = zx - 40
  76.         条件结束
  77.     否则
  78.         令 zzx = zx
  79.     条件结束
  80.     如果 zy < 50 + 定位点y 或者 zy > 400 + 定位点y 则
  81.         如果 zy < 50 + 定位点y 则
  82.             令 zzy = zy + 40
  83.         条件结束
  84.         如果 zy > 400 + 定位点y 则
  85.             令 zzy = zy - 40
  86.         条件结束
  87.     否则
  88.         令 zzy = zy
  89.     条件结束
  90.     (鼠标)移动到 (zzx, zzy)
  91.     延时 100 毫秒
  92.     标记 py(子程序 防飘)
  93.     令 mz = 0
  94.     调用 从左上到右下查找图片 "Attachment:\鼠标.bmp",把找到的坐标保存到 (x1, y1),指定区域(左:定位点x 上:定位点y 右:限制x 下:限制y),相似度 0.9
  95.     如果 x1 >= 0 并且 y1 >= 0 则
  96.         令 a = zx - x1 + 18
  97.         令 b = zy - y1 + 12
  98.     否则
  99.         调用 从左上到右下查找图片 "Attachment:\剑.bmp",把找到的坐标保存到 (x1, y1),指定区域(左:定位点x 上:定位点y 右:限制x 下:限制y),相似度 0.9
  100.         如果 x1 >= 0 并且 y1 >= 0 则