- 令 Hwnd = Window.Find(WSGAME,0)
- 令 sText = Window.GetText(Hwnd)
- 令 HwndEx = Window.Search("梦幻西游ONLINE")
- 注释:MsgBox "查找到符合的窗口句柄为:"& HwndEx
- 注释:下面这句用于分割字符串,将获得的句柄组分割
- 用户定义变量 RW1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物1"
- 用户定义变量 BB1=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝1"
- 用户定义变量 RW2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物2"
- 用户定义变量 BB2=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝2"
- 用户定义变量 RW3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物3"
- 用户定义变量 BB3=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝3"
- 用户定义变量 RW4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物4"
- 用户定义变量 BB4=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝4"
- 用户定义变量 RW5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=0 "人物5"
- 用户定义变量 BB5=DropList{"攻击":0|"防御":1|"法术":2|"无操作":3}=1 "宝宝5"
- 定义变量 MyArray
- 令 MyArray = Split(HwndEx,"|")
- 令 窗口1 = Clng(Myarray(0))
- 令 窗口3 = Clng(Myarray(1))
- 令 窗口2 = Clng(Myarray(2))
- 令 窗口4 = Clng(Myarray(3))
- 令 窗口5 = Clng(Myarray(4))
- 调用 Window.Move(窗口1,0,0)
- 调用 Window.Move(窗口2,0,505)
- 调用 Window.Move(窗口3,646,0)
- 调用 Window.Move(窗口4,646,505)
- 调用 Window.Move(窗口5,1034,0)
- 调用 复位
- 令 i = 0
- 令 yanchi = 200
- 循环当 true 时
- 如果 rw1 = 3 则
- 否则
- 调用 战斗1
- 条件结束
- 如果 rw2 = 3 则
- 否则
- 调用 战斗2
- 条件结束
- 如果 rw3 = 3 则
- 否则
- 调用 战斗3
- 条件结束
- 如果 rw4 = 3 则
- 否则
- 调用 战斗4
- 条件结束
- 如果 rw5 = 4 则
- 否则
- 调用 战斗5
- 条件结束
- 循环结束
- 注释:
- 子程序 bbb
- 如果 UBound(MyArray) >= 0 则
- 令 i = 0
- 循环 UBound(MyArray) 次
- 注释:下面这句将字符串转换成数值
- Msgbox("第 " & i + 1 & " 个窗口句柄为:" & Clng(MyArray(i)))
- 令 i = i + 1
- 循环结束
- 条件结束
- 子程序结束
- 子程序 防飘
- 定义变量 n, h
- 令 n = 1
- 令 h = 0
- 令 zx = 目标x
- 令 zy = 目标y
- 如果 zx < 50 + 定位点x 或者 zx > 540 + 定位点x 则
- 如果 zx < 50 + 定位点x 则
- 令 zzx = zx + 40
- 条件结束
- 如果 zx > 540 + 定位点x 则
- 令 zzx = zx - 40
- 条件结束
- 否则
- 令 zzx = zx
- 条件结束
- 如果 zy < 50 + 定位点y 或者 zy > 400 + 定位点y 则
- 如果 zy < 50 + 定位点y 则
- 令 zzy = zy + 40
- 条件结束
- 如果 zy > 400 + 定位点y 则
- 令 zzy = zy - 40
- 条件结束
- 否则
- 令 zzy = zy
- 条件结束
- (鼠标)移动到 (zzx, zzy)
- 延时 100 毫秒
- 标记 py(子程序 防飘)
- 令 mz = 0
- 调用 从左上到右下查找图片 "Attachment:\鼠标.bmp",把找到的坐标保存到 (x1, y1),指定区域(左:定位点x 上:定位点y 右:限制x 下:限制y),相似度 0.9
- 如果 x1 >= 0 并且 y1 >= 0 则
- 令 a = zx - x1 + 18
- 令 b = zy - y1 + 12
- 否则
- 调用 从左上到右下查找图片 "Attachment:\剑.bmp",把找到的坐标保存到 (x1, y1),指定区域(左:定位点x 上:定位点y 右:限制x 下:限制y),相似度 0.9
- 如果 x1 >= 0 并且 y1 >= 0 则