prague12

WebBrowser1.Navigate("https://tw.yahoo.com/") '換連結

'-------------------
'引發網頁內特定超連結

Dim links = WebBrowser1.Document.Links

For Each linka As HtmlElement In links

If (linka.GetAttribute("href").Contains("images")) Then '對網頁裡所有超連結網址中 帶有"images"字的連結 則引發click


linka.InvokeMember("click") '點擊動作必須這樣引發
End If

Next

'------------------
'引發網頁內控制項動作

Dim textboxUserId = WebBrowser1.Document.GetElementById("q") '找到網頁有一個控制項可填空格 名稱叫做q
textboxUserId.SetAttribute("value", "KKKKK") ' //填写動作 填入KKK

Dim botton = WebBrowser1.Document.GetElementById("btnG") '找到網頁按鈕名稱 btnG
botton.InvokeMember("click") '點擊動作引發