Advertisement
Guest User

Untitled

a guest
Dec 22nd, 2016
116
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.51 KB | None | 0 0
  1. #include <winhttp.au3>
  2. #include <Array.au3>
  3. $zWrite = 1
  4. $hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; WOW64; rv:50.0) Gecko/20100101 Firefox/50.0")
  5. #NoTrayIcon
  6.  
  7. Dim $aHosts[3][2]
  8. ;Host Array
  9. $aHosts[0][0] = "mm.web.de"
  10. $aHosts[0][1] = _WinHttpConnect($hSession, $aHosts[0][0])
  11. $aHosts[1][0] = "login.web.de"
  12. $aHosts[1][1] = _WinHttpConnect($hSession, $aHosts[1][0])
  13. $aHosts[2][0] = "navigator.web.de"
  14. $aHosts[2][1] = _WinHttpConnect($hSession, $aHosts[2][0])
  15.  
  16. ;Pakete
  17. $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')
  18. _FileWrite($sHTML, "", $zWrite)
  19.  
  20. Exit
  21.  
  22. Func _FileWrite($sHTML, $Zusatz = "", $Write = 0)
  23.     If Not IsDeclared("c_Filewrite") Then Global $c_Filewrite = 1
  24.     ConsoleWrite(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & @CRLF)
  25.     If $Write = 1 Then
  26.         FileDelete(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & ".html")
  27.         FileWrite(@ScriptDir & "\" & $c_Filewrite & "mmm" & $Zusatz & ".html", $sHTML)
  28.     EndIf
  29.     $c_Filewrite += 1
  30. EndFunc   ;==>_FileWrite
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement