|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Авторизация на сайте
Как авторизоваться на сайте на пример Вконтатке.ру
Код:
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); Что нужно сделать дальше что бы узнать авторизовался или нет? Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |
#2
|
|||
|
|||
А ты присвоением текста memo1 хотел отправить post запрос на сайт?
|
#3
|
||||
|
||||
Цитата:
Я так понимаю Post возвращает код страницы, а мне нужно узнать произошла авторизация или нет Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |
#4
|
|||
|
|||
Цитата:
В твоем коде ты даже не отправил POST запрос. Как ты хочешь получить ответ, я не знаю =\ |
#5
|
||||
|
||||
Цитата:
Всмысле не отправил... а как тогда отправить? Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |
#6
|
|||
|
|||
читай хелп по инди
|
#7
|
||||
|
||||
Цитата:
|
#8
|
||||
|
||||
Цитата:
Код:
memo1.Lines.Text:=idhttp1.Post('http://vkontakte.ru/login.php',s); P.S.: прочти ещё вот это Последний раз редактировалось Ultras, 21.02.2010 в 17:45. |
#9
|
|||
|
|||
Авторизация ВК.ру
Цитата:
приветствую. сам делал такую прогу, получилось:-) вот код, но для начала добавь 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; |
#10
|
|||
|
|||
забыл написать, что это код кнопки авторизации!
больше кода нет! |
#11
|
||||
|
||||
sXciNe, а разве это ваш код авторизации?
|
#12
|
|||
|
|||
Цитата:
|
#13
|
||||
|
||||
а не без разницы ли чей это код?! ничего в нем такого приватного нет... ну на крайняк можно было бы и копирайты поставить))) уже и 2 строки жалеть будем о_О ?
|
#14
|
|||
|
|||
Цитата:
|