用Winsock控件实现文件的下载
使用控件有：Winsock控件，CommandButton控件，TextBox控件
编程步骤如下：
1.首先声明变量
DimstrCommandAsString
DimstrWebPageAsString
2.把如下代码加到Command1的Command1_Click事件：
PrivateSubCommand1_Click()
Winsock1.RemoteHost="202.103.176.81"'设置连接的网址
Winsock1.RemotePort=80'设置要连接的远程端口号
Winsock1.Connect'返回与远程计算机的连接。
EndSub
3.把如下代码加到Winsock1的Connect事件：
PrivateSubWinsock1_Connect()'当一个Connect操作完成时发生
OnErrorResumeNext
strWebPage="http://www.vbeden.com/index_main.htm"'要下载的文件
strCommand="GET" strWebPage "HTTP/1.0" vbCrLf''GET为FTP命令取得文件
strCommand=strCommand "Accept:*/*" vbCrLf'这句可以不要
strCommand=strCommand "Accept:text/html" vbCrLf'这句可以不要
strCommand=strCommand vbCrLf'记住一定要加上vbCrLf
'Debug.PrintstrCommand'注：你可以用Debug.PrintstrCommand来查看一下格式
Winsock1.SendDatastrCommand'给远程计算机发送数据
EndSub
4.把如下代码加到Winsock1的DataAmival事件：
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)'取得数据时产生该事件
OnErrorResumeNext'在错误处理程序结束后，恢复原有的运行
DimwebDataAsString
Winsock1.GetDatawebData,vbString'检取当前的数据块
Text1.Text=Text1.Text webData
EndSub
- 最新文章
- VB的坐标系统综述[04-17]
- 如何在VB6.0中创建和使用文本资源文件[04-17]
- 在VB6.0中实现动态统计报表[04-17]
- VisualBasic程序创建闪烁(标语)屏[04-17]
- 在VisualBasic中判断Windows9x的运行模式[04-17]
- VisualBasic开发应用程序如何使用INI文件[04-17]
- 相关文章
- VisualBasic中DataCombo和DataList..[04-17]
- VisualBasicCommonDialog控件的使用[04-17]
- VB中实现同一窗口的多个实例及控件的动态增减[04-17]
- VisualBasicCommandButton控件[04-17]
- VB中用第三方控件打造QQ菜单[04-17]
- 一个简单例子(使用数据控件控制数据库)---VB数据库入门之..[04-17]
