HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Делфи вопрос
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Делфи вопрос
  #1  
Старый 25.05.2010, 10:07
aydar
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами: 8681602

Репутация: 11
По умолчанию Делфи вопрос
Немогу авторизоваться на сайте ucoz

Код:
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

   params:=tstringlist.create;
   params.Add('user=test');
   params.Add('password=Test');
   params.Add('rem=1');
   params.Add('a=2');
   params.Add('ajax=1');
   params.Add('rnd=' + rndResult);
   cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
   cod:=memo1.Text;
     if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');

    params.Free;
может куки надо сохранять, если да то как?
𝕏 Twitter Reddit Telegram Копировать ссылку
Последний раз редактировалось aydar; 25.05.2010 в 10:48..
 
Ответить с цитированием

  #2  
Старый 25.05.2010, 11:21
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами: 8582863

Репутация: 69
По умолчанию
надо, idHTTP1.AllowCookies := True;
 
Ответить с цитированием

  #3  
Старый 25.05.2010, 18:09
aydar
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами: 8681602

Репутация: 11
По умолчанию
Куки были вкл, все равно не получаеться

Цитата:
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);

if pos ('Вы вошли как test',cod)<>0 then showmessage ('ok');
memo1.Text:=cod;
params.Free;
 
Ответить с цитированием

  #4  
Старый 25.05.2010, 18:28
aydar
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами: 8681602

Репутация: 11
По умолчанию
все проблема решена, всем спасибо
 
Ответить с цитированием

  #5  
Старый 25.05.2010, 19:18
lamer811
Новичок
Регистрация: 08.11.2009
Сообщений: 21
С нами: 8687651

Репутация: 7
По умолчанию
ТС выложи пожалуйста решение своей проблемы
 
Ответить с цитированием

  #6  
Старый 25.05.2010, 19:35
aydar
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами: 8681602

Репутация: 11
По умолчанию
Цитата:
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=логин');
params.Add('password=пароль');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/index/sub/', params);
memo1.Text:=cod;
params.Free;
Не откажусь от +
Последний раз редактировалось aydar; 25.05.2010 в 19:38..
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про секретный вопрос к почтовому ящику :) [12]qwerty Болталка 9 06.04.2010 20:46
Вопрос про сливы и тп Sulf aka Joker Болталка 0 15.01.2010 16:07
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости. Обсуждения. 4 07.07.2006 16:53
Вопрос по Php и Html Archie PHP 9 26.05.2006 16:43



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.