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