按键精灵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
posted @ 2016-10-01 19:34  Ali.Blacken  阅读(5288)  评论(0)    收藏  举报