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

调用api

成都创新互联公司长期为近1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为夹江企业提供专业的做网站、网站制作，夹江网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

在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）模拟鼠标左键按下

vb按键控制鼠标移动

开始，控制面板，辅助功能选项，鼠标，选使用使用鼠标键

然后就可以通过数字键盘的2468来控制上下左右了

如何用VB控制鼠标键盘?

有个叫mouse_event的API可以做到，

Declare Sub mouse_event 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)

dx根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动

dy根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动

一般我们只更改前两个值,后面两个保持为0.

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

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

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

vb.net中如何执行键盘事件？

执行键盘事件方法如下：

第一步，点击VS工具。

第二步，打开后，新建一个Windows窗体应用程序。

第三步，请看右下方Form的属性栏。

第四步，双击KeyDown。

第五步，输入提示按键代码，如图所示。

第六步，再次输入代码，设置属性KeyPreview为true。

第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。

本文名称：vb.net鼠标键盘控制 vbs控制鼠标
转载来源：http://chengdu.cdxwcx.cn/article/hipiop.html