Question

vb 在指定位置自动点击鼠标

如图，我想让我的vb程序自动右键点击这个时间栏，然后弹出一个菜单。请问怎么做啊？
高手来啊！财富值我不吝啬，到时候再给200.

Answer 1

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 Sub Command1_Click()
SetCursorPos Screen.Width / Screen.TwipsPerPixelX - 40, Screen.Height / Screen.TwipsPerPixelY - 10 '设置鼠标位置
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起

End Sub

追问

不行呀？

追答

你声明都没对 Private Declare Sub mouse_event 你这里把下划线去掉了。
复制进去，不要自己打。

追问

哦对耶！~
但是你能再告诉我吗，为什么我点击了command1鼠标移动了但是没有按下鼠标呀？

追答

上面的代码是左键点击。。。XP不知道点左键有没有用 给你写常量，你自己定义或者直接用吧
Const MOUSEEVENTF_LEFTDOWN = &H2 左键按下
Const MOUSEEVENTF_LEFTUP = &H4 左键弹起
Const MOUSEEVENTF_MIDDLEDOWN = &H20 中键按下
Const MOUSEEVENTF_MIDDLEUP = &H40 中键弹起
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8 右键按下
Const MOUSEEVENTF_RIGHTUP = &H10 右键弹起
你自己改成右右键，不行的话试试按两次。还有确定你的坐标没问题。

Answer 2

需要用API