VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何从 Internet 上取回某一个网页的內容
发表评论(0)作者:, 平台:, 阅读:10349, 日期:2000-04-02
主題: 如何从 Internet 上取回某一个网页的內容?

來源:VB SQUARE

版本:VB6 / VB5

资料整理:影子 VB爱好者乐园 yingzi007.126.com





新建一个新工程,加入一个 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

好了,就是这么简单,试看看吧!