请问使用按键精灵找图怎么才能不受电脑分辨率还有桌面主题的影响
2个回答
展开全部
写了个示例,自己改改吧...
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |