Авторизация вконтакте

[Андрей.12]

procedure TForm5.btn1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('email=');

params.Add('pass=');
responseres.Text:=http1.Post('http://login.vk.com/?act=login',params);
if Pos('logout',responseres.Text)>0 then
  ShowMessage('Авторизовались!')else
  ShowMessage('no!')
end;

не проходит авторизация(

[Alex Cones]

http://www.programmersforum.ru/showp...40&postcount=3

[Андрей.12]

ну я просто пытаюсь авторизоваться вконтакте

[adidasko]

Берешь сниффер например HttpAnalyzerStd и смотришь POST запросы. Потом аналогично делаешь у себя в программе т.е отправляешь, все данные на сайт.

[Adamrus]

Всем привет!
Вопрос очень похож: собственно:
сейчас чел реализует систему обмена служебными записками на предприятии на Php.
Мне нужно написать оповещалку, что пришло новое сообщение.
Вопрос следующий: как запустить браузер по-умолчанию, ПЕРЕДАВ ЕМУ логин и пароль методом POST?
как тупо запустить браузер по-умолчанию я в курсе. интересует именно с передачей параметров методом ПОСТ.
спс

[sxcine]

авторизация вконтакте :

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;
     listbox1.items.add('Авторизовались');
	  end
	 else
  listbox1.Items.Add('Авторизация не удалась');

	 Data.Free;

listbox1 - лог.
edit1 - логин
edit2 - пароль.