求助,关于从网上下载文件的难题!

Question

用 WinSock 控件下载文件
 
 
　1、 增加一个 Winsock 控件， 名称为 Winsock1。2、 建立连接：
Winsock1.RemoteHost = "nease.com"
Winsock1.RemotePort = 80
Winsock1.Connect3、在Winsock1.Connect 事件中加入：Dim strCommand as String
Dim strWebPage as String
strWebPage = "http://www.sainthorse.com/about.txt"
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 
strCommand = strCommand + "Accept: */*" + vbCrLf 
strCommand = strCommand + "Accept: text/html" + vbCrLf 
strCommand = strCommand + vbCrLf 
Winsock1.SendData strCommand4、 Winsock 开始下载， 在收到数据时， 发生DataArrival 事件。
Dim webData As String 
Winsock1.GetData webData, vbString
TxtWebPage.Text = TxtWebPage.Text + webData
 

Answer 1

用inertnet传输控键要更简单一些