Function 自动寻路
截屏 (1000)
Dim 自动寻路中
自动寻路中 = zm.findcolor(260,552,310,580, "90DCED","7|-1|ADF0FD,-3|-1|002C55,-4|-9|6FC1D7,-12|-1|6DE5FF,-9|-9|61BDD7,-11|8|5FC8DF,-2|9|2C6281")
Do While 自动寻路中
截屏 (1000)
TracePrint 自动寻路中
zm.ShowMessage "自动寻路中", 3000, 0, 1266
TracePrint "自动寻路中......"
Loop
End Function