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
上面的代碼沒有試過，是網上的，你自己看一下好不好用。如果只是想載文件可以不用winsock控件。可以API完成。

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 

調用方式：

URLDownloadToFile(0, URL, LocalFilename, 0, 0) 

url是服務器上的文件地址。localname是、保存在本地的地址。

如：call URLDownloadToFile(0, "http://www.163.com/wwwimages/n/163logo.gif","c:\\a.gif",0,0\' target="_blank" >http://www.163.com/wwwimages/n/163logo.gif","c:\\a.gif",0,0)