vb点虐 模拟点击 vba模拟点击-成都创新互联网站建设

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

vb点虐 模拟点击 vba模拟点击

用vb或c#或vb点虐 找到当前打开的浏览器窗口并模拟点击网页按钮

一般情况下都是自己开发一个浏览器的。

创新互联专注于中大型企业的成都网站设计、成都做网站和网站改版、网站营销服务,追求商业策划与数据分析、创意艺术与技术开发的融合,累计客户千余家,服务满意度达97%。帮助广大客户顺利对接上互联网浪潮,准确优选出符合自己需要的互联网运用,我们将一直专注成都品牌网站建设和互联网程序开发,在前进的路上,与客户一起成长!

有个工具叫做spy++,用于抓窗口和句柄,不过所用语言是c++,木有关系,c#可以调用c++。

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

调用api

在Visual Baisc点虐 中的声明:

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

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

使用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点虐 模拟点击 vba模拟点击
标题来源:http://kswsj.cn/article/ddcpoie.html

其他资讯