VB自动点击电脑指定位置

じ南柯梦 · 发表于 2021-7-7 18:17:01

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

复制代码

		自动登录	找回密码
密码			立即注册

[编程开发] VB自动点击电脑指定位置