Авторизация vkontakte

[[koyot]]

нужен алгоритм авторизации не для проверки пароля а именно для получения страниц юзера тоесть я так понимаю нужны куки есть код:

procedure TForm1.Button1Click(Sender: TObject);
var
  http:TidHttp;
  CooM:TidCookieManager;
  data:TStringList;
  page, id, name:String; 
begin
  http:=TIdHTTP.Create(Self);
  data :=TStringList.Create;
  CooM:=TidCookieManager.Create(http);
  http.AllowCookies:=true;
  http.CookieManager:=CooM;
  http.HandleRedirects:=true;



  data.Add('u=1');
  data.Add('success_url=');
  data.Add('fail_url=');
  data.Add('try_to_login=1');
  data.Add('email='+Edit1.Text);
  data.Add('pass='+Edit2.Text);
  Page:= http.Post('http://vkontakte.ru/login.php?', data);
  memo1.text:=page;
 data.Free;
  Coom.Free;
  http.Free;
  name:='';
  name:=copy(page,Pos('<h1> <b>Online</b>',page)+length('<h1> <b>Online</b>'),Pos('<span>',page)-(Pos('<h1> <b>Online</b>',page)+length('<h1> <b>Online</b>')));
  if Pos('<h1> <b>Online</b>',page)<>0 then Label4.Caption:='Name :: '+name;
  id:='';
  if Pos('<input type="hidden" id="mid" value="',page)<>0 then delete(page,1,Pos('<input type="hidden" id="mid" value="',page)-1);
  id:=copy(page,Pos('<input type="hidden" id="mid" value="',page)+length('<input type="hidden" id="mid" value="'),Pos('">',page)-(Pos('<input type="hidden" id="mid" value="',page)+length('<input type="hidden" id="mid" value="')));
  if Pos('<input type="hidden" id="mid" value="',page)<>0 then Label3.Caption:='ID :: '+id;

end;

нащел в инете должен определять имя пользователя тоесть получает искомую страницу..... люди говорят работает но скомпилить немогу ибо надо инди 10.2... а у меня инди 10.0.52 составил такойже код поновой скомпилилось но выдает пустую страницу в мемо

может кто подможет?

зы по форуму искал нашол только для проверки пароля

[Teen4jump]

У тебя авторизация то проходит? У мня нет, такая же проблема, как и у тебя...

[Vitek-pm]

Я недавно написал авторизацию на vkontakte с использованием компонента HTTPCli от ICS. Вроде бы всё нормально работает, могу поделиться.
Сначала тоже пытался сделать с использованием компонентов от Indy - не получилось, наверное версия стара была.

[jone]

так делись!

[Vitek-pm]

Вот мой вариант, только не на Делфи, а на C++Builder 6, но думаю переделать не сложно.

void __fastcall TfMain::btEnterClick(TObject *Sender)
{
AnsiString post="email="+edEmail->Text+"&pass="+edPass->Text;
AnsiString href="http://vkontakte.ru/login.php";

TMemoryStream *DataIn=new TMemoryStream;
TMemoryStream *DataOut=new TMemoryStream;
bool ok=false;

try
  {
   DataOut->Write(post.c_str(), post.Length());
   DataOut->Seek(0,soFromBeginning);
   HTTP->SendStream=DataOut;
   HTTP->RcvdStream=DataIn;
   HTTP->URL=href;
   HTTP->Post();
   ok=true;
  }
catch(...){}

if (ok)
  {
   DataIn->SaveToFile("1.html");
  }

delete DataIn;
delete DataOut;
}

...

void __fastcall TfMain::HTTPCookie(TObject *Sender, const AnsiString Data,
      bool &Accept)
{
if (Data.Pos("remixsid")!=0)
  {
   AnsiString t=Data.SubString(Data.Pos("remixsid"),Data.Length()-Data.Pos("remixsid"));
   HTTP->Cookie=Data.SubString(0,t.Pos(";")-1);   //руками забиваем необходимые куки, а именно remixsid
  }
}

После авторизации можно уже спокойно ползать по сайту, посалать POSTом сообщения, и т. п.

Напоминаю, что данный кусок кода написан с использованием компонента HTTPCli из ICS. Вот здесь эти компоненты можно скачать: http://www.overbyte.be/frame_index.html. Попробуйте, кому интересно.

[Квэнди]

Для авторизации и работы с этим сайтом вам необходимо обновить Indy до версии за 26.03.2009. Все ошибки с перехватом и передачей куков,которые и обуславливали эту проблему теперь решены. Авторизация проходит успешно.

procedure TForm21.btn1Click(Sender: TObject);
var ss:TStringList;
f:TFileStream;
begin
mmo1.Lines.Clear;
mmo2.Lines.Clear;
mmo3.Lines.Clear;
http1.Get('http://vkontakte.ru/index.php');
mmo2.lines.add('cookie1.CookieCollection.Count: '+inttostr(cookie1.CookieCollection.Count));
mmo3.Lines.Add(http1.Request.RawHeaders.Text);
mmo3.Lines.Add('');
mmo3.Lines.Add(http1.Response.RawHeaders.Text);
mmo3.Lines.Add('');
ss:=TStringList.Create;
f:=TFileStream.Create('c:\111.html',fmCreate);
try
 	ss.Add('email=programmers@mail.ru');
  ss.Add('pass=123456');
  ss.Add('expire=1');
  http1.Post('http://vkontakte.ru/login.php',ss,f);
  mmo3.Lines.Add(http1.Request.RawHeaders.Text);
	mmo3.Lines.Add('');
	mmo3.Lines.Add(http1.Response.RawHeaders.Text);
	mmo3.Lines.Add('');
finally
	ss.Free;
  f.Free;
  ShellExecute(Handle, nil,pchar('c:\111.html'), nil, nil, SW_SHOW);
end;
end;

[tigr1991]

"обновить Indy до версии за 26.03.2009" - это indy10? или что-то другое? не могли бы вы пожалуйста дать прямую ссылку на эту версию indy?

[Viteef]

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

"обновить Indy до версии за 26.03.2009" - это indy10? или что-то другое? не могли бы вы пожалуйста дать прямую ссылку на эту версию indy?

http://kvendi.pp.ru/?p=66

[TwiX]

[Error] Unit1.pas(60): Undeclared identifier: 'ShellExecute'

Как исправить?

[Квэнди]

uses .....,shellapi;