Question

vb 模拟鼠标左连续点击和键盘一直按着A键

vb 模拟鼠标左连续点击和键盘一直按着A键
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)

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

我用这个 他在那软件里可以点 但是一移开Command就不点了

Answer 1

模拟键盘按键代码
SendKeys "0"
SendKeys ("0")
SendKey "0"
自己试试吧，我都快忘了