VB高手进来帮下忙。

2025-03-03 06:43:42

推荐回答（2个）

回答1：

'新建一个窗体，在窗体上添加Timer控件，名称为Timer1，Interval属性设置为15000（15妙），然后添加如下代码即可：
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_LEFTUP = &H4 ' 左键弹起
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' 左键按下

Private Sub Timer1_Timer()
SendKeys "^{Z}"
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '这里可以放左键按下的任意代码
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '这里可以放左键按下的任意代码
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '这里可以放左键按下的任意代码
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

回答2：

event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&