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 '這樣就點擊了前邊例子中的那個按鈕了.
'這方法通用性也是很強,自己研磨一下你就能運用自如了.
