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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加