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

KPPR 2005-04-24 00:34:52 No: 121213

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

マルチ 2005-04-24 02:15:22 No: 121214

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

KPPR 2005-04-24 02:52:28 No: 121215

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

mimo 2005-04-25 03:29:17 No: 121216

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

Dim Data() as byte

Data = Inet1.OpenURL(strAdr, icString)

mimo 2005-04-25 03:29:18 No: 121217

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

Dim Data() as byte

Data = Inet1.OpenURL(strAdr, icString)

mimo 2005-04-25 03:37:05 No: 121218

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

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ドキュメントの解析ができてるならこれでダウンロードできます