VB如何獲取網頁的內容

相關代碼如下：

Public?Function?getHtmlStr(strUrl?As?String)'獲取遠程網頁源碼

On?Error?Resume?Next

Dim?XmlHttp?As?Object,?stime,?ntime

Set?XmlHttp?=?CreateObject("Microsoft.XMLHTTP")

XmlHttp.open?"GET",?strUrl,?True

XmlHttp.send

stime?=?Now?'獲取當前時間

While?XmlHttp.ReadyState?<>?4

DoEvents

ntime?=?Now?'獲取循環時間

If?DateDiff("s",?stime,?ntime)?>?3?Then?getHtmlStr?=?"":?Exit?Function

Wend

getHtmlStr?=?StrConv(XmlHttp.responseBody,?vbUnicode)

Set?XmlHttp?=?Nothing

End?Function

2、代碼使用：在窗體代碼相應位置寫如下代碼

dim?a?as?string

a=getHtmlStr("要獲取的網站網址url")

上面a取得的值就是我們要的結果。