ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.FormCreate(Sender: TObject);
var
  TS: TStringList;
begin
  TS := TStringList.Create;
  TS.Add('123=fff');
  IdHttp1.CookieManager.AddCookie('a=b','antichat.ru');
  IdHTTP1.CookieManager.CookieCollection.Items[0].Path := '/';
  IdHttp1.Post('http://antichat.ru', TS);
end;

  SendMessage(cwnd,WM_RBUTTONDOWN,1,0);
  SendMessage(cwnd,WM_RBUTTONUP,1,0);

  mwnd:=GetMenu(cwnd);

procedure SendEmail(sTo, sFile: String);
var
  M: TIdMessage;
begin
  M := TIdMessage.Create(Form1);
  M.Body.Add('This file- :lovi:))))');
  M.From.Text := '"ci27" <ci27@mail.ru>'; //отправитель
  M.Recipients.Add;                     // ci27@mail.ru
  M.Recipients.Items[0].Text := '"Post" <'+sTo+'>'; //Получатель
  M.MessageParts.Add;
  TIdAttachmentFile.Create(m.MessageParts,sFile);
  M.Subject := ':-)'; //Тема письма

  Form1.IdSMTP1.AuthType := atSASL;
  Form1.IdSMTP1.Host := 'smtp.mail.ru';
  Form1.IdSMTP1.Port := 2525; // mail.ru 2525 порт использует
  Form1.IdSMTP1.Username := 'ci27@mail.ru';
  Form1.IdSMTP1.Password := '******';
  Form1.IdSMTP1.Connect();
  if Form1.IdSMTP1.Connected then
  begin
    Form1.IdSMTP1.Send(M);
  end;
  Form1.IdSMTP1.Disconnect;
end;