获取HTML源代码

最新推荐文章于 2021-06-17 07:58:29 发布

原创最新推荐文章于 2021-06-17 07:58:29 发布 · 711 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#html #function #url

VB 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种使用VBA进行网络GET请求的方法，并演示了如何将获取到的字节流转换为指定编码（如GB2312或UTF-8）的文本。通过创建并利用Microsoft.XMLHTTP对象与Adodb.Stream对象实现跨网络获取数据及编码处理。

Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.ReadyState <> 4
DoEvents
Wend
GetCode = xmlHTTP1.ResponseBody
If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
MsgBox "finish"
End Function

Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function