[Admin]

Сообщение от hugolom

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
	     PageProfile:string;
	     error:boolean;
	begin
	 IdHTTP1.AllowCookies:=true;
	 IdHTTP1.HandleRedirects:=false;
	 data:=tstringlist.create;
	 data.Add('email='+edit1.text);
	 data.Add('pass='+edit2.Text);
	 data.Add('expire=');
	 data.Add('vk=');
	 error:=false;
	 try
	  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
	 except
	  error:=true;
	 end;

	 if not(error) then
	  begin
	   data.Clear;
	   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
	   data.Add('op=slogin');
	   data.Add('redirect=1');
	   data.Add('expire=0');
	   data.Add('to=');
	   IdHTTP1.HandleRedirects:=true;
	   try
	    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
    except
	   end;
     MEMO1.Lines.Add('YES');
	  end
	 else
  MEMO1.LINES.Add('NO');

	 Data.Free;

   BEGIN


   data.Add('добавить его в друзья');

   PageProfile:=IdHTTP1.Post('http://vkontakte.ru/id********', data);



 END;


END;
end.

надо чтоб после авторизации, перешел на http://vkontakte.ru/id******** и добавил человека в друзья, как можно реализовать? нажатие кнопки чтоли..

Вроде у них API есть для этого...