79.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

用 WinSock 控件下载文件

1 增加一个 Winsock 控件， 名称为 Winsock1。
2 建立连接：
Winsock1.RemoteHost = "nease.com"
Winsock1.RemotePort = 80
Winsock1.Connect
3 在Winsock1.Connect 事件中加入：

Dim strCommand as String
Dim strWebPage as String
strWebPage = "http://www.nease.com/~kenj/index.html"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 
strCommand = strCommand + "Accept: */*" + vbCrLf 
strCommand = strCommand + "Accept: text/html" + vbCrLf 
strCommand = strCommand + vbCrLf 
Winsock1.SendData strCommand
4 Winsock 开始下载， 在收到数据时， 发生DataArrival 事件。
Dim webData As String 
Winsock1.GetData webData, vbString
TxtWebPage.Text = TxtWebPage.Text + webData