VB.NET WebBrowser クリック操作(Aタグ)

‘特定のリンクをクリック (URLがわかっている時。)

Dim e as HemlElement

For Each e In WebBrowser1.Document.GetElementsByTagName(“a”)

IF e.GetAttribute(“href”) = URL then

       e.InvokeMember(“Click”)

       Exit For

End If

Next

‘特定のリンクをクリック(Aタグに挟まれている文字列がわかっているとき。)

For Each e In WebBrowser1.Document.GetElementsByTagName(“a”)

IF e.innerText = 文字列 then

       e.InvokeMember(“Click”)

       Exit For

End If

Next

 

‘特定のリンクをクリック（Aタグに挟まれているHTMLに含まれている文字列がわかっているとき。)

For Each e In WebBrowser1.Document.GetElementsByTagName(“a”)

IF InStr(1,e.GetAttribute(“href”), 文字列) then

       e.InvokeMember(“Click”)

       Exit For

End If

Next