Показать сообщение отдельно
  #2  
Старый 22.10.2007, 01:31
Аватар для mav_c
mav_c mav_c вне форума
Активный
 
Регистрация: 26.03.2007
Адрес: Москва
Сообщения: 287
Репутация: 30
По умолчанию

Цитата:
Сообщение от InfectedM
ужно написать программу каторая будет авторизовываться на форуме
Но я незнаю как работать с куками...
Вот что я написал,ноничего не работает...В ответ получаю страницу Ввода логина и пароля..
Помогите плз

Код:
var
text:string;
CookMan: TidCookieManager;
begin
CookMan:=TidCookieManager.Create(IdHTTP1);
 IdHTTP1.CookieManager := CookMan;
  IdHTTP1.AllowCookies := True;
 otpr:= TStringList.Create;
  otpr.Add('referer=');
  otpr.Add('UserName=тут логин');
  otpr.Add('PassWord=тут пароль');
  otpr.Add('CookieDate=1');
  otpr.Add('submit=%C2%EE%E9%F2%E');
 memo1.Text:=IdHTTP1.Post('http://forum.sources.ru/index.php?&act=Login&CODE=00', otpr);
 end;
ну или вот так...но всеравно не работает...
Код:
var
text,text1:string;
all:integer;
CookMan: TidCookieManager;
begin
  CookMan:=TidCookieManager.Create(IdHTTP1);
  IdHTTP1.CookieManager := CookMan;
  IdHTTP1.AllowCookies := True;
  memo1.Text:= IdHTTP1.Get('http://forum.sources.ru/');
  text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32);  // поиск  S=....
  memo1.Text:=  IdHTTP1.Get('http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00');
  text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32);  // поиск  S=....
   otpr:= TStringList.Create;
   otpr.Add('referer=');
 otpr.Add('UserName=тут логин');
   otpr.Add('PassWord=тут пароль');
   otpr.Add('CookieDate=1');
   otpr.Add('submit=%C2%EE%E9%F2%E');
memo1.Text:=IdHTTP1.Post('http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00', otpr);
Или я просто не то и не туда отправляю?

А точно логин и пароль передаются методом Post? может всё таки get
__________________
---------------------------------------------
Программирование - не профессия, а стиль жизни
Ответить с цитированием