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

unit Unit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls;

type
TForm14 = class(TForm)
Button1: TButton;
ht1: TIdHTTP;
TEdit : Edit1;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);
var st:string;
p:integer;
begin

st:= ht1.Get('http://Страница/');
р := pos('Личные сообщения',st); // можно pos('Личные сообщения',st) + 16; чтоб убрать надпись "Личные сообщения"
Edit1.text :=copy(st, p, 20) ;

end;

end.

mpfds := TIdMultiPartFormDataStream.Create(Self); 
    mpfds.AddFormField('vb_login_username', 'Вася'); 
    mpfds.AddFormField('vb_login_password', 'Пупкин'); 
   
 IdHTTP.AllowCookies:= True; 
IdHTTP.HandleRedirects:= True; 
idHTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'; 
idHTTP.Request.ContentType:='application/x-www-form-urlencoded'; 
idHttp.Post('http://  ....   /login.php?do=login', mpfds);
 mpfds.Free;

<form action="login.php?do=login" method="post" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)">

var
i: Byte;
m: array [0..99] of TICQClient;
begin
for i:=0 to 99 do
begin
  m[i]:=TICQClient.Create(nil);
  with m[i] do
  begin
    UIN:=00000000;
    Password:='qwerty';
    Login();
  end;
end;