用Winsock控件实现文件的下载使用控件有：Winsock控件，CommandButton 控件，TextBox 控件编程步骤如下：1.首先声明变量Dim strCommand As StringDim strWebPage As String2.把如下代码加到Command1的Command1_Click事件：Private Sub Command1_Click()Winsock1.RemoteHost = "202.103.176.81" '设置连接的网址Winsock1.RemotePort = 80 '设置要连接的远程端口号Winsock1.Connect '返回与远程计算机的连接。End Sub3.把如下代码加到Winsock1的Connect事件：Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生On Error Resume NextstrWebPage = "http://202.103.176.81/crun/yingzi007/index.html" '要下载的文件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 Sub4.把如下代码加到Winsock1的DataAmival事件：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时产生该事件On Error Resume Next '在错误处理程序结束后，恢复原有的运行Dim webData As StringWinsock1.GetData webData, vbString '检取当前的数据块Text1.Text = Text1.Text + webDataEnd Sub
Content-Length: 164
Connection: Close
Server: GWS/2.0
Content-Type: text/html
Date: Mon, 02 Sep 2002 01:47:12 GMT
Location: http://www.google.co.jp/index.html
Set-Cookie: PREF=ID=01824d535bd85cc0:TM=1030931232:LM=1030931232:S=mF6185x8dFM; expires=Sun, 17-Jan-2038 19:14:07 GMT; path=/; domain=.google.com<HTML><HEAD><TITLE>302 Moved</TITLE></HEAD><BODY>
<H1>302 Moved</H1>
The document has moved
<A HREF="http://www.google.co.jp/index.html">here</A>.
</BODY></HTML>
我把remote host 改成www.google.co.jp ,出来的东西是这个,好像不大对