Question

我想做个程序，用vb编个窗口，窗口运行的时候，自动控制鼠标到指定位置，自动点击，(注:运行的时候，

我想做个程序，用vb编个窗口，窗口运行的时候，自动控制鼠标到指定位置，自动点击，(注:运行的时候，窗口是隐藏的，鼠标指针点击的位置有其他程序窗口的按钮)，例如，运行此窗口，能够自动将鼠标指针移动到桌面"开始"按钮 那 ，然后点击，这可以实现吗，要用什么函数，和语句？

Answer 1

在贴吧看到你提问了 这边在回答一次

可以用SetCursorPos函数设置鼠标位置 Mouse_Event函数执行鼠标动作
复制下列代码就能实现程序运行点击开始菜单了,你可以稍加了解这2个函数的作用就能达到你的编程目的

Private Declare Sub Mouse_Events Lib "user32" Alias "mouse_event" (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 Sub Form_Load()
    SetCursorPos 5, Screen.Height / Screen.TwipsPerPixelY   '设置鼠标位置
    Mouse_Events MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0   '执行鼠标按下动作
    Mouse_Events MOUSEEVENTF_LEFTUP, 0, 0, 0, 0     '执行鼠标弹起动作
End Sub

追问

比迁哥，我上网查了这两个函数

一知半解，有几个问题还是想请教您

"mouseeventf leftdown,0,0,0,0"后面四个0是什么设置？

鼠标坐标怎么设置？

dy,dx,参数决定鼠标坐标系中鼠标的绝对位置，，鼠标坐标系中屏幕的垂直和水平方向均匀分割成65535*65535个点，这怎么理解，

我怎么知道我要点击的位置坐标点是多少

不知道那我怎么设鼠标位置？

追答

后面那几个参数不要管 dy dx 是在dwFlags 为MOUSEEVENTF_ABSOLUTE才用到的，我们设置鼠标点击坐标用SetCursorPos

Answer 2

你可以使用按键精灵之类的写个脚本先试试

Answer 3

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 Sub Command1_Click()
SetCursorPos 20, 10000
mouse_event &H2, 0&, 0&, 0&, 0&
mouse_event &H4, 0&, 0&, 0&, 0&
End Sub