25.04.2010, 22:02
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
procedure TForm1.Button1Click(Sender: TObject);
var
uns, s: String;
begin
idhttp1.HandleRedirects := True;
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+ '&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('Àâòîðèçàöèÿ íå óäàëàñü!')
else
begin
ShowMessage('Àâòîðèçèðîâàëèñü');
memo1.Lines.Add(uns);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end;
Проверил, работает.
Последний раз редактировалось HakaR; 25.04.2010 в 22:13..
|
|
|
25.04.2010, 22:07
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от HakaR
Проверил, работает.
HTTP/1.1 302 found 
|
|
|
|
25.04.2010, 22:10
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от stepashka_
HTTP/1.1 302 found idhttp1.HandleRedirects := True;
После begin добавь 
begin
idhttp1.HandleRedirects := True;
...
...
...
Последний раз редактировалось HakaR; 25.04.2010 в 22:13..
|
|
|
|
25.04.2010, 22:49
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
всё гуд!
Кидаем на форму 2 edit, batton, idhttp, IdCookieManager, IdAntiFreeze memo
На кнопку
procedure TForm1.Button1Click(Sender: TObject);
var
uns, s: String;
begin
idhttp1.HandleRedirects := True;
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+ '&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('ne ok')
else
begin
ShowMessage('ok');
memo1.Lines.Add(uns);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end;
ухх неужели  |
|
|
|
26.04.2010, 07:49
|
|
Новичок
Регистрация: 23.04.2010
Сообщений: 20
С нами:
8448614
Репутация:
3
|
|
это ещё начало гемороя. попробуй теперь загрузи страницу с сообщениями
|
|
|
|
26.04.2010, 09:34
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
у меня все впереди, я только начал кодить
|
|
|
|
26.04.2010, 13:56
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
С нами:
8468331
Репутация:
12
|
|
s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял
|
|
|
|
26.04.2010, 13:58
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Сообщение от Sunstrider
s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял
56 символов после value= из строки uns, вроде так
это единственный способ авторизации ?
Без понятия, я всего лишь указал что делает этот код, фкантагте никогда не работал
Последний раз редактировалось GhostOnline; 26.04.2010 в 14:39..
|
|
|
|
26.04.2010, 14:20
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
С нами:
8468331
Репутация:
12
|
|
Сообщение от GhostOnline
56 символов после value= из строки uns, вроде так
это единственный способ авторизации ?
|
|
|
|
26.04.2010, 14:38
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от Sunstrider
s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял
В эту переменную хеш сохраняется, он далее нужен для авторизации.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
