vb.net模拟鼠标动作 vbs模拟鼠标

用VB.NET模拟鼠标和键盘动作？不用API模拟，用API的我会！ 用.NET框架的类库怎么模拟呢？

.net框架就是对API就行封装，做成一个个的类然后可以让你轻松调用，但是。net封装的内容，是常用的内容，有些东西用的时候，还是需要调用API函数，自己写，毕竟，微软不知道你要用什么函数，所以尽可能的满足用户大众口味而已。如果你需要用的比较复杂，还是调用API自己写类吧。

希望我的回答对您有所帮助

相关问答

Q1: VB中模仿鼠标动作

使用API函数mouse_event:

函数如下:

dwFlags常数

意义

MOUSEEVENTF_MOVE

H1

移动鼠标

MOUSEEVENTF_LEFTDOWN

H2

模拟鼠标左键按下

MOUSEEVENTF_LEFTUP

H4

模拟鼠标左键抬起

MOUSEEVENTF_RIGHTDOWN

H8

模拟鼠标右键按下

MOUSEEVENTF_RIGHTUP

H10

模拟鼠标右键抬起

MOUSEEVENTF_MIDDLEDOWN

H20

模拟鼠标中键按下

MOUSEEVENTF_MIDDLEUP

H40

模拟鼠标中键抬起

MOUSEEVENTF_ABSOLUTE

H8000

标示是否采用绝对坐标

这样就可以实现vb.net模拟鼠标动作你vb.net模拟鼠标动作的第一和第二

拖动vb.net模拟鼠标动作的原理是

鼠标左键按下-移动到坐标-鼠标左键弹起就可以解决3vb.net模拟鼠标动作了

Q2: 如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中的声明：

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)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模拟鼠标左键按下

Q3: VB.NET模拟鼠标问题

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 的详解，大致使用如上

vb.net模拟鼠标动作的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs模拟鼠标、vb.net模拟鼠标动作的信息别忘了在本站进行查找喔。