52.txt

来自「VB实用技巧124则之1-62则 为了使每包文件个数少于65(获得更快的解压速」· 文本 代码 · 共 29 行

如何从 Internet 上取回某一个网页的內容？ 
版本：VB6 / VB5 



新建一个新工程，加入一个 Internet Transfer Control、一个 CommandButton 及二个 TextBox！

Text1 用來输入要取取的网页位址，例如：http://www.microsoft.com/taiwan/support/products/vb.htm
Text2 用來输入要存文件的完整文件名，例如：c:\temp\temp.htm

Private Sub Command1_Click()
Dim b() As Byte
'取消所有操作
Inet1.Cancel
'设定协议为 HTTP
Inet1.Protocol = icHTTP
'设定 URL 属性
Inet1.URL = Text1.Text
'将读取的 HTML 数据放进一个 byte array.
b() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件來存放取回來的 html 文件
Open Text2.text For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub
好了，就是这么简单，试看看吧！