|
- 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 Sub Command1_Click()
- SetCursorPos 1805, 10 '这里可以改成你的位置
- mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '鼠标按下
- mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标弹起
- End Sub
复制代码
|
|