- 小学三年级
- 707995
- 62
- 0
- 57 朵
- 203 个
- 280 个
- 3680
- 2011-07-12
|
1#
t
T
发表于 2021-11-12 18:03
|
|只看楼主
新手通常都不理解后台和前台坐标的区别,以下代码可以直接获取后台坐标到剪切版,粘贴就可以得到。高手为了方便也可以使用哦。启动时将鼠标对准需要获取的点- Call get()
- EndScript
- Sub get()
- Dim Hwnd,sRect,MyArray
- Hwnd = Plugin.Window.MousePoint()
- 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)
- End sub
复制代码
|