52.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 29 行

<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>