vbnet模拟试的简单介绍

vs2012 vb点虐 模拟网页按钮点击

使用webbrowser空间实现很简单

10年积累的成都网站设计、成都网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有灵璧免费网站建设让你可以放心的选择与我们合作。

一。 首先在碧乎窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument

其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")

最后执行onclick : mydom.onclick

二.还有想要实现点击，直接执行点击的相应函数即可例如：假设想实现点击下面的Inputbox

input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"返老/

那么直接漏慧升执行onclick里的函数busSwitchDiv('changeDiv')即可，执行语句如下：

WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"

VB.NET模拟键盘的方法

例：SendKeys.Send("4");

特殊宏吵键带“｛｝”普通直腔燃接蔽圆侍“”

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点虐 模拟 Win + D 显示桌面

显示桌面的本质是个系统 Shell（IShellDispatch4.ToggleDesktop()），所以升败闭只需要调用这个 Shell 就好了，用不枯纯着模拟按键。

项目引用 C:\Windows\System32\shell32.dll，参考代码：

Dim objShel As Shell32.ShellClass = New Shell32.ShellClass()

CType(objShel, 吵裂Shell32.IShellDispatch4).ToggleDesktop()