WebBrowserに読み込まれたオブジェクトの保存をするには

---

はじめまして
現在指定のHPにユーザーが任意の名前で画像をアップロードしています。(Excelの場合もあり）
ソース解析後、画像名を取得しそれをダウンロードしようとしてもうまくいかず困っております。
そこでWebBrowserコントロールに読み込まれたオブジェクト、ファイルを列挙し、それを保存する方法はないかと調べては見ましたがわかりませんでした。
キャッシュの保存をとも思いましたがなかなかうまくいきません。
どうかご教授ください。

編集 削除

---

http://www7.big.or.jp/~pinball/discus/vb/58194.html

編集 削除

---

登校時にエラーが出てしまったためこのようになってしまいました。
以後気をつけます。

編集 削除

---

画像のダウンロードでしょうか？

Dim Data() as byte

Data = Inet1.OpenURL(strAdr, icString)

編集 削除

---

画像のダウンロードでしょうか？

Dim Data() as byte

Data = Inet1.OpenURL(strAdr, icString)

編集 削除

---

すみません、途中で送信してしまいました
というか上のコードは関係ありません

Dim Data() as Byte
dim fp as integer

    Data = Inet1.OpenURL("http://?????.gif", icByteArray)

    fp = FreeFile()
    Open ファイル名 For Binary Access Write As #fp
        Put #fp, , Data()
    Close #fp

Webドキュメントの解析ができてるならこれでダウンロードできます

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。