|
- 高中三年级
- 1638990
- 704
- 0
- 25 朵
- 331 个
- 347 个
- 9180
- 2013-02-24
|
2#
t
T
发表于 2026-03-25 17:30
|
|只看该用户
有前台获取和后台获取的区别,前台获取可以通过GetCursorPos这个函数,后台获取的话,有GetPixelColor函数,也可以通过按键抓抓工具获取指定点的坐标。还可以通过获取窗口客户区大小获取鼠标的相对位置,结合GetClientRect函数进行计算。 - Do
- GetCursorPos x, y
- TracePrint ("当前鼠标坐标位置(x,y):"&x&","&y)
- Delay 100
- Loop
复制代码窗口客户区域大小计算获取 - RunApp "notepad.exe"
- Delay 1000
- Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
- sRect = Plugin.Window.GetClientRect(Hwnd)
- //分割窗口客户区域大小返回值
- xy = split(sRect, "|")
- Ux = xy(0) //窗口左上角X坐标
- Uy = xy(1) //窗口左上角Y坐标
- Cx = xy(2)//窗口右下角X坐标
- Cy = xy(3)//窗口右下角Y坐标
- TracePrint ("UX:" & Ux & ",Uy:" & Uy & "-Cx:" & Ux & "Cy:" & Uy)
- Delay 100
- Call Plugin.Msg.ShowScrTXT(Ux+300, Uy-50, Cx, Cy, "下面即将开启鼠标移动演示", "0000FF")
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "屏幕坐标:0,0", "0000FF")
- Delay 100
- MoveTo 0,0
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "相对坐标:120,200", "0000FF")
- Delay 100
- MoveTo Ux + 120, Uy + 200
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "相对坐标:220,300", "0000FF")
- Delay 100
- MoveTo Ux + 220, Uy + 300
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "相对坐标:320,200", "0000FF")
- Delay 100
- MoveTo Ux + 320, Uy + 200
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "相对坐标:420,200", "0000FF")
- Delay 100
- MoveTo Ux + 420, Uy + 200
- Delay 1000
- Call Plugin.Msg.ShowScrTXT(Ux + 300, Uy - 50, Cx, Cy, "相对坐标:520,200", "0000FF")
- Delay 100
- MoveTo Ux + 520, Uy + 200
- Call Plugin.Msg.HideScrTXT()
复制代码
|