//查找窗口类名(0)或者标题("LaTale Client"),返回找到的句柄Hwnd
Hwnd = Plugin.Window.Find(0, "LaTale Client")
//TracePrint Hwnd
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myarray
myarray = Split(sRect,"|")
ux = CLng(myarray(0))
uy = CLng(myarray(1))
XY=Plugin.Color.FindMutiColor(0,0,800,600,"614C31","-2|-5|000000,-2|-9|000000,-2|-10|FFFFFF,-1|-10|FFFFFF",1)
Dim 多点坐标 //注意找图找不到, 就用抓抓里的多点抓点找
多点坐标= Split(XY,"|")
xx=CLng(多点坐标(0))
yy=CLng(多点坐标(1))
//TracePrint xx&yy
If xx > 0 and yy > 0 Then
TracePrint "找到人物等级图标"&xx&yy
MoveTo xx+ux,yy+uy
End If
XY1=Plugin.Color.FindMutiColor(xx-400,yy-50,xx+400,yy+50,"A1E8FF","1|0|A1E8FF,0|1|A1E8FF,1|1|FFFFFF,2|1|FFFFFF,4|2|FFFFFF,5|3|79ABFE,7|2|8ECAFE,9|1|A1E8FF",1)
dim 多点怪物
多点怪物 = Split(XY1, "|")
xxx = CInt(多点怪物(0)): yyy = CInt(多点怪物(1))
If xxx > 0 and yyy > 0 Then
TracePrint "找到怪物图标"&xx&yy
MoveTo xxx+ux,yyy+uy
If xxx < xx+ux Then
TracePrint "怪在左边"
Else
TracePrint "怪在右边"
End If
End If