按键精灵怎样在“指定的窗口找色”? 20
想在一个指定的窗口里面找色,写好后在“该窗口”按热键运行。①自动获取句柄和窗口在桌面的位置③然后想在这个窗口里的“指定坐标”找“指定颜色”,窗口不管移到哪都有效。④颜色存...
想在一个指定的窗口里面找色,写好后在“该窗口”按热键运行。
①自动获取句柄和窗口在桌面的位置
③然后想在这个窗口里的“指定坐标”找“指定颜色”,窗口不管移到哪都有效。
④颜色存在则发出beep提示音,否则无操作。具体要怎么写呢? 展开
①自动获取句柄和窗口在桌面的位置
③然后想在这个窗口里的“指定坐标”找“指定颜色”,窗口不管移到哪都有效。
④颜色存在则发出beep提示音,否则无操作。具体要怎么写呢? 展开
展开全部
你要的代码具体情况还要你自己改一下
------------要用按键8-------------
dim MyArray
hwnd = Plugin.Window.MousePoint()
XY = lib.窗口.得到鼠标在窗口上位置()
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
C = Plugin.Bkgnd.GetPixelColor(hwnd,x,y)
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
If C="??????"
Call Plugin.Media.Beep(523, 200)
End If
MessageBox "鼠标指向的窗口句柄是" & hwnd & Chr(13) & Chr(10) &"左" & L & Chr(13) & Chr(10) & "右" & R & Chr(13) & Chr(10) & "上" & T & Chr(13) & Chr(10) & "下" & B & Chr(13) & Chr(10) & "鼠标在窗口的位置X,Y是" & X &","& Y & Chr(13) & Chr(10) & "该位置颜色是" & C
------------要用按键8-------------
dim MyArray
hwnd = Plugin.Window.MousePoint()
XY = lib.窗口.得到鼠标在窗口上位置()
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
C = Plugin.Bkgnd.GetPixelColor(hwnd,x,y)
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
If C="??????"
Call Plugin.Media.Beep(523, 200)
End If
MessageBox "鼠标指向的窗口句柄是" & hwnd & Chr(13) & Chr(10) &"左" & L & Chr(13) & Chr(10) & "右" & R & Chr(13) & Chr(10) & "上" & T & Chr(13) & Chr(10) & "下" & B & Chr(13) & Chr(10) & "鼠标在窗口的位置X,Y是" & X &","& Y & Chr(13) & Chr(10) & "该位置颜色是" & C
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询