如何從 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
'設定協(xié)議為 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
好了，就是這么簡單，試看看吧！