[hkdkest]

Как авторизоваться на сайте на пример Вконтатке.ру

Код:

s:=Tstringlist.Create;
s.Add('email=11111@mail.ru');
s.Add('pass=1111');
s.Add('HTTP/1.0');
memo1.Lines.Text:=idhttp1.Post('http://vkontakte.ru/login.php',s);

Что нужно сделать дальше что бы узнать авторизовался или нет?

[AlexTheC0d3r]

А ты присвоением текста memo1 хотел отправить post запрос на сайт?

[hkdkest]

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

А ты присвоением текста memo1 хотел отправить post запрос на сайт?

Я так понимаю Post возвращает код страницы, а мне нужно узнать произошла авторизация или нет

[AlexTheC0d3r]

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

Я так понимаю Post возвращает код страницы, а мне нужно узнать произошла авторизация или нет

В твоем коде ты даже не отправил POST запрос. Как ты хочешь получить ответ, я не знаю =\

[hkdkest]

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

В твоем коде ты даже не отправил POST запрос. Как ты хочешь получить ответ, я не знаю =\

Всмысле не отправил... а как тогда отправить?

[Cros]

читай хелп по инди

[xlin]

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

читай хелп по инди

пантов выше крыши! если трудно помочь советом,не стоит отвечать.человек помощи просит,неужели так трудно помочь?

[Ultras]

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

Я так понимаю Post возвращает код страницы, а мне нужно узнать произошла авторизация или нет

Код:

memo1.Lines.Text:=idhttp1.Post('http://vkontakte.ru/login.php',s);

в memo1 передастца код страницы, найди в нём отличие в неовторизованной странице, и авторизованной, например такова вида: "/settings.php" - когда юзер не авторизован, в коде такова не будет (тут тебе Pos функция поможет)

P.S.: прочти ещё вот это

[sXciNe]

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

Как авторизоваться на сайте на пример Вконтатке.ру

Код:

s:=Tstringlist.Create;
s.Add('email=11111@mail.ru');
s.Add('pass=1111');
s.Add('HTTP/1.0');
memo1.Lines.Text:=idhttp1.Post('http://vkontakte.ru/login.php',s);

Что нужно сделать дальше что бы узнать авторизовался или нет?

приветствую.
сам делал такую прогу, получилось:-)
вот код, но для начала добавь edit1-логин, edit2-пароль, button1-единственная кнопка и listbox1-там мы увидим наш результат!

Код:

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;
     listbox1.items.add('Àâòîðèçîâàëèñü');
	  end
	 else
  listbox1.Items.Add('Àâòîðèçàöèÿ íå óäàëàñü');

	 Data.Free;
	end;

[sXciNe]

забыл написать, что это код кнопки авторизации!
больше кода нет!

[pesi]

sXciNe, а разве это ваш код авторизации?

[sXciNe]

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

sXciNe, а разве это ваш код авторизации?

не совсем, работал с другом.

[NekitoSSSS]

а не без разницы ли чей это код?! ничего в нем такого приватного нет... ну на крайняк можно было бы и копирайты поставить))) уже и 2 строки жалеть будем о_О ?

[sXciNe]

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

а не без разницы ли чей это код?! ничего в нем такого приватного нет... ну на крайняк можно было бы и копирайты поставить))) уже и 2 строки жалеть будем о_О ?

вот вот...