
22.10.2007, 01:31
|
 |
Активный
|
|
Регистрация: 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
__________________
---------------------------------------------
Программирование - не профессия, а стиль жизни
|