Код:
#( Задача
NoActive
: pass_login ( -- a1 u1 a2 u2 a3 u3 )
S" hostname" S" username" S" password" ; \ Здесь указываем хост, имя пользователя и пароль
: mail? ( a u -- ? )
S" /_шаблон_темы_письма_/" RE-MATCH ; \ Здесь шаблон типа "регексп"
: Number_a 1 N>S ; \ Заменить число 1 на нужное число "а"
: Number_b 2 N>S ; \ Заменить число 2 на нужное число "b"
: mail_to_save S" C:\text.mail" ; \ Куда сохранить письмо
Action:
pass_login POP3-CONNECT 0=
IF
POP3-STAT THROW 0>
IF
1 POP3-RET THROW mail_to_save FWRITE
1 0 POP3-TOP THROW 2DUP mail?
IF
Number_a SEARCH
IF
MSG: "В теме найдено число а"
THEN 2DROP
mail_to_save FILE Number_b SEARCH
IF
MSG: "В письме найдено число b"
THEN 2DROP
ELSE
2DROP ERR-MSG: "Подходящих писем нет"
THEN
ELSE
ERR-MSG: "Писем нет"
THEN
POP3-QUIT THROW
ELSE
ERR-MSG: "Error when connecting to the POP3 server"
THEN
)#
Остальная часть - после оплаты и предоставления дополнительной информации:
п.8 -- Скриншот экрана в родном разрешении в жопег качестве не более 60%, сразу после загрузки ИЕ этого сайта.
п.7. -- Где именно хранятся пас и имя пользователя? После каких слов(символов) они расположены? Привести пример.
п.8.1 -- Предоставить текст окна ИЕ в этом случае.(контрол+а, копировать)
п.10. -- Скриншот экрана в родном разрешении в жопег качестве не более 60%, сразу после загрузки ИЕ этого сайта.
п.11.-13 -- Тип содержимого - текст? Скриншот опять же.
Вход
Регистрация
Благодарности
Forth-FAQ
