使用webbrowser空间实现很简单
一。 首先在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument
其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")
最后执行onclick : mydom.onclick
二.还有想要实现点击,直接执行点击的相应函数即可例如:假设想实现点击下面的Inputbox
那么直接执行onclick里的函数busSwitchDiv('changeDiv')即可,执行语句如下:
WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"