Question

VB.NET模拟鼠标问题

VB.net怎么模拟鼠标单击、双击之类的 有什么办法？如果用mouse_event，他的用法怎么样的？求解释。。

Answer 1

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

Dim postion1 As New Point

mouse_event(&H1 Or &H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换

mouse_event(&H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(&H4, 0, 0, 0, 0) '鼠标左键弹起

msdn上有 mouse_event 的详解，大致使用如上

追问

为什么会不能运行呢，

这个是为什么