在VB的环境中如何让鼠标右键自动连击

Answer 1

首先BS一下1楼和3楼！
1楼的，没听说过不代表VB不行，是你不行！
3楼的，在制作教学软件时，这种方法经常需要用到的！所以你说有没有意义？

现在言归正传，VB模拟鼠标事件需要用到API来实现，具体如下：

'以下代码放在窗体模块中，如果要放在代码模块中请将Private改为Public
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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

然后，在需要的地方加入以下代码就可实现：

SetCursorPos xx,yy '这里的XX和YY就是准备把鼠标移到的位置
'现在模拟鼠标右键单击
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

以上就是模拟鼠标单击，如果需要连击，你可以使用一个Timer控件来帮助.
至于其他按键你通过以上常数就可以知道如何模拟了

Answer 2

如果单词点击右键你会的话就在while里连续调用右击函数就行了。

Answer 3

哇，VB代替人手来单击鼠标？真是新闻，没听说能行不？

Answer 4

有意义吗？