Do
Application.DoEvents()
Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete And WebBrowser1.IsBusy = False
WebBrowser1.Document.GetElementById("title").SetAttribute("value", "yeah")
WebBrowser1.Document.GetElementById("content").SetAttribute("value", "テストの本文じゃ")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Documentのinputタグのをすべて取得
Dim hec As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
For Each he As HtmlElement In hec
'typeが"button" 且つ valueが"申請"のものを
If he.GetAttribute("type") = "submit" And he.GetAttribute("value") = "公開" Then
he.InvokeMember("click") 'クリック
End If
Next
Do
Application.DoEvents()
Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete And WebBrowser1.IsBusy = False
