代码已经改成后台
但是坐标 句柄值你要自己想办法了
hwnd=句柄
Rem start
Call Plugin.Bkgnd.LeftClick(Hwnd, 679,451)
dim time
Rem b
time = now
Rem a
If datediff("s", time, now) >= 25 Then
Goto start
Else
XY = Plugin.Bkgnd.FindColorEx(Hwnd, 578,627,653,664, "06DCDA", 0, 0.5)
ZB = InStr(XY, "|")
intX = Clng(Left(XY, ZB - 1)): intY = Clng(Right(XY, Len(XY) - ZB))
If intX > 0 And intY > 0 Then
IfColor 612,477,"C0CFD0",2 Then
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd, 679,451)
Delay 4200
Call Plugin.Bkgnd.LeftClick(Hwnd, 679,451)
Goto c
End If
End If
Goto a
Rem c
Goto b
End If