?? 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)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -