读书人

vb 点击窗体指定坐标 比如X:50 Y:80

发布时间: 2012-02-29 16:44:11 作者: rapoo

vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体最小化了也能点击)
vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体最小化了也能点击)

[解决办法]
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_ABSOLUTE = &H8000

Call SetCursorPos(50, 80)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
-----------
sendmessage 也可以
[解决办法]
很好奇在窗体最小化时楼主是通过何种鼠标操作点击到指定坐标的?

读书人网 >VB

热点推荐