Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.04.2008, 15:02
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию Авторизация на сайтах ucoz

Как авторизоваться на сайте работающем в системе ucoz
Код:
var
Header: TIdMultiPartFormDataStream;
begin
Header:=TIdMultiPartFormDataStream.Create;
Header.AddFormField('user', 'Айдар');
Header.AddFormField('password', '------');
Header.AddFormField('rem', '1');//скрытое поле
Header.AddFormField('a', '0');//скрытое поле
Header.AddFormField('s', '0');//скрытое поле
Header.AddFormField('c', '0');
//Header.AddFormField('sbm', 'Вход');
Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/', Header);
Header.Free;
В Memo выводится код главной страницы сайта, но я не авторизован. Что не так?
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #2  
Старый 13.05.2008, 13:36
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию

Цитата:
Сообщение от The Shadow
Как авторизоваться на сайте работающем в системе ucoz
Код:
var
Header: TIdMultiPartFormDataStream;
begin
Header:=TIdMultiPartFormDataStream.Create;
Header.AddFormField('user', 'Айдар');
Header.AddFormField('password', '------');
Header.AddFormField('rem', '1');//скрытое поле
Header.AddFormField('a', '0');//скрытое поле
Header.AddFormField('s', '0');//скрытое поле
Header.AddFormField('c', '0');
//Header.AddFormField('sbm', 'Вход');
Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/', Header);
Header.Free;
В Memo выводится код главной страницы сайта, но я не авторизован. Что не так?
Нахер ты вот это вписал?!
Код:
Header.AddFormField('rem', '1');//скрытое поле
Header.AddFormField('a', '0');//скрытое поле
Header.AddFormField('s', '0');//скрытое поле
Header.AddFormField('c', '0');
//Header.AddFormField('sbm', 'Вход');
По моему надо было так
Код:
Header:=TIdMultiPartFormDataStream.Create;
Header.AddFormField('user', 'Айдар');
Header.AddFormField('password', '------');
Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/', Header);
И вообще для авторизации на укозе нужно вроде еще контрольный цифры вводить
Ответить с цитированием
  #3  
Старый 13.05.2008, 13:37
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Нет. Цифры не надо.
А ввел я потому что они есть на странице, просто скрытые.
Все равно не авторизовался.
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.

Последний раз редактировалось The Shadow, 13.05.2008 в 13:40.
Ответить с цитированием
  #4  
Старый 13.05.2008, 14:09
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию

Тогда пробуй так
Цитата:
var s:string;
begin
s:='sbm=true&user=Айдар&password=*******';
Memo1.Lines.Text:=IdHTTP1.Post('http://aidar.3dn.ru/index/',s);
Ответить с цитированием
  #5  
Старый 13.05.2008, 14:12
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Это же не GET запрос.
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #6  
Старый 13.05.2008, 14:19
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию

Ппц, попута)
Ты попробуй укажи там что была нажата клавиша отправить smb=true
Ответить с цитированием
  #7  
Старый 12.07.2010, 02:16
treiv treiv вне форума
Прохожий
 
Регистрация: 12.07.2010
Сообщения: 2
Репутация: 10
По умолчанию Помогите

Напишите пожалуйcта подробнее как авторизоваться на сайте зарегистрированый в системе uCoz
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:40.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter