Что нового

Доступ к IMAP серверу по TCP

vitaliy4us

Новичок
Сообщения
158
Репутация
3
Пытаюсь получить доступ к папке Inbox на почтовом сервере Yahoo. Но при этом не получаю никакого ответа от сервера ( Local $response = TCPRecv($iSocket, 64, 1) возвращает пустую строку). Нашел пример https://www.autoitscript.com/forum/topic/40243-imap-script/, но там тоже возвращается пустая строка. В чем может быть проблема?
Код:
Example()

Func Example()
    Local $result = TCPStartup() ; Start the TCP service.
    MsgBox(0,"", "The result of TCPStartup() = " & $result)
    Local $iSocket = TCPConnect("217.146.190.234", 993)
    MsgBox(0,"", "The result of TCPConnect = " & $iSocket & @LF & "@error = " & @error)
    $result = TCPSend($iSocket, StringToBinary('capability', 4))
    Local $response = TCPRecv($iSocket, 64, 1)
    Local $error = @error
    MsgBox(0,"", "The result of TCPSend() = " & $result & @LF & "The result of TCPRecv() = " & $response & @LF & "@error = " & $error)

    ; Register OnAutoItExit to be called when the script is closed.
    OnAutoItExitRegister("OnAutoItExit")
EndFunc   ;==>Example

Func OnAutoItExit()
    $result = TCPShutdown() ; Close the TCP service.
    MsgBox(0,"", "The result of TCPShutdown() = " & $result)
EndFunc   ;==>OnAutoItExit
 
Верх