[решено] Работа с POP3 сервером

amel27 · Отправлено: **10:02, 05-08-2009** | #2

morgan1991, все не так просто - POP3 использует протокол TELNET, поэтому требуется его пролная реализация в скрипте... либо (что проще) использовать для этого сторонние клиенты (Microsoft Telnet, PuTTY, etc.) или библиотеки (ExtraPUTTY)

abb269 · Отправлено: **10:06, 05-08-2009** | #3

2morgan1991
может Вам вот это нужно
http://www.autoitscript.com/forum/in...pic=23860&st=0
Хотя это немного из другой оперы

amel27 · Отправлено: **10:10, 05-08-2009** | #4

Цитата morgan1991:

И ещё вопросик как узнать IP адрес сервера?
Например я ввожу pop.mail.ru, а скрипт должен мне показать 94.100.177.6»

Код:

TCPStartup()
ConsoleWrite(TCPNameToIP("pop.mail.ru") &@CRLF)

morgan1991 · Отправлено: **17:15, 05-08-2009** | #5

Цитата amel27:

или библиотеки (ExtraPUTTY) »

Я так понял в ней функция "Connexion" служит для подключения к серверу?
Я не очень понимаю, но пробовал сделать так:

Код:

$DllOpen = DllOpen("ExtraPuTTY.dll")
DllCall($DllOpen, "char", "Connexion", "char", "pop.mail.ru", "unsigned long", "4", "char", "ЛОГИН", "char", "ПАРОЛЬ", & _
"bool", "TRUE", "long", "0", "unsigned long", "0", "long", "1")

Не понял зачем нужно "GenerateReport" и "CallBackRcvData"...
Помогите разобраться....

amel27 · Отправлено: **06:00, 06-08-2009** | #6

Цитата morgan1991:

пробовал сделать так »

должно быть примерно так:

Код:

$ExtraPuTTY = EnvGet("ExtraPuTTY") ; путь к программе
$thConn = DllStructCreate("ulong") ; структура описателя соединения
If $ExtraPuTTY=="" Then MsgBox(16, "Script Error!", "Переменная окружения ExtraPuTTY н задана!")
; Открываем DLL
$hDll = DllOpen($ExtraPuTTY &"\ExtraPuTTY.dll")
If $hDll=-1 Then MsgBox(16, "Script Error!", "Файл ExtraPuTTY.DLL не найден!")
; Подключаемся...
$aRet = DllCall($hDll, "int", "Connexion", _
    "str", "94.100.177.6", _           ; TargetName (TargetName or PuttySession Name )
    "ptr", DllStructGetPtr($thConn), _ ; ConnexionId (Connexion Handle)
    "str", "", _                       ; Login
    "str", "", _                       ; Password
    "int", 0, _                        ; ShowPuTTY (TRUE: Putty Terminal is display, FALSE: not display)
    "int", 0, _                        ; Protocol (0:Telnet,1:SSH,2:Rlogin,3:Raw,4:LoadPutty Session)
    "int", 110, _                      ; PortNumber (If the parameter is set to 0, the value of the default settings of putty is used)
    "int", 0, _                        ; GenerateReport (1:extraputty report activate,0:Not activate)
    "ptr", 0 )                         ; CallBackRcvData
; Анализируем результат
If @error Then MsgBox(16, "DllCall Error!", @error &":"& @extended)
$hConn = DllStructGetData($thConn, 1) ; Получаем описатель соединения
ConsoleWrite("Результат выполнения ф-ции Connexion = "& $aRet[0] &@CRLF)
; Закрываем соединение
If $hConn <> 0 Then
    DllCall($hDll, "int", "CloseConnexion", "ulong", $hConn)
EndIf

Цитата morgan1991:

Не понял зачем нужно "GenerateReport" и "CallBackRcvData"... »

это опциональные параметры... судя по имени, GenerateReport должен генерить отчет о сеансе, CallBackRcvData - определяет CallBack-функцию, которая будет перехватывать все промежуточные данные еще до завершения команды (обычно используется для всяких индикаторов состояния/прогрессбаров)

P.S. Для POP3 не нужно передавать Login/Password при установке соединения - для этого есть отдельные команды (USER/PASS), передаваемые уже в самом сеансе.

morgan1991 · Отправлено: **13:23, 06-08-2009** | #7

Цитата amel27:

должно быть примерно так: »

Он мне возвращает 1, и какой бы я путь к программе не указал пишет что путь не указан.
А если коменчу, то возвращает 1.

amel27 · Отправлено: **13:29, 06-08-2009** | #8

Цитата morgan1991:

Он мне возвращает 1 »

в свойствах компьютера нужно задать системную переменную с именем ExtraPuTTY, содержащую путь к каталогу с программой, и проверить в CMD командой: "Set ExtraPuTTY", должна выдать что-то типа:

Код:

ExtraPutty=C:\Program Files\ExtraPuTTY

цитата из справки:

Цитата:

The ExtraPuTTY DLL need the path of ExtraPuTTY.
In order to do that you must create the environment variable "ExtraPuTTY" with the path of ExtraPuTTY.

morgan1991 · Отправлено: **13:36, 06-08-2009** | #9

Цитата amel27:

в свойствах компьютера нужно задать системную переменную с именем ExtraPuTTY, содержащую путь к каталогу с программой, и проверить в CMD »

Всё сделал, но всёравно выдаёт ошибки: переменная не задана и не могу открыть DLL...

amel27 · Отправлено: **13:51, 06-08-2009** | #10

Цитата morgan1991:

всёравно выдаёт ошибки »

можно задать напрямую через реестр, но потребуется перелогин/перезагрузка:

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment]
"ExtraPutty"="C:\\Program Files\\ExtraPuTTY"