怎样用winsock控件下载

[zqymike]

怎样用winsock控件下载一个程序文件，

看看这个代码，怎样去掉前面的服务器的一些信息

又怎样取得文件大小，和当前已下载的大小

Private Sub Form_Load()
WinsockD.RemoteHost = "211.152.91.5"
WinsockD.RemotePort = 80
WinsockD.Connect
End Sub

Private Sub WinsockD_Connect()
WinsockD.SendData "GET " + "http://www.feplayer.com/UpDataFile/feupdata.exe" + " HTTP/1.0" + vbCrLf + "Accept: */*" + vbCrLf + "Accept: text/html" + vbCrLf + vbCrLf
End Sub


Private Sub WinsockD_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim webData() As Byte

WinsockD.GetData webData, vbByte

Put #intFile, , WebSize

End Sub

[chmj718]

学习