我用winsock控件做下载，通过发送头信息，服务器有信息返回，但下载不了，请帮忙改正，代码如下

Question

Private Sub Command2_Click()
Dim sZcommand As String
    Winsock1.RemoteHost = "ftpprd.ncep.noaa.gov"
    Winsock1.RemotePort = 21
    Winsock1.Connect
    sZcommand = sZcommand & "GET /pub/data/nccf/com/avn/prod/avn.20040129/gblav.t12z.pgrbf00" & " HTTP/1.1" & vbCrLf
    sZcommand = sZcommand & "USER anonymous" & vbCrLf
    sZcommand = sZcommand & "PASS [email protected]" & vbCrLf
    sZcommand = sZcommand & "Host: ftpprd.ncep.noaa.gov" & vbCrLf & vbCrLf
    sZcommand = sZcommand & "REST 100" & vbCrLf
    sZcommand = sZcommand & "REST 0" & vbCrLf
    sZcommand = sZcommand & "TYPE A" & vbCrLf
    sZcommand = sZcommand & "PASV" & vbCrLf
    sZcommand = sZcommand & "REST 0" & vbCrLf
    sZcommand = sZcommand & "LIST /pub/data/nccf/com/avn/prod/avn.20040129/gblav.t12z.pgrbf00" & vbCrLf
    sZcommand = sZcommand & "TYPE I" & vbCrLf
    sZcommand = sZcommand & "PASV" & vbCrLf
    sZcommand = sZcommand & "RETR /pub/data/nccf/com/avn/prod/avn.20040129/gblav.t12z.pgrbf00" & vbCrLf & vbCrLf
    'sZcommand = sZcommand & "Range: bytes=0-" & vbCrLf
    'sZcommand = sZcommand & "User-Agent: mzUpdate" & vbCrLf & vbCrLf
    Winsock1.SendData sZcommand
End Sub
如果一行一行的发，所有的代码除了"LIST ……"和"RETR……"不能执行，其它的都可以，如果是flashget到RETR时就开始下载了，为什么我这不行，请指教
还有，如果所有的命令都发送成功，我怎么知道当前收到的信息是数据还是服务器返回信息
有哪位高手大哥能告诉我ftp下载的原理，