VB自动点击网页bottom通用方法

VB自动点击网页bottom通用方法
2007-12-03 15:03
'一般来说,最简单最直接的操作网页表单提交方法就是

WebBrowser1.Document.All("Namd").Value="xxxx"        '填表
WebBrowser1.Document.All("DengLu").Click        '按钮点击
'不过此方法需要知道该表单的各个元素的ID.一般来说,普通的网页都能直接从网页源文件中找到这些东西.

'假如整个表单都没能在源文件中找到的,那可以用
    Text1 = WebBrowser1.Document.getElementById("BiaoID").innerHTML        '"BiaoID"为表单所在表格的ID
'这样Text1显示出来的就是你所要的表单的代码了.

'不过即使是得到隐藏的代码了,还是有可能碰到没ID没NAME没类型的按钮,这怎么办呢?
'不怕,通用方法来了.
'没ID我们就给它个ID嘛.
'在DocumentComplete里网页完全打开后
'处理网页源码,给你要点击的按钮起个名(加上ID)

'例如:
'Text1 = <BUTTON style='PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN-LEFT: 3px; LINE-HEIGHT: 100%; PADDING-TOP: 2px; HEIGHT: 20px' onclick=javascript:btnSeedFetcherClick.call(this)>确定</BUTTON>
'将其变为:
'Text1 = <BUTTON ID=abc style='PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN-LEFT: 3px; LINE-HEIGHT: 100%; PADDING-TOP: 2px; HEIGHT: 20px' onclick=javascript:btnSeedFetcherClick.call(this)>确定</BUTTON>

'然后用
    WebBrowser1.Document.body.innerHTML = Text1.Text        '将处理完的网页装入WebBrowser1
'然后就可以用回一开始说的最简单的方法来点击了
    WebBrowser1.Document.All("abc").Click        '按钮点击
'怎么样,是不是很爽丫,这样就不用去思考还有没什么条件可以来定位这个按钮然后再点击了.

'当然,还有种方法是:
    Dim OButton
    OButton = WebB.Document.getElementsByTagName("BUTTON")
    OButton.Click       '这样就点击了前边例子中的那个按钮了.
'这方法通用性也是很强,自己研磨一下你就能运用自如了.