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

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

No.2 回答者： bybalsendercase 回答日時： 2014/06/08 15:25

再度失礼します。

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

Public Class Form1
Const UR As String = "http://oshiete.goo.ne.jp/qa/8628598.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

この回答への補足

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


https://bosai.jmainfo.go.jp/contents/xml/140604/ …

補足日時：2014/06/08 16:39

この回答へのお礼

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

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

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

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

お礼日時：2014/06/08 15:55

No.1 回答者： bybalsendercase 回答日時： 2014/06/08 15:06

こんにちは

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



Public Class Form1
Const UR As String = "http://oshiete.goo.ne.jp/qa/8628598.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

この回答へのお礼

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

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

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

お礼日時：2014/06/08 16:08