从指定的url下载.exe文件的代码．请大家给与指正

文件头＂
HTTP/1.1 200 OK
Server: Microsoft-IIS/5.1
X-Powered-By: ASP.NET
Date: Sun, 29 Aug 2004 13:15:01 GMT
Content-Type: application/octet-stream
Accept-Ranges: bytes
Last-Modified: Thu, 19 Aug 2004 09:13:22 GMT
ETag: "0654dc6cc85c41:942"
Content-Length: 3142837我下载一个.exe文件，下载后打不开，我用记事本看了一下 多了上面的文件。怎么能去掉。
我找到了类似的程序。但感觉不好。这个问题如何解决的。Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim bytData() As ByteDim strData As StringIf bytesTotal <= 0 Then
    Exit Sub
End If
Winsock.GetData bytData, vbByte
strData = StrConv(bytData, vbUnicode)有高手告诉我要在此处填加判断
通过bytdata(0).bytdata(1)...判断是不是文件头中＂HTTP/1.1 200 OK＂
但我不会我想问一下，应该如何实现．请高手指点InStr(strData, "Content-Type:") Then    Dim Pos%, LENGTH%, HEAD$
    Pos = InStr(strData, vbCrLf & vbCrLf)
    LENGTH = Len(strData)
    HEAD = Left(strData, Pos - 1)
    strData = Right(strData, LENGTH - Pos - 3)
    Exit Sub
End If
 Open FilePathName For Binary Access Write As #1
     Put #1, BytesAlreadySent, bytData
     BytesAlreadySent = Seek(1)
     Close #1
End Sub