投稿日 | : 2005/12/22(Thu) 12:56 |
投稿者 | : kishitatsu |
URL | : |
タイトル | : 記事4404参考にてエラーに |
kishitatsuと申します。
web上の文字データを取得すべくこちらの過去ログより参考になるコーディング例を
探していますが、記事4404 花ちゃん さんのソースをそのまま実行したところ
以下のエラーとなります。対処方法をご教授お願い致します。
実行時エラー:424 オブジェクトが必要です。
実行環境:WindowsXP SP2
VB6.0 SP6
--------------------------以下、4404の内容です。
記事No : 4404 [関連記事]
投稿日 : 2005/09/13(Tue) 19:52
投稿者 : 花ちゃん
E-Mail :
題 名 : Re^4: WebBrowserで画像を表示させない
> ソースを変更する等の代替案のヒントが載っていたので、その辺についても調べてみます。
ちょっと強引な方法ですが、ただ画像ファイルの種類が多いので!(ごみレスかも)
Private Sub Command1_Click()
Dim myHtm As String
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
myHtm = WebBrowser1.Document.body.innerHTML
myHtm = Replace(myHtm, ".gif", "")
WebBrowser1.Document.write myHtm
End Sub
---------------------------------------