怎样用winsock控件下载

zqymike 2004-02-17 12:32:49
怎样用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
...全文
100 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chmj718 2004-07-20
学习
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7517

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-17 12:32
社区公告
暂无公告