// 使用说明：新建脚本，点调试。 鼠标放到游戏窗口，启动 会输出鼠标的点位坐标，与游戏窗口大小。 

Call get()
EndScript

Sub get()
    Dim Hwnd,sRect,MyArray
    Hwnd = Plugin.Window.MousePoint()

    // 设置游戏窗口大小,与游戏脚本保持同一分辨率抓点
    Call Plugin.Window.Size(Hwnd, 414, 780)

    sRect = Plugin.Window.GetClientRect(Hwnd)
    MyArray = Split(sRect, "|")
    //下面这句将字符串转换成数值
    L = Clng(MyArray(0)): T = Clng(MyArray(1))
    R = Clng(MyArray(2)): B = Clng(MyArray(3))
    
    GetCursorPos x, y
	
	x=x-L:y=y-T
	Call Plugin.Sys.SetCLB("" & x & "," & y)
	TracePrint "鼠标点相对坐标:" & x & "," & y
	
	// todo 后台获取颜色目前暂时无法获取到微信小程序的值
	GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, x, y)
	TracePrint "鼠标点颜色:" & GetColor
	
	//下面这句是得到窗口句柄的客户区大小
	sRect = Plugin.Window.GetClientRect(Hwnd)
	
	//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
	
	MyArray = Split(sRect, "|")
	//下面这句将字符串转换成数值
	L = Clng(MyArray(0)): T = Clng(MyArray(1))
	R = Clng(MyArray(2)): B = Clng(MyArray(3))
	TracePrint "左" & L & ",右 " & R & ",上" & T & ",下" & B
	
	TracePrint "窗口大小为："& R - L  & "," & B - T

End sub