- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,364,273)
- 调用 Bkgnd.LeftClick(Hwnd,364,273)
- 跳出循环
- 否则
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,452,226,461,234,"0000AC")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,442,270)
- 调用 Bkgnd.LeftClick(Hwnd,442,270)
- 跳出循环
- 否则
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,524,226,533,234,"0000AC")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,511,277)
- 调用 Bkgnd.LeftClick(Hwnd,511,277)
- 跳出循环
- 否则
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,589,226,598,229,"0000AC")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,584,276)
- 调用 Bkgnd.LeftClick(Hwnd,584,276)
- 跳出循环
- 否则
- 令 YC = YC + 1
- 如果 YC = 10 则
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,769,188,772,190,"03235A")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,770,189)
- 调用 Bkgnd.LeftClick(Hwnd,770,189)
- 条件结束
- 条件结束
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,850,245)
- 调用 Bkgnd.LeftClick(Hwnd,850,245)
- 延时 200 毫秒
- 条件结束
- 条件结束
- 条件结束
- 条件结束
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,386,229,389,233,"0000AB")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,364,273)
- 调用 Bkgnd.LeftClick(Hwnd,364,273)
- 跳出循环
- 条件结束
- 循环结束
- 延时 200 毫秒
- 循环开始
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,524,249,548,261,"32EDEB")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,544,254)
- 调用 Bkgnd.LeftClick(Hwnd,544,254)
- 跳出循环
- 否则
- 延时 200 毫秒
- 条件结束
- 循环结束
- 延时 200 毫秒
- 令 JRW = 0