и снова вконтакте

[Кольша]

function pars(a,b,s:string):string;
var
t:string;
begin
if b<>'' then begin
t:=copy(s,pos(a,s)+length(a),length(s));
t:=copy(t,1,pos(b,t)-1);
result:=t;
end else begin
t:=copy(s,pos(a,s)+length(a),length(s));
result:=t;
end;
end;
function auth(l, p: string): BOOLEAN;
type status_auth=(onlogin,onfailed,oncaptcha);
var
  data:tstringlist;
  PageProfile,sid:string;
  i: Integer;
  status:status_auth;
  s, c, remixchk, remixsid: string;
begin
go:
http.CookieManager.CookieCollection.Clear;
  HTTP.AllowCookies:=true;
  HTTP.HandleRedirects:=false;
  data:=tstringlist.create;
data.Add('act=login');
data.Add('q=1');
data.Add('al_frame=1');
data.Add('expire=');

data.Add('from_host=vkontakte.ru');
data.Add('email='+l);                                                      
data.Add('pass='+p);
captcha_sid:='';
captcha_key :='';
try  
PageProfile:=HTTP.Post('http://login.vk.com/?act=login', data);
except                                  
PageProfile:=http.Get(http.Response.Location);     
end;                      
if pos('onLoginDone',PageProfile)<>0 then
status:=onlogin
else if pos('onLoginFailed',PageProfile)<>0 then
status:=onfailed
else
status:=oncaptcha;
case status of
onlogin:
begin
c := http.Response.RawHeaders.Text;
while (pos('sid=deleted; expires=',c)>0) do
delete(c,pos('sid=deleted; expires=',c),length('sid=deleted; expires=')+length('GMT; path=/; domain=.vk.com'));//Несколько раз вк посылает пустые куки их нужно удалить
i := Pos('remixsid', c) + 9;
remixsid := Copy(c, i, length(c));
remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
http.Request.CustomHeaders.Text := 'Cookie: remixsid='+remixsid;
http.CookieManager.AddCookie('remixchk='+remixchk+'; remixsid='+remixsid,'http://vk.com');
result:=TRUE;
end;
onfailed:result:=false;
oncaptcha:
begin
SHOWMESSAGE('CAPTCHA');//с капчой разберетесь сами ^_^
end;

end;
end;

[unbanned]

+1 спасибо будем разбираться

[unbanned]

что-то как то... не пойму я. вроде написано что onLoginDone... а пытаешься загрузить страницу с почтой например (al_im.php) возвращает

<script type="text/javascript">
var _ua = navigator.userAgent;
var locDomain = 'vk.com'.match(/[a-zA-Z]+\.[a-zA-Z]+\.?$/)[0];
if (/opera/i.test(_ua) || !/msie 6/i.test(_ua) || document.domain != locDomain) {
document.domain = locDomain;
}
parent.__qlClear();
parent.onLoginDone('/id0');
</script>

и редирект на страницу с формой авторизации


и если возникнет вопрос.... практически ваша функция

function TForm1.auth(l, p: string): BOOLEAN;
var
  data:tstringlist;
  PageProfile,sid:string;
  i: Integer;
  s, c, remixsid: string;
  host:TIdUri;
begin
  host:=tiduri.Create('http://vk.com');
  http:=tidhttp.Create();
  HTTP.AllowCookies:=true;
  HTTP.HandleRedirects:=false;
  data:=tstringlist.create;
data.Add('act=login');
data.Add('q=1');
data.Add('al_frame=1');
data.Add('expire=');

data.Add('from_host=vkontakte.ru');
data.Add('email='+l);
data.Add('pass='+p);

try
PageProfile:=HTTP.Post('http://login.vk.com/?act=login', data);
except
PageProfile:=http.Get(http.Response.Location);
end;
c := http.Response.RawHeaders.Text;
while (pos('sid=deleted; expires=',c)>0) do
delete(c,pos('sid=deleted; expires=',c),length('sid=deleted; expires=')+length('GMT; path=/; domain=.vk.com'));
i := Pos('remixsid', c) + 9;
remixsid := Copy(c, i, length(c));
remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
http.Request.CustomHeaders.Text := 'Cookie: remixsid='+remixsid;
http.CookieManager.AddserverCookie('remixsid='+remixsid, host);
result:=TRUE;
try
   PageProfile:=http.Get('http://vk.com/al_im.php');
  except

    end;
end;

[Кольша]

http.CookieManager.AddCookie('remix chk='+remixchk+'; remixsid='+remixsid,'http://vk.com');
Может так не?

[eoln]

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

вконтакте опять сменили авторизацию... более того авторизация через метод Get больше не работает.

С гетом всё нормально

Ставим Indy 10
Кидаем idhttp
Ставим HandleRedirects в True;
Делаем idHTTP1.Get('http://login.vk.com/?act=login&email=мыло&pass=пароль')
Идём пить чай

[Кольша]

unbanned, а какая у вас версия indy? Если выше чем у делфи 7 то у вас этот код работать не будет 100% там надо делать как сказал eoln и еще также ловить куки..

[unbanned]

эмм.. это Delphi XE

http.CookieManager.AddCookie('remix chk='+remixchk+'; remixsid='+remixsid,'http://vk.com');
Может так не?

не. т.к. чему у вас равна remixchk ? она все равно пустая судя по вашей функции и в куках её тоже нет в приницпе

[Кольша]

Delphi XE? Не будет работать,но запрос лучше посылать на тот же адрес...

[unbanned]

я вот что не пойму... каким образом связана версия (Indy, Delphi) и работоспособность кода или это связано с особенностями компонента?

[Кольша]

Незнаю я пробовал инди обновлять...и все мои сетевые программы работали неправильно..пришлось удалять делфи и ставить по новой...