vb.net中后模拟点击 vbs 模拟鼠标点击

VB 怎么模拟点击网页中的按钮（button）

利用vb里的控件webbrowser访问这个网页，就能直接访问到它的源码。至于你想通过代码点击这个按钮是可以实现的，很多论坛自动发广告的程序就是这样实现的。不过我记得由于vb6的代码提示不全，不能通过代码提示找到这个功能。

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：主机域名、网络空间、营销软件、网站建设、新津县网站维护、网站推广。

如果你有vb.net的话，在form上拽个.net的webbrowser控件，然后你看看里面的代码提示。其中包括了操作模拟的功能，然后再把代码复制回vb6就能用了。

使用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')"

调用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中后模拟点击 vbs 模拟鼠标点击
转载来于：http://cdxtjz.cn/article/hhpseo.html