vs2012 vb.net 模拟网页按钮点击

使用webbrowser空间实现很简单

建网站原本是网站策划师、网络程序员、网页设计师等，应用各种网络程序开发技术和网页设计技术配合操作的协同工作。创新互联专业提供网站制作、成都网站建设,网页设计,网站制作(企业站、响应式网站、电商门户网站)等服务,从网站深度策划、搜索引擎友好度优化到用户体验的提升,我们力求做到极致!

一。 首先在窗体头部定义 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模拟按下空格键

用API函数，但是vb.net与vb6的API声明不一样的。代码如下：

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Const KEYEVENTF_KEYUP = H2

Const VK_SPACE = H20

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

keybd_event(VK_SPACE, 0, 0, 0)

keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0)

End Sub

如有问题，消息问我。我通常不看回答后的旧贴。

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

vb.net 中webbroser 如何模拟按下网页中一按钮

对象都有一个序号的，可以查找对象类型和值来确定这个对象的序号，然后发送 对象.click。

分享文章：vb.net模拟按下 c#模拟点击
网站链接：http://pwwzsj.com/article/doopdsj.html