winsock下载文件.txt

我收集的几个下载者代码 大家看看学习学习就好了别搞破坏哦

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)