Hwnd = Plugin.Window.Find(0, 传奇永恒)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myArray
myArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem fanhui
FindColor 1330+Ux,120+Uy,1377+Ux,169+Uy,"0004FF",intX,intY
If intX > 0 And intY > 0 Then
Qx=(intX-Ux-1349)*16+761+Ux
Qy=(intY-Uy-155)*16+312+Uy
MoveTo QX, Qy
Delay 1000
LeftClick 1
Delay 1000
Goto fanhui
End If
这个错误一定很多求大大耐心解教下。
想根据小地图找怪(2D的),目前没反应不显示血条。
比例不会算看教程死搬的。。。。。肯定错了。
帮我梳理下思路和要普及的知识。
看官网好困。