 |
|
17.06.2010, 10:27
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Блин, ничего не пойму с авторизацией.... Ну не проходит она... Редиректит на страницу с профилем, но вход не осуществлен(т.е на странице с моим профилем: " Чтобы увидеть полную информацию о пользователе, войдите в систему. ") Вроде дельфи уже другую скачал, но все тоже самое  Код авторизации в посте №#6737(но в коде я уверен на 99%, т.к неделю назад им авторизовывался)... Проблема с куки насколько я понял, в cookiecollection после авторизации только :
Код:
l=xxxxxxx; path=/; domain=login.vk.com
p=ca505b639ddeba5a27cdf28138eafd6bba05; path=/; domain=login.vk.com
Надеюсь на вашу помощь. Помощь могу оплатить(просто срочно нужно).... |
|
|
17.06.2010, 10:38
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
fenixelite, попробуй так
Код:
function GetSubStr(InputStr, BeginStr, EndStr: String): String;
var
s: String;
sp, ep: Integer;
begin
Result := '';
if pos(BeginStr, InputStr) <> 0 then begin
sp := pos(BeginStr, InputStr)+length(BeginStr);
s := copy(InputStr,sp,length(InputStr));
ep := pos(EndStr,s)-1;
Result := copy(s,1,ep);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
mp: TIdMultiPartFormDataStream;
begin
IdHTTP1.Get('http://vkontakte.ru');
IdHTTP1.Request.Referer := 'Referer: http://vkontakte.ru/login.php';
mp := TIdMultiPartFormDataStream.Create;
mp.AddFormField('op', 'a_login_attempt');
Memo1.Lines.Text := IdHTTP1.Post('http://vkontakte.ru/login.php', mp);
Memo1.Lines.SaveToFile('c:\111.html');
mp.Free;
mp := TIdMultiPartFormDataStream.Create;
mp.AddFormField('act', 'login');
mp.AddFormField('success_url', '');
mp.AddFormField('fail_url', '');
mp.AddFormField('try_to_login', '1');
mp.AddFormField('to', '');
mp.AddFormField('vk', '');
mp.AddFormField('email', Edit1.Text);
mp.AddFormField('pass', Edit2.Text);
mp.AddFormField('expire', '1');
Memo1.Lines.Text := IdHTTP1.Post('http://login.vk.com', mp);
Memo1.Lines.SaveToFile('c:\222.html');
mp.Free;
mp := TIdMultiPartFormDataStream.Create;
mp.AddFormField('op', 'slogin');
mp.AddFormField('redirect', '1');
mp.AddFormField('expire', '1');
mp.AddFormField('to', '');
mp.AddFormField('s', GetSubStr(Memo1.Text, 'id=''s'' value=''', ''''));
mp.AddFormField('email', 'alena@tdutn.com');
mp.AddFormField('pass', 'flouer');
mp.AddFormField('expire', '1');
Memo1.Lines.Text := IdHTTP1.Post('http://vkontakte.ru/login.php', mp);
Memo1.Lines.SaveToFile('c:\333.html');
mp.Free;
if pos('(это Вы)', Memo1.Text) > 0 then
MessageDlg('Залогинились.'+#13#10+GetSubStr(Memo1.Text, '<h1> <b>Online</b>', '<span>'), mtInformation, [mbOK], 0)
else
MessageDlg('Не залогинились!', mtInformation, [mbOK], 0);
end;
|
|
|
|
17.06.2010, 11:00
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
heretic1990, да тоже самое все... проблема с куками... Remixsid не приходит, а без него не авторизоваться..... Щас попробую indy обновить..
|
|
|
|
17.06.2010, 11:03
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
на новой инди у меня всё работало хорошо.
|
|
|
|
17.06.2010, 11:10
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
heretic1990, да и TrueBit через мой код авторизовался... ладно щас инди обновить попробую..
|
|
|
|
17.06.2010, 12:49
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Обновил... не помогло... я в шоке Оо
У кого то еще решения есть?  |
|
|
|
17.06.2010, 12:55
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Неужели так трудно додуматься самому нужные кукисы обрабатывать, а не надеяться на кривой менеджер, который подводит на каждом втором сайте?
|
|
|
|
17.06.2010, 13:18
|
|
Новичок
Регистрация: 17.09.2009
Сообщений: 18
С нами:
8762073
Репутация:
11
|
|
Кто-нибудь может дать пример кода для работы через winsock2 с socks5||proxy?
|
|
|
|
17.06.2010, 19:16
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
ололо!1!111!!111
fenixelite, исправь процедуру DoAdd в файле idCookieManager.pas и сам файл перемести в папку lib. Код процедуры:
Только в версиях 9.x.x
Код:
procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText, AHost: String);
Var
LDomain: String;
begin
ACookie.CookieText := ACookieText;
if Length(ACookie.Domain) = 0 then LDomain := AHost
else LDomain := ACookie.Domain;
ACookie.Domain := LDomain;
// Если есть точка в начале домена, удаляем ее
If ACookie.Domain[1] = '.' Then
ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));
if ACookie.IsValidCookie(AHost) then
begin
if DoOnNewCookie(ACookie) then
begin
FCookieCollection.AddCookie(ACookie);
end
else begin
ACookie.Collection := nil;
ACookie.Free;
end;
end
else begin
ACookie.Free;
end;
end;
|
|
|
|
17.06.2010, 19:26
|
|
Познающий
Регистрация: 26.12.2007
Сообщений: 34
С нами:
9672087
Репутация:
8
|
|
Что значит знак # в делфи?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
