网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net模拟点击屏幕 vba模拟点击

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或c#或vb.net 找到当前打开的浏览器窗口并模拟点击网页按钮

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

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

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.net模拟点击屏幕 vba模拟点击
网站URL:http://bjjierui.cn/article/doecdic.html

其他资讯