Что нового

[Сеть, интернет] Получить почту (протокол SSL)

dimas1221

Новичок
Сообщения
5
Репутация
0
Не удается получить почту. Пару лет назад можно было получить так:
http://autoit-script.ru/index.php?topic=2049.msg16720#msg16720
Код:
$popsrv = ""   ;POP3 server
$srvuser = ""    ;login
$srvpass = ""    ;password

TCPStartup ()

    Global $socket = TCPConnect (TCPNameToIP ($popsrv), 110)
    If $socket = -1 Then
        MsgBox(8240, 'Error', 'Error; could not connect to server ' & $popsrv, 5)
    EndIf

    Do
        $recv = TCPRecv ($socket, 512)
    Until $recv <> ""
    $recv = ""

    TCPSend ($socket, "user " & $srvuser & @CRLF)

    Do
        $recv = TCPRecv ($socket, 512)
    Until $recv <> ""
    $recv = ""


    TCPSend ($socket, "pass " & $srvpass & @CRLF)

    Do
        $recv = TCPRecv ($socket, 512)
    Until $recv <> ""
    $err = StringInStr($recv, "-ERR")
    If $err > 0 Then
        MsgBox(4112, "authentication failed", "Invalid User Name or Password for " & $popsrv, 8)
        TCPSend ($socket, 'quit' & @CRLF)
        TCPCloseSocket ($socket)
    EndIf
    $recv = ""


    TCPSend ($socket, 'list' & @CRLF)
    Do
        $recv = TCPRecv ($socket, 10240)
        $recpoint = StringInStr($recv, ".")
        Sleep(1000)
    Until $recpoint > 0
    ConsoleWrite (@CRLF&@CRLF&@CRLF&$recv&@CRLF&@CRLF&@CRLF)
    $recv = ""

    TCPSend ($socket, 'RETR 1'&@CRLF)
    Do
        Sleep (5000)
        $recv = TCPRecv ($socket, 1024000)
    Until $recv <> ""
    ConsoleWrite (@CRLF&@CRLF&@CRLF&$recv&@CRLF&@CRLF&@CRLF)
    $recv = ""
Сейчас этот способ не работает (чуть более года назад mail.ru и yandex.ru перешли на безопасный протокол авторизации SSL).
Поиском пользовался, перепробовал много вариантов, но безрезультатно (возможно, плохо искал, если так, прошу сильно не пинать и ткнуть куда нужно).
Можно ли штатными средствами получить и удалить письма из почты?
 
Верх