甭管什么英文不英文,你把下面的代码复制进去就知道什么意思了
Hwnd = Plugin.Window.Foreground()
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1024, 768, "80A7D3")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X > O Then
Call Plugin.Bkgnd.MoveTo(Hwnd, X, Y)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
End If
英文的,看不懂,我用的是中文的TC简单程序开发工具,功能强大,不用VB写界面的。