Vb自动读取本地HTML,VB获取网页源代码的五种方法

方法1：inet控件调用方法 Inet1.OpenURL

添加microsoft ineternet transfor conctrol6.0 控件

方法2：XMLHTTP

'如果出现乱码，UTF-8可改为GB2312

Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")

Dim ObjXML

On Error Resume Next

Set ObjXML = CreateObject("Microsoft.XMLHTTP")

With ObjXML

.Open "Get", URL, False, "", ""

.setRequestHeader "If-Modified-Since", "0"

.Send

GetBody = .ResponseBody

End With

GetBody = BytesToBstr(GetBody, Coding)

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

<