用Winsock实现文件的下载

Option Explicit
Dim strCommand As String
Dim strWebPage As String

Private Sub Command1_Click()

Winsock1.RemoteHost = "202.103.176.81" ''返回或设置远程计算机，控件向它发送数据或从它那里接收数据。既可提供主机名，比如 "FTP://ftp.microsoft.com"，也可提供点格式下的 IP 地址字符串，比如 "100.0.1.1"。
Winsock1.RemotePort = 80 ''返回或设置要连接的远程端口号
Winsock1.Connect ''返回与远程计算机的连接。


End Sub

Private Sub Winsock1_Connect() ''当一个 Connect 操作完成时发生。
On Error Resume Next
strWebPage = "http://202.103.176.81/crun/yingzi007/code_1.asp"
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

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

End Sub

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