![Старый](images/statusicon/post_old.gif)
05.08.2010, 22:03
|
![Аватар для Admin](image.php?u=1&dateline=1128338681) |
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,531
Версия Delphi: Delphi 7
Репутация: выкл
|
|
Цитата:
Сообщение от 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 есть для этого...
|