WebBrowserで特定の要素を削除

質問

Form内で表示されているWebBrowserで特定の要素たとえば<img>とか<script>とかを削除(排除)させて表示したいです。
VBを使い初めてまだ間もないです。

一応今使ってるのはVB2008ですが2005系の回答でも結構です＾＾

またYahoo!知恵袋のほうでも同じ質問が出ていたようですが解決はしていないようです。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1019157800

試してみたもの
Dim instance As HtmlElement
Dim name As String

instance.RemoveAttribute(name)
これをDocument_Completedイベントの中に記述しました。以下エラー
'RemoveAttribute' は 'System.Windows.Forms.HtmlElement' のメンバではありません。

また、それに似たのもMSDNにありますが、駄目でした。
http://msdn.microsoft.com/ja-jp/library/system.windows.browser.htmlelement.removeattribute%28VS.95%29.aspx

回答No.3

うぃず（@Wizard_Zero） · ベストアンサー

ID属性はHTMLDocumentにおいて１箇所しか指定できないことになっているので、コレクションや配列では返されません。HtmlElementとして受け取れば大丈夫だと思います。HTMLに指定したIDが複数存在する場合は最初に見つかった要素だけが、存在しない場合はNothingが返されます。

Dim idElement As HtmlElement = WebBrowser1.Document.GetElementById("hogehoge")
If idElement IsNot Nothing Then idElement.OuterHtml = ""

お礼

ご回答ありがとうございます！

WebBrowser1のDocument_Completeのほうに教えてくださったとおりの
Dim idElement As HtmlElement = WebBrowser1.Document.GetElementById("hogehoge")
If idElement IsNot Nothing Then idElement.OuterHtml = ""
で、解決しました！

余談ですがembad,script指定はどうしようもできないのですかね、まぁ今回はdivで消すことができました。

ありがとうございます。

回答No.2

うぃず（@Wizard_Zero）

VB2005のコードです。

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

　　For Each emt As HtmlElement In WebBrowser1.Document.Images
　　　　emt.OuterHtml = ""
　　Next
End Sub

画像はこれで非表示になりましたが、<SCRIPT>についてはこの方法では出来ませんでした。DocumentCompleteが呼び出されるよりも前に、WebBrowserが<SCRIPT>のコンパイルを行っていて、あとから消してもそれが反映されない、といったことが原因のような気がします。

<IMG>についても一旦HTMLが完全に読み込まれてから削除する形になるので、画像へのアクセスが完全になくなったわけでないと思います。

一応<SCRIPT>の削除を試したコードも載せておきます。

　　For Each emt As HtmlElement In WebBrowser1.Document.GetElementsByTagName("script")
　　　　emt.OuterHtml = ""
　　Next

　　For Each emt As HtmlElement In WebBrowser1.Document.GetElementsByTagName("head")
　　　　For Each childemt As HtmlElement In emt.GetElementsByTagName("script")
　　　　　　emt.OuterHtml = ""
　　　　Next
　　Next

補足

回答ありがとうございます。

試してみたところ
　　For Each emt As HtmlElement In WebBrowser1.Document.GetElementsByTagName("img")
　　　　emt.OuterHtml = ""
　　Next
などでも削除できたようです、が。
embadタグやscriptタグではどうやら無効なようです。

別の方法を試してみようとHTMLでdivに付いているidを指定してはどうかと思いましたがIDの指定の仕方がよくわかりません。

試してみたコード
For Each emt As HtmlElement In WebBrowser.Document.GetElementById("hogehoge")
emt.OuterHtml = ""
Next
エラー
式の型は 'System.Windows.Forms.HtmlElement' で、コレクション型ではありません。

分かりましたらお願いします。

回答No.1

cistronezk

リンク先によると「HtmlElement」の名前空間は「System.Windows.Browser」のようです。
エラーでは「System.Windows.Forms」になってます。
正しい名前空間を指定されてはいかがでしょう。