[按键精灵] 纯文本查看 复制代码 Sub 改名()
KeyPress "Back"
Dim ret
Dim X,Y
ret = zm.FindPic("退出捕鱼.png")
While ret(1) <= 0
KeyPress "Back"
ret = zm.FindPic("退出捕鱼.png")
Wend
Tap ret(1), ret(2)
//退出房间
ret = zm.FindPic("通用定位.png")
While ret(1) <= 0
ret = zm.FindPic("通用定位.png")
Wend
Tap ret(1), ret(2)
ShowMessage "到达选择房间"
End Sub
|