- 令 Hwnd = Window.Find(0,"魔兽世界")
- 令 sRect = Window.GetClientRect(Hwnd)
- 定义变量 MyArray
- 令 MyArray = Split(Rect,"|")
- 令 Ux = clng(MyArray(0))
- 令 Uy = clng(MyArray(1))
- (键盘)按 "Home" 键, 15次
- 标记 diaoyu1
- 循环 20 次
- 调用 diaoyu()
- 循环结束
- 子程序 diaoyu()
- (键盘)按 "1" 键, 1次
- 循环当 i = 0 时
- 从左上到右下查找图片 "Attachment:\yupiao3.bmp",把找到的坐标保存到 (yupiaoX, yupiaoY),指定区域(左:Ux + 128 上:Uy + 160 右:Ux + 625 下:Uy + 384),相似度 0.7
- 如果 yupiaoX > 0 并且 yupiaoY > 0 则
- 令 i = 1
- (鼠标)移动到 (yupiaoX, yupiaoY)
- 保存鼠标位置
- 条件结束
- 循环结束
- 延时 100 毫秒
- 循环当 i = 0 时
- (鼠标)移动到 (Ux + 126, Uy + 158)
- 延时 100 毫秒
- 恢复鼠标位置
- 如果 not shape = 返回当前鼠标的形状特征(1053591638) 则
- 令 i = 1
- (鼠标)右键单击, 20次
- 条件结束
- 循环结束
- 子程序结束
- (键盘)按 "Enter" 键, 1次
- (键盘)按 "/" 键, 1次
- (键盘)按 "T" 键, 1次
- (键盘)按 "A" 键, 1次
- (键盘)按 "R" 键, 1次
- (键盘)按 "Space" 键, 1次
- Event(Form1.Loadover)
- (语句无法识别,可能有错误): End Event
- (键盘)按 "Enter" 键, 1次
- (键盘)按 "=" 键, 1次
- 从左上到右下查找图片 "Attachment:\钓鱼技能.bmp",把找到的坐标保存到 (jinengX, jinengY),指定区域(左:Ux 上:Uy 右:Ux + 350 下:Uy + 384),相似度 1
- 如果 jinengX > 0 并且 jinengY > 0 则
- (鼠标)移动到 (jinengX + 5, jinengY + 3)
- (鼠标)左键单击, 1次
- 从左上到右下查找图片 "Attachment:\训练.bmp",把找到的坐标保存到 (xunlianX, xunlianY),指定区域(左:Ux 上:Uy 右:Ux + 600 下:Uy + 550),相似度 1
- 如果 xunlianX > 0 并且 xunlianY > 0 则
- (鼠标)移动到 (xunlianX + 5, xunlianY + 3)
- (鼠标)左键单击, 1次
- 条件结束
- 否则
- (键盘)按 "1" 键, 1次
- 条件结束
- 跳转到标记 diaoyu1