Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <winhttp.au3>
- #include <Array.au3>
- $zWrite = 1
- $hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; WOW64; rv:50.0) Gecko/20100101 Firefox/50.0")
- #NoTrayIcon
- Dim $aHosts[3][2]
- ;Host Array
- $aHosts[0][0] = "mm.web.de"
- $aHosts[0][1] = _WinHttpConnect($hSession, $aHosts[0][0])
- $aHosts[1][0] = "login.web.de"
- $aHosts[1][1] = _WinHttpConnect($hSession, $aHosts[1][0])
- $aHosts[2][0] = "navigator.web.de"
- $aHosts[2][1] = _WinHttpConnect($hSession, $aHosts[2][0])
- ;Pakete
- $sHTML = _WinHttpSimpleSSLRequest( $aHosts[1][1], "POST", "/login", "https://mm.web.de/", "service=freemail&successURL=https%3A%2F%2Fnavigator.web.de%2Flogin&loginFailedURL=https%3A%2F%2Fmm.web.de%2Ferror.html&loginErrorURL=https%3A%2F%2Fmm.web.de%2Fnologin.html&statistics=GhQp87lFXR_l3IJ3dDzVBu6zn0AFWhGW5u7SfKziNisQfzTH79KIm6TLnU9RreGYa17PPg1hx0TK5uJIwrMi-rF8vIyhCYw-3tzTJceSnxfCT5VjbDZzrRzjcZnraMUHGEKHpdfYLLy0hQG8xQ4L0jaZh_3d0o5mVotB10GLsHRbnGT_rmmAR87Uk5yX78AX&username=MEINEEMAILADRESSE%40web.de&password=MEINPASSWORT&login=Login", 'DNT: 1' & @CRLF & 'Upgrade-Insecure-Requests: 1')
- _FileWrite($sHTML, "", $zWrite)
- Exit
- Func _FileWrite($sHTML, $Zusatz = "", $Write = 0)
- If Not IsDeclared("c_Filewrite") Then Global $c_Filewrite = 1
- ConsoleWrite(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & @CRLF)
- If $Write = 1 Then
- FileDelete(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & ".html")
- FileWrite(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & ".html", $sHTML)
- EndIf
- $c_Filewrite += 1
- EndFunc ;==>_FileWrite
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement