模板
教程
環境
性能
功能
管理
用Winsock實現文件的下載
發表于：2007-07-14來源：作者：點擊數：
標簽：
Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = 202.103.176.81 '返回或設置遠程計算機，控件向它發送數據或從它那里接收數據。既可提供主機名，比如 FTP://ftp.microsoft.com，也
Option ExplicitDim 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 + "Aclearcase/" target="_blank" >ccept: */*" + 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
原文轉自：http://www.anti-gravitydesign.com
