Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
25.04.2010, 21:54
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от HakaR
Так попробуй. Хотя хз...я не проверял.
Всё равно 
me=\ в ярости 
|
|
|
25.04.2010, 21:54
|
|
Новичок
Регистрация: 23.04.2010
Сообщений: 20
Провел на форуме:
37813
Репутация:
3
|
|
дуров наверно сидит и уссывается с нас
|
|
|
|
25.04.2010, 21:58
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
мб этой строки "http://vk.com/profile.php" в "uns" при авторизации нет?
|
|
|
|
25.04.2010, 22:00
|
|
Новичок
Регистрация: 23.04.2010
Сообщений: 20
Провел на форуме:
37813
Репутация:
3
|
|
посмотри исходник который я выкладывал. там авторизация в несколько этапов с просчётом времяни через таймер идёт. Я авторизовывался через тот пример
|
|
|
|
25.04.2010, 22:02
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
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
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от HakaR
Проверил, работает.
HTTP/1.1 302 found
|
|
|
|
25.04.2010, 22:10
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
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
Провел на форуме:
7879791
Репутация:
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
Провел на форуме:
37813
Репутация:
3
|
|
это ещё начало гемороя. попробуй теперь загрузи страницу с сообщениями
|
|
|
|
26.04.2010, 09:34
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
у меня все впереди, я только начал кодить
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
