VBブラウザに表示されているテキストを取得したい

質問

Windows7 VB2010のWebBrowserで表示されているテキストを取得することはできますか。

回答No.2

田中 裕之（@bybalsendercase）

再度失礼します。

htmlの<div>の中のテキストを取得する場合のサンプルです。

Public Class Form1
Const UR As String = "http://okwave.jp/qa/q8628598.html"
Private Sub F() Handles MyBase.Shown
WebBrowser1.Navigate(UR)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'読み込まれたUrlが一致した場合
If UR = e.Url.ToString Then
For Each htm As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
TextBox1.Text &= htm.InnerText & vbNewLine
Next
End If
End Sub
End Class

お礼

回答ありがとうございます。
＃１、＃２共に試したのですがだめでした。
実は、自動的に別のページの情報を表示させている様なのです。

ですからWebBrowserで表示している情報はこのプログラムのTextBox1.Textの中に全くありませんでした。
あと一部文字化けしている様です。

DomExplorlerでソースを見るとその中にそのアドレスがありますので、このアドレスを何とか取得できればそれでも問題ないのですが。

それともこの文字化けしている部分がアドレスなのかな。（＠＠＠＠＠＠＠となっている所）

補足

因みにこのサイトになります。

https://bosai.jmainfo.go.jp/contents/xml/140604/BT_D4215_0_000000000000537090_20140604000000.html

回答No.1

田中 裕之（@bybalsendercase）

こんにちは

＞テキストを取得することはできますか。
WebBrowserの文字列をぜ～んぶ取得するなら（画像）
WebBrowser1.DocumentTextでできます。

Public Class Form1
Const UR As String = "http://okwave.jp/qa/q8628598.html"
Private Sub F() Handles MyBase.Shown
WebBrowser1.Navigate(UR)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'読み込まれたUrlが一致した場合
If UR = e.Url.ToString Then
TextBox1.Text = WebBrowser1.DocumentText
End If
End Sub
End Class

お礼

回答ありがとうございます。
せっかく分かり易く回答いただいたのですが、残念ながらうまく表示されません。

ＩＥ　目的のページ　→　ソースの表示ではちゃんと表示されます。
が、アドレスバーのアドレスの後に元のソースと書かれており、
つまりページが自動的にジャンプする様になっているのです。

この元ソースのアドレスなら、ご呈示いただいたプログラムで問題なく動作します。