VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/15(Wed) 21:59 |
| 投稿者 | ： zoo8 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： HTMLを取得できません |
フレームを使ったページの中の目的のフレームのソースを以下のようなVBのコードで取得したいのですがうまくいきません。
debug実行ではファイルの中にHTMLソースが書き出されますが、通常どおりに実行すると中身は空のままです。
その目的のフレームは最初表示されたときはJavascriptで
onload時にlocateでソースを取得しなおしているので、ここが問題なのかと思うのですが。
取得の方法はファイルに保存、コード中で参照でもどちらでもいいです。
よろしくお願いします。
Dim objIE As InternetExplorer
Dim k As Integer
Dim objFRAME As FramesCollection
Dim objDOC As IHTMLDocument
Dim strFullPath As String
Dim fileNumber As Variant
Set objIE = CreateObject("InternetExplorer.application")
objIE.Navigate "http://example.com"
'表示終了まで待つ
Do While objIE.Busy = True
DoEvents
Loop
Set objFRAME = objIE.Document.frames 'フレームの代入
Set objDOC = objFRAME(3).Document 'フレームのドキュメントをセット
' ファイル生成
strFullPath = App.Path & "\" & "work"
fileNumber = FreeFile
Open strFullPath For Output Shared As fileNumber
For k = 0 To objDOC.All.length - 1
Print #fileNumber, objDOC.All(k).outerHTML
Next k
Close fileNumber
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）