WebBrowserコントロールで表示された画像のファイル名(***.jpg, ***.gif等）を取得する方法を
教えてください。
ポップアップメニュー＞プロパティー＞全般タブに表示されているので、何か方法があると思い
頑張ってみましたが結局分かりませんでした。　どなたかご教授願います。

documentオブジェクトから取得する方法としては
imgタグのエレメントを取得して、srcを参照する方法というのがあります。

Dim element
Dim document as mshtml.htmldcoument

FOr each element in webbrowser1.document
debug.print element.src

next

寝ぼけていたのか全く意味不明なコード書いていました。

訂正。
Dim element
Dim idoc as mshtml.htmldcoument
set idoc=webbrowser1.document
FOr each element in idoc.all.items("img")
    debug.print element.src

next

> 寝ぼけていたのか全く意味不明なコード書いていました。
>
> 訂正。
> Dim element
  Dim element AS MSHTML.IHTMLElement
> Dim idoc as mshtml.htmldcoument
  Dim idoc As MSHTML.HTMLDocument

> set idoc=webbrowser1.document
> FOr each element in idoc.all.items("img")
  For Each element In idoc.All.tags("IMG")

>     debug.print element.src
>  
>  next

じゃないですかね。

お世話になっております。 m(_ _)m

> > Dim element
>   Dim element AS MSHTML.IHTMLElement
プロパティが参照できるのでベターですね（＾＾；

> > set idoc=webbrowser1.document
> > FOr each element in idoc.all.items("img")
>   For Each element In idoc.All.tags("IMG")


小文字で処理する癖があるので、つい小文字でいつも書いてしまいます。。(--
エレメント(タグ）と属性の名前は大文字、小文字区別しないので
どちらでも結構ですが、vb6でmshtmlから返ってくる文字列は
大文字なので比較の際処理に気をつけてください。

> 小文字で処理する癖があるので、つい小文字でいつも書いてしまいます。。(--

大文字、小文字の違いじゃなくて、htmldcoument のつづりや 使用できない（items）が
使っていたのでエラーが発生して動かないのではと思ったもので...。

> 大文字、小文字の違いじゃなくて、htmldcoument のつづりや 使用できない（items）が
あ！本当だ。。気づきませんでした(^^;;
花ちゃん様のコードを足して、一応正確だと思われるものを
書いておきます。。ちゃんとIDE使うべきでした。以後気をつけます。


  Dim idoc As MSHTML.HTMLDocument

set idoc=webbrowser1.document

  For Each element In idoc.All.tags("IMG")

     debug.print element.src
  
  next

　  

Dim element AS MSHTML.IHTMLElement'抜けていた  
Dim idoc As MSHTML.HTMLDocument

set idoc=webbrowser1.document

  For Each element In idoc.All.tags("IMG")

     debug.print element.src
  
  next