按鍵精靈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