按键精灵http.定义getWeb

aita6163

于 2016-10-01 19:34:00 发布

阅读量1.9k

点赞数

文章标签：网络 json

原文链接：http://www.cnblogs.com/aliblogs/p/5926260.html

版权

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

转载于:https://www.cnblogs.com/aliblogs/p/5926260.html