请问使用按键精灵找图怎么才能不受电脑分辨率还有桌面主题的影响

发布网友 发布时间：2024-10-24 02:33

我来回答

共2个回答

热心网友 时间：4分钟前

写了个示例，自己改改吧...
Dim x,y，xcheck,ycheck
rem first
inputx = inputbox("输入边框宽度X数值")
xcheck=IsNumeric(inputx)
Select Case xcheck
Case True
x=inputx
Case False
MsgBox ("输入必须是数字！你输入的X是："&inputx)
Goto first
End Select
inputy = inputbox("输入边框高度Y数值")
ycheck=IsNumeric(inputy)
Select Case ycheck
Case True
y=inputy
Case False
MsgBox ("输入必须是数字！你输入的Y是："&inputy)
Goto first
End Select
MsgBox ("X等于" &x)
MsgBox ("Y等于" &y)
Dim MyVar, MyCheck
MyVar = 53 '赋值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

//x=3
//=29
//边框值，偏移量
MessageBox "2秒"
Delay 2000
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Move(Hwnd, 0, 0)
Rem a
Sub 坐标转换

winRect = Plugin.Window.GetClientRect(Hwnd)
winPoint = Split(winRect, "|", -1, 1)
AbsX = CInt(winPoint(0)) + PosX - x
AbsY = CInt(winPoint(1)) + PosY - y
//MoveTo AbsX,AbsY
PosX = AbsX
PosY = AbsY
End Sub
PosX=579
PosY=222
Call 坐标转换()
IfColor PosX,PosY ,"E5FFFF",0 Then
Beep
Delay 1000
Else
End If
Goto a

热心网友 时间：1分钟前

Screeny = Plugin.Sys.GetScRY()
Screenx = Plugin.Sys.GetScRX()
用这2个获取分辨率，然后通过运算来确定脚本里面用到的坐标。