怎样用winsock控件下载

2004-02-17 12:32:49 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于HTTP协议用WinSock实现任意文件下载 HTTP协议是文本格式通讯，下载文件是二进制数据，怎样处理好两种格式，而不受VB独断专行的Unicode转换影响，本代码提供了一个示例。Option ExplicitPrivate strURL As StringPrivate mstrFileName As String, mlngFileNum As LongPrivate mlngFileLen As Long, mlngCurByte A 阅读详情

怎样用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

...全文