使用控件有：Winsock控件，CommandButton控件，TextBox控件
編程步驟如下：
1.首先聲明變量
DimstrCommandAsString
DimstrWebPageAsString
2.把如下代碼加到Command1的Command1_Click事件：
PrivateSubCommand1_Click()
Winsock1.RemoteHost="202.103.176.81"'設置連接的網址
Winsock1.RemotePort=80'設置要連接的遠程端口號
Winsock1.Connect'返回與遠程計算機的連接。
EndSub
3.把如下代碼加到Winsock1的Connect事件：
PrivateSubWinsock1_Connect()'當一個Connect操作完成時發生
OnErrorResumeNext
strWebPage="http://www.vbeden.com/index_main.htm"'要下載的文件
strCommand="GET" strWebPage "HTTP/1.0" vbCrLf''GET為FTP命令取得文件
strCommand=strCommand "Accept:*/*" vbCrLf'這句可以不要
strCommand=strCommand "Accept:text/html" vbCrLf'這句可以不要
strCommand=strCommand vbCrLf'記住一定要加上vbCrLf
'Debug.PrintstrCommand'注：你可以用Debug.PrintstrCommand來查看一下格式
Winsock1.SendDatastrCommand'給遠程計算機發送數據
EndSub
4.把如下代碼加到Winsock1的DataAmival事件：
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)'取得數據時產生該事件
OnErrorResumeNext'在錯誤處理程序結束後，恢復原有的運行
DimwebDataAsString
Winsock1.GetDatawebData,vbString'檢取當前的數據塊
Text1.Text=Text1.Text webData
EndSub->
