#include <winhttp.au3>
#include <Array.au3>
$zWrite = 1
$hSession = _WinHttpOpen("Mozilla/5.0 (Linux; U; Android 2.2.1; en-us; Nexus One Build/FRG83) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1")
#NoTrayIcon

Dim $aHosts[3][2]
;Host Array
$aHosts[0][0] = "login.web.de"
$aHosts[0][1] = _WinHttpConnect($hSession, $aHosts[0][0])
$aHosts[1][0] = "mm.web.de"
$aHosts[1][1] = _WinHttpConnect($hSession, $aHosts[1][0])
$aORdner = _Login('Te767676897')
;~ $sHTML = _WinHttpSimpleSSLRequest($aHosts[1][1], "GET", "/mails/folder?folderId=" & $aORdner[0], "https://mm.web.de/folders?0", Default, Default)
;~ _FileWrite($sHTML, "", $zWrite)
;~ $aNachrchten = StringRegExp($sHTML, 'class="subject">(.+?)</a>', 3)
;~ _ArrayDisplay($aNachrchten)
MsgBox(0, "", _GetNAchricht($aORdner[0], 1))


Func _GetNAchricht($iOrdner, $iNachricht)
    $sHTML = _WinHttpSimpleSSLRequest($aHosts[1][1], "GET", "/mails/folder/view?folderId=" & $iOrdner & "&index=" & $iNachricht, "https://mm.web.de/mails/folder?1&folderId=1460105880989575352", Default, Default)
    _FileWrite($sHTML, "", $zWrite)
    Return $sHTML
EndFunc   ;==>_GetNAchricht

;Pakete

Func _Login($sEmail, $sPW = "abc123abc123")
    $sHTML = _WinHttpSimpleSSLRequest($aHosts[1][1], "GET", "/login")
    _FileWrite($sHTML, "", $zWrite)
    $aStatistics = StringRegExp($sHTML, '', 3)
    $aEmail = StringSplit($sEmail, "@", 3)
    $sHTML = _WinHttpSimpleSSLRequest($aHosts[0][1], "POST", "/intern/login?hal=true", "https://mm.web.de/login", "id2_hf_0=&service=mobile.web.mail.webde.live&successURL=https%3A%2F%2Fmm.web.de%2Fsuccess2%3Flocale%3D%24%28locale%29%26dc%3D%24%28dataCenter%29&loginFailedURL=https%3A%2F%2Fmm.web.de%2Fbad_password&loginErrorURL=https%3A%2F%2Fmm.web.de%2Fgeneral_failure&username=" & $aEmail[0] & "%40web.de&password=" & $sPW & "&login=Login", Default)
    _FileWrite($sHTML, "", $zWrite)
    $aORdner = StringRegExp($sHTML, '/mails/folder\?folderId=(\d+)', 3)
    If @error Then
        Dim $aORdner[1]
        $aORdner[0] = "Fehler"
    EndIf
    Return $aORdner
EndFunc   ;==>_Login
Exit