按键精灵http.定义getWeb

Function 取网页源码(URL) 
    Set objXML=CreateObject("Microsoft.XMLHTTP")
    objXML.Open "Get", Url, False
    objXML.send
    If objXML.readyState=4 then 
        取网页源码 =objXML.ResponseText
    End If
    objXML.Abort 
    Set objXML = Nothing
End Function