0
我試圖訪問某些HTML按鈕。我正在使用vb.net 2008平臺以編程方式單擊這些按鈕。問題是全部17個按鈕都沒有id,並且具有相同的名稱類型和值,並且形式相同。因此,請指導我如何單擊每個按鈕。這是這些按鈕的HTML代碼。通過vb.net訪問具有相同名稱和值的HTML按鈕
我試圖訪問某些HTML按鈕。我正在使用vb.net 2008平臺以編程方式單擊這些按鈕。問題是全部17個按鈕都沒有id,並且具有相同的名稱類型和值,並且形式相同。因此,請指導我如何單擊每個按鈕。這是這些按鈕的HTML代碼。通過vb.net訪問具有相同名稱和值的HTML按鈕
可以說的是,你有一個WebBrowser控件
和HTML是:
"<button id=namee>Click</button><button id=namee>Click</button><button id=namee>Click</button>"
你可以改變butoons的id的+單擊其中:
WebBrowser1.Navigate("")
Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Loop
WebBrowser1.Document.Body.InnerHtml = "<button id=namee>Click</button><button id=namee>Click</button><button id=namee>Click</button>"
For i = 1 To 3
WebBrowser1.Document.Body.InnerHtml = Replace(WebBrowser1.Document.Body.InnerHtml, "namee", "n" & i.ToString, , 1)
Next
WebBrowser1.Document.GetElementById("n1").InvokeMember("click")
WebBrowser1.Document.GetElementById("n2").InvokeMember("click")
WebBrowser1.Document.GetElementById("n3").InvokeMember("click")
有另一種方式:
Dim Elems As HtmlElementCollection
Dim WebOC As WebBrowser = WebBrowser1
Elems = WebOC.Document.GetElementsByTagName("button")
For Each elem As HtmlElement In Elems
elem.InvokeMember("click")
Next
但按鈕沒有ID ...所以如何點擊它們沒有ID ??? –
當你在頁面的html上使用replace時,你可以在替換它之後替換