WinsockでHTTPでダウンロードして保存するには？

---

過去の質問も参考にして
HPからlogoイメージをgetしようとしたのですが0byteになってしまいます。
ヘッダをいじらないといけないのでしょうか。

Private Sub Winsock1_DataArrival( ByVal bytesTotal As Long)
Dim tmp() As Byte
Dim fn as integer

fn=freefile
Winsock1.GetData tmp, vbArray + vbByte, bytesTotal

fn = FreeFile()

Open "D:\logo.gif" For Binary Access Write As fn
Seek fn, LOF(fn) + 1
Print fn, tmp
Close fn



End Sub

編集 削除

---

具体的には
Private Sub Winsock1_Connect(Index As Integer)
winsock1.senddata "GET /logo.gif HTTP/1.0" & vbcrlf & vbcrlf
End Sub
みたいな風にかいたら
dataarrival部分はどう書いたらよろしいのでしょうか？

編集 削除

---

>Print fn, tmp

Put fn,, tmp

これでどう？

編集 削除

---

http://www.takeittechies.com/vbtomo/boards/vbqanda.php?do=spread&num=8431

編集 削除

---

名前

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

本文

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