UC知道vb 怎么模拟鼠标右击？
来源：百度知道 编辑：UC知道 时间：2024/05/09 10:33:50
怎么模拟鼠标右击？
我想用VB写了个鼠标移动到某坐标后 自动点击鼠标右键。
但是不知道为什么会是 自动点击鼠标左键的。。。
高手过来9。9偶吧
原来写的。。。。
Private Sub Command1_Click()
SetCursorPos 416, 325
SetCursorPos 416, 321
mouse_event vbKeyRButton, 0, MOUSEEVENTF_RIGHTDOWN, 0, 0
End Sub
为什么会是 自动点击鼠标左键的呢？？
不会吧！！我怎么用你那不起什么作用哦。。。。
怎么弄的哦
我想用VB写了个鼠标移动到某坐标后 自动点击鼠标右键。
但是不知道为什么会是 自动点击鼠标左键的。。。
高手过来9。9偶吧
原来写的。。。。
Private Sub Command1_Click()
SetCursorPos 416, 325
SetCursorPos 416, 321
mouse_event vbKeyRButton, 0, MOUSEEVENTF_RIGHTDOWN, 0, 0
End Sub
为什么会是 自动点击鼠标左键的呢？？
不会吧！！我怎么用你那不起什么作用哦。。。。
怎么弄的哦
估计你没有声明常数MOUSEEVENTF_RIGHTDOWN，完整的程序：
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_RIGHTDOWN = &H8 '====看这里====
Private Sub Command1_Click()
SetCursorPos 416, 325
SetCursorPos 416, 321
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub
============================================================
参数写错位置了
API是不带vbKeyRButton玩的……
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
第一参数为按键，二三参数为鼠标位置偏移，四五参数是关于滚轮什么的的……