Не удается получить почту. Пару лет назад можно было получить так:
Сейчас этот способ не работает (чуть более года назад mail.ru и yandex.ru перешли на безопасный протокол авторизации SSL).
Поиском пользовался, перепробовал много вариантов, но безрезультатно (возможно, плохо искал, если так, прошу сильно не пинать и ткнуть куда нужно).
Можно ли штатными средствами получить и удалить письма из почты?
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 = ""
Поиском пользовался, перепробовал много вариантов, но безрезультатно (возможно, плохо искал, если так, прошу сильно не пинать и ткнуть куда нужно).
Можно ли штатными средствами получить и удалить письма из почты?