Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- oWhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
- oWhr.Open("GET", "https://www.phpbb.com/ideas/", false)
- oWhr.SetRequestHeader("Accept-Encoding", "gzip, deflate, br")
- oWhr.Send()
- MsgBox, % oWhr.getAllResponseHeaders()
- MsgBox, % oWhr.status
- arr := oWhr.ResponseBody
- length := arr.MaxIndex() + 1
- pData := NumGet( ComObjValue(arr) + 8 + A_PtrSize )
- MsgBox, % res := GzipDecode(pData, length)
- GzipDecode(pData, size) {
- arr := "["
- Loop % size
- arr .= (arr = "[" ? "" : ",") . NumGet(pData + A_Index - 1, "UChar")
- arr .= "]"
- html =
- (
- <!DOCTYPE html>
- <html>
- <head>
- <meta http-equiv="X-UA-Compatible" content="IE=edge">
- <script src="https://cdnjs.cloudflare.com/ajax/libs/pako/1.0.8/pako.min.js"></script>
- <script>
- var charData = %arr%;
- var binData = new Uint8Array(charData);
- var data = pako.inflate(binData);
- var strData = String.fromCharCode.apply(null, new Uint16Array(data));
- </script>
- </head>
- </html>
- )
- oDoc := ComObjCreate("htmlfile")
- oDoc.write(html)
- Loop {
- Sleep, 10
- try res := oDoc.parentWindow.strData
- catch
- continue
- break
- }
- Return res
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement