現在開いているHTMLのソースを表示したい

質問

vb6を使用しています。
インターネット関連では初心者です。
Private Sub Command1_Click()
WebBrowser1.Navigate "http://oshiete.goo.ne.jp/"
End Sub
上記内容で表示させたWebBrowser1のソースをそのままの状態で取得する方法を探しています。又、表示中のものを保存する方法でもかまいません。
ＩＥで「表示→ソース」と同じものを取得したいです。

ご教授よろしくお願いします。

回答No.1

noname#56382 · ベストアンサー

WebBrowser1_NavigateComplete2イベントの中で…
Dim oDoc As Object
Set oDoc = WebBrowser1.Document
MsgBox oDoc.body.InnerHTML

ページの読み込み途中で参照するとエラーになるので注意。

お礼

ありがとうございます。
エラーがでるようなので頂いた情報からいろいろ検索かけて試してみましたら、下記でうまくいきました。

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.yahoo.co.jp/"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (URL <> "") Then
Text1.Text = WebBrowser1.Document.Body.innerHTML
End If
End Sub

現状なんとかなりそうです。
かなり四苦八苦してますので、今回大変助かりました。
ありがとうございました。