[Помогите!] Авторизация вконтакте!

[nuk1010]

Всем привет, Нуждаюсь в помощи
Нужен скрипт, чтобы из окон edit1 и edit2 при нажатии кнопки на button1 шла авторизация, если человек авторизовался, то открывается Form2
Есть такой?

[ton1ght_]

var data:tstringlist;
      PageProfile:string;
      error:boolean;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
 data.Add('act=login');
 data.Add('expire=1');
 data.Add('vk=');
 data.Add('email=ваш_логин');  // логин для авторизации
 data.Add('pass=пароль');  // пароль для авторизации
 data.Add('success_url=http://vkontakte.ru/share.php?act=logged');
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('http://login.vk.com/', 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=1');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;
   try
    IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data);
   except
   end;
   PageProfile:=IdHTTP1.get('http://vkontakte.ru');
   Form2.ShowModal;
  end
 else
  ShowMessage('hui tebe! :D');
 
 Data.Free;
end;

[tonyr]

почему то ошибка выдается в этой строке var data:tstringlist; сори не очень шарю. помоги пожалуйста

[*xalyava*]

Цитата: Сообщение от ton1ght_ var data:tstringlist; PageProfile:string; error:boolean; begin IdHTTP1.AllowCookies:=true; IdHTTP1.HandleRedirects:=false; data:=tstringlist.create; data.Add('act=login'); data.Add('expire=1'); data.Add('vk='); data.Add('email=ваш_логин'); // логин для авторизации data.Add('pass=пароль'); // пароль для авторизации data.Add('success_url=http://vkontakte.ru/share.php?act=logged'); error:=false; try PageProfile:=IdHTTP1.Post('http://login.vk.com/', 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=1'); data.Add('to='); IdHTTP1.HandleRedirects:=true; try IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data); except end; PageProfile:=IdHTTP1.get('http://vkontakte.ru'); Form2.ShowModal; end else ShowMessage('hui tebe! :D'); Data.Free; end;

блин, ну зачем такой большой код ??)
вот мой:

list.Add('email='+UTF8Encode(Edit1.Text));
  list.Add('pass='+UTF8Encode(Edit2.Text));
 s1:=IdHttp1.post('http://vkontakte.ru/login.php?',list);
 s2:= copy(s1,pos('<title>',s1)+7,length(s1));
 delete(s2,pos('</title>',s2),length(s2));
  label1.Caption:='Ник: '+s2;

маленький и рабочии))

(если зашли, в label1 отразиться ваше имя, фамилия)

[lolwut98]

Цитата: Сообщение от *xalyava* UTF8Encode

а заем оно? инди вроде сам в юникод всё переводит

[*xalyava*]

Цитата: Сообщение от lolwut98 а заем оно? инди вроде сам в юникод всё переводит

Переводит но не в D7 !! И переводит не Indy а сама Delphi

[Hellost]

*xalyava*
Нетуж!Переводит как раз Indy, а не Delphi!

[SCratORS]

вот даю функцию (пример) выковыривания ayth_key
сначала логин, потом переход на приложение и выдергивание ayth_key;

type
Vk =  record
id,auth:string;
end;


Function TForm1.GetAuth(email: string; pass: string; app: string):VK;
Var
data:tstringList;
sid:string;
Html:String;
begin
Data:=TStringList.Create;
Data.Add('act=login');
Data.Add('q=1');
Data.Add('al_frame=1');
Data.Add('expire=');
Data.Add('captcha_sid=');
Data.Add('captcha_key=');
Data.Add('from_host=vkontakte.ru');
Data.Add('email='+email);
Data.Add('pass='+pass);
IdHttp1.Request.CustomHeaders.Clear;
Sid:=IdHttp1.Post('http://login.vk.com/',data);
Sid:=copy(sid,pos('sid',sid)+7,60);
IdHttp1.Request.CustomHeaders.Text:='Cookie: remixchk=5;remixlang=0;remixsid='+sid;
Html:=IdHttp1.Get('http://vkontakte.ru/app'+app);
result.id:=Copy(Html, pos('"viewer_id":',Html)+12, pos(',"viewer_type"',Html) - pos('"viewer_id":',Html)-12);
result.auth:=Copy(Html, pos('"auth_key":"',Html)+12, 32);
IdHttp1.Request.CustomHeaders.Clear;
IdHttp1.Request.CustomHeaders.Text:='Cookie: remixchk=5;remixlang=0;remixsid='+sid;
Html:=IdHttp1.Get('http://vkontakte.ru/login.php?act=logout&al_frame=1');
IdHttp1.Disconnect;
end;

[Sannnick]

На avtuh.ru было много примеров авторизации

[lmbt#]

ненадо рекламу разводить.

Цитата: var PageProfile: String; login,password,r: string; //get-запрос begin IdHTTP1.AllowCookies:=True; IdHTTP1.HandleRedirects:=false; password:='тут пароль'; login:='тут почта'; r:='http://vkontakte.ru/login.php?email='+dtLogin.Text+'&pass='+dtpassword .Text; try PageProfile:=IdHTTP1.Get(r); except end; if Pos('logout', PageProfile)<>0 then Form1.Show else application.MessageBox('Авторизация не удалась','Ошибка'); end;