和我壹起試試這個。
公共函數GetBody(ByVal URL$,可選ByVal編碼$ = "GB2312 ")
Dim ObjXML
出錯時繼續下壹步
set obj XML = CreateObject(" Microsoft。XMLHTTP”)
使用ObjXML
。打開“獲取”,網址,假,“,”
。setRequestHeader " If-Modified-Since "," 0 "
。發送
GetBody =。響應主體
以…結尾
GetBody = BytesToBstr(GetBody,Coding)
Set ObjXML = Nothing
結束功能
公共函數BytesToBstr(strBody,CodeBase)
模糊目標流
set ObjStream = CreateObject(" Adodb。流”)
使用對象流
。Type = 1
。模式= 3
。打開
。寫strBody
。位置= 0
。類型= 2
。Charset =代碼庫
BytesToBstr =。閱讀文本
。關閉
以…結尾
Set ObjStream = Nothing
結束功能
註意,第壹行代碼中編碼$ = "GB2312 "表示獲取的網頁內容為GB2312編碼格式。如果有亂碼,就改成編碼$ = "utf-8 "。
返回值是:
a = GetBody(" ")