Dim objXMLHTTP xml place Set xml = ServerCreateObject("MicrosoftXMLHTTP") xmlOpen "GET" "網址"False xmlSend response = xmlresponseText 獲取頁面的返回值