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感觉很不理想。