Private Function getHtmlStr$(Url$)
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "POST", Url, False'这里可以用POST和GET不过POST更好些,得到的网页始终最新
XmlHttp.send
Do While (XmlHttp.ReadyState <> 4)'一直等待到它下载完
DoEvents
Loop
getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
大家看看里面的这一段到底有没有用?
Do While (XmlHttp.ReadyState <> 4)'一直等待到它下载完
DoEvents
Loop另外问一下谁知道有什么快速下载网页的方法?反正用inet和webbrowser感觉很不理想。
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "POST", Url, False'这里可以用POST和GET不过POST更好些,得到的网页始终最新
XmlHttp.send
Do While (XmlHttp.ReadyState <> 4)'一直等待到它下载完
DoEvents
Loop
getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
大家看看里面的这一段到底有没有用?
Do While (XmlHttp.ReadyState <> 4)'一直等待到它下载完
DoEvents
Loop另外问一下谁知道有什么快速下载网页的方法?反正用inet和webbrowser感觉很不理想。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货