| 投稿日 | ： 2005/09/14(Wed) 12:32 |
| 投稿者 | ： ちり |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: WebBrowserで画像を表示させない |
レスありがとうございます。
SampleNo=169を利用して、最初にソースのみを読み込んで、画像を消し、
WebBrowserに表示させる方法を試していましたが、文字化けするサイトがありました。
また、この方法だとベースURLが狂うので相対リンクでパスを記述してあるサイトもNGになりました。
花ちゃんさんのサンプルをいろいろ試して分かったのですが、一度まともに表示してから、
画像抜きのソースで表示させているので、上記の方法と同様に相対リンクがNGになってました。
そこで、
Dim myHtm As String
WebBrowser1.Navigate url
Do While WebBrowser1.ReadyState <> READYSTATE_LOADED
DoEvents
Loop
'ソースの読み込みが完了した時点でWebBrowser1の処理を中断
WebBrowser1.stop '処理イメージ
'画像を表示しないソースに差し替え
myHtm = WebBrowser1.Document.body.innerHTML
myHtm = Replace(myHtm, ".gif", "")
WebBrowser1.Document.body.innerHTML = myHtm
'処理再開
WebBrowser1.restart '処理イメージ
このような感じの処理が出来れば画像を表示させずに表示出来そうですが、
こんな処理が可能かどうかも分からないので、もう少し調べてみます。
しかし、魔界の仮面弁士さんはすごすぎです。