<p>如何從 Internet 上取回某一個網頁的內容？ </p>
<p>版本：VB6 / VB5 </p>
<p></p>
<p></p>
<p></p>
<p>新建一個新工程，加入一個 Internet Transfer Control、一個 CommandButton 及二個 TextBox！</p>
<p></p>
<p>Text1 用來輸入要取取的網頁位址，例如：http://www.microsoft.com/taiwan/support/products/vb.htm</p>
<p>Text2 用來輸入要存文件的完整文件名，例如：c:\temp\temp.htm</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>Dim b() As Byte</p>
<p>'取消所有操作</p>
<p>Inet1.Cancel</p>
<p>'設定協議為 HTTP</p>
<p>Inet1.Protocol = icHTTP</p>
<p>'設定 URL 屬性</p>
<p>Inet1.URL = Text1.Text</p>
<p>'將讀取的 HTML 數據放進一個 byte array.</p>
<p>b() = Inet1.OpenURL(, icByteArray)</p>
<p>'建立一個暫存文件來存放取回來的 html 文件</p>
<p>Open Text2.text For Binary Access Write As #1</p>
<p>Put #1, , b()</p>
<p>Close #1</p>
<p>End Sub</p>
<p>好了，就是這么簡單，試看看吧！</p>
<p></p>
<p></p>