VB.NET2008を使用しています。

質問

VB.NET2008を使用しています。

----- HTML -----
<input type="submit" name="Enter" value="ボタン">
----- END ------

----- 構成@VB -----
Form1
Button1 <- これをクリックしてWebBrowserのボタンを押したことにする
WebBrowser1
----- END -----

上のようなボタン（HTMLのもの）を
VB.NETのButton1を押すとWebBrowser1に表示されているWEBページのボタンを
押したようにしたいのですがどのようにすれば実現できますか？
よろしくお願いします。

回答No.2

1050 円（@1050YEN） · ベストアンサー

間違いました。

→htmElm.DomElement.FireEvent("onclick")
これはJavascriptでクリックイベントを設定してある場合でした。

>type="submit"
でしたね。。。

→htmElm.DomElement.click()
こっちです。

お礼

ありがとうござます。
しかしDomElementにClickイベントがなかったのでがんばって試行錯誤したけっか

Dim Elements As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("input")
For Each Element As HtmlElement In Elements
If Element.GetAttribute("type") = "submit" Then
Element.InvokeMember("click")
End If
Next

によって解決することができました。
ありがとうございます。

回答No.1

1050 円（@1050YEN）

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　Me.WebBrowser1.Navigate("c:\test.htm")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　'ドキュメント
　　Dim htmDoc As HtmlDocument = Me.WebBrowser1.Document
　　'ドキュメント内の「input」タグ達を取得
　　Dim htmElms As HtmlElementCollection = htmDoc.GetElementsByTagName("input")
　　'サンプルのHTMLは一個しかないようなので、とりあえず先頭を取得
　　Dim htmElm As HtmlElement = htmElms.Item(0)

　　'DOMを利用。mshtmlのサンプルはあちこちで落ちているはず
　　'あとはクリックイベントを呼ぶだけ
　　'スクロールでもマウスダウンでも何でも呼べる
　　htmElm.DomElement.FireEvent("onclick")
End Sub