‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[转载]用Winsock控件实现文件的下载

小珂

运维管理组

Rank: 7Rank: 7Rank: 7Rank: 7

E.S.T核心成员 项目主管

帖子
123 
精华
6 
积分
3606 
阅读权限
150 
性别
男 
来自
china 
在线时间
30 小时 
注册时间
2004-7-27 
最后登录
2008-10-12 

软件研发奖

楼主 大 中 小 发表于 2005-2-16 01:14  只看该作者

[转载]用Winsock控件实现文件的下载

信息来源了：中国VB网    作者：佚名

使用控件有：Winsock控件，CommandButton 控件，TextBox 控件

编程步骤如下：

1.首先声明变量

Dim strCommand As String

Dim strWebPage As String

2.把如下代码加到Command1的Command1_Click事件：
复制内容到剪贴板
代码:
Private Sub Command1_Click()

Winsock1.RemoteHost = "[url]http://www.ChinaVB.net[/url]" '设置连接的网址

Winsock1.RemotePort = 80 '设置要连接的远程端口号

Winsock1.Connect '返回与远程计算机的连接。

End Sub
3.把如下代码加到Winsock1的Connect事件：
复制内容到剪贴板
代码:
Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生

On Error Resume Next

strWebPage = "[url]http://www.ChinaVB.net/api/index.htm[/url]" '要下载的文件

strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf ''GET 为FTP命令 取得文件

strCommand = strCommand + "Accept: */*" + vbCrLf '这句可以不要

strCommand = strCommand + "Accept: text/html" + vbCrLf '这句可以不要

strCommand = strCommand + vbCrLf '记住一定要加上vbCrLf

'Debug.Print strCommand '注：你可以用Debug.Print strCommand 来查看一下格式

Winsock1.SendData strCommand '给远程计算机发送数据

End Sub
4.把如下代码加到Winsock1的DataAmival事件：
复制内容到剪贴板
代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时产生该事件

On Error Resume Next '在错误处理程序结束后，恢复原有的运行

Dim webData As String

Winsock1.GetData webData, vbString '检取当前的数据块

Text1.Text = Text1.Text + webData

End Sub
爱我所爱 无愿无悔

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题