VBS中怎么獲取GZIP壓縮的HTTP內容，相信很多沒有經驗的人對此束手無策，為此本文總結了問題出現的原因和解決方法，通過這篇文章希望你能解決這個問題。
不同組件對GZIP壓縮的處理不盡相同，首先看Msxml2.XMLHTTP：
'By Demon
'http://demon.tw
Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText從測試的結果看，Msxml2.XMLHTTP會自動進行GZIP解壓，GOOD！
其次是Msxml2.ServerXMLHTTP：
'By Demon
Dim http
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText很可惜，返回的是亂碼。再看看WinHttp.WinHttpRequest.5.1：
'By Demon
Dim http
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo http.responseText依然是亂碼。雖然說一般情況下用Msxml2.XMLHTTP組件已經綽綽有余了，但是有些時候還是不行的，比如不能發送Cookie，不能偽造Referer等等。所以還是得想辦法對GZIP進行解碼，辦法無外乎兩種，自己用VBS寫算法或者調用第三方組件。
算法我就偷懶不寫了，感覺效率不會太高，哪位朋友感興趣可以寫來玩玩。找了個不錯的第三方組件（居然用第三方，我果然老了）Chilkat.Gzip：
Dim Gzip
Set Gzip = CreateObject("Chilkat.Gzip")
Gzip.UnlockComponent ""
'By Demon
Dim http
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.open "GET", "https://www.baidu.com", False
http.setRequestHeader "Accept-Encoding", "gzip"
http.send
WScript.Echo Gzip.UncompressString(http.responseBody, "utf-8")看完上述內容，你們掌握VBS中怎么獲取GZIP壓縮的HTTP內容的方法了嗎？如果還想學到更多技能或想了解更多相關內容，歡迎關注億速云行業資訊頻道，感謝各位的閱讀！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
