‘checkboxのID属性がわかっている場合。
‘チェックを外す場合、SetAttributeの値にFalseを入れたくなるが、ここは空欄。
Dim e as HtmlElement
Dim i as Integer = 0
For Each e In WebBrowser1.Document.GetElementsByTagName("input")
If e.GetAttribute("id") = id属性 Then
If i > 0 Then
e.SetAttribute("checked ", True)
Else
e.SetAttribute("checked", "")
End If
Exit For
End If
Next
‘GetElementsByNameを使用する方法。
WebBrowser1.Document.All.GetElementsByName(Inputタグのname属性).Item(0).InnerText = 文字列
‘GetElementsByTagNameを使用する方法。class属性がわかっている場合。
Dim e as HtmlElement
For Each e In WebBrowser1.Document.GetElementsByTagName("input")
If e.GetAttribute(”classname”) = クラス属性 Then
e.SetAttribute(“value”, 文字列)
Mate()
Exit For
End If
Next
‘class以外の属性の時は name , id , src, href などをそのまま書けばよい。
‘Inputタグのボタンをクリック(ボタンの表面に書かれた文字列がわかっているとき。)
Dim e as HemlElement
For Each e In WebBrowser1.Document.GetElementsByTagName(“input”)
IF e.GetAttribute(“value”) = 文字列 then
e.InvokeMember(“Click”)
Exit For
End If
Next
‘Inputタグのボタンをクリック(Submitボタンであるとき)
WebBrowser1.Document.Forms.Item(0).InvokeMember("submit")
‘特定のリンクをクリック (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
‘特定のURLを表示
WebBrowser1.Navigate(URL)
‘表示が完了するまで待たせる。
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
System.Windows.Forms.Application.DoEvents()
Loop
