说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何从 Internet 上取回某一个网页的內容?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何从 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
好了,就是这么简单,试看看吧!


备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘