用vb读取html内容,在VB中用XMLHTTP获取网页Html文本

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

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

标签：

本站文章除注明转载外，均为本站原创或翻译。欢迎任何形式的转载，但请务必注明出处、不得修改原文相关链接，如果存在内容上的异议请邮件反馈至hey@evget.com