WinsockでHTTPでダウンロードして保存するには？ (ID:88434)

名前

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

本文 過去の質問も参考にして 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