Авторизация на сайте

[gawrilowalex]

Ребят я новичок в Delphi только начинаю его изучать, у меня не получается сделать авторизацию на Delphi7 что бы в браузере уже залогинелся. Сама авторизация вроде норм, а вот в браузере не получается.
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=false;
data:=tstringlist.create;
WebBrowser1.Navigate('http://mobilesof.ucoz.ru/');
data.Add('ulogin='+edit1.text); // e"i^a~e`i' a"e"y" a`a^o`i^?e`c,a`o"e`e`
data.Add('pass='+edit2.Text); // i"a`?i^e"u" a"e"y" a`a^o`i^?e`c,a`o"e`e`
error:=false;
try
PageProfile:=IdHTTP1.Post('http://mobilesof.ucoz.ru', data);
except
error:=true;
end;

if not(error) then
begin
data.Clear;
data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
data.Add('op=slogin');
data.Add('redirect=1');
data.Add('expire=0');
data.Add('to=');
IdHTTP1.HandleRedirects:=true;
try
PageProfile:=IdHTTP1.Post('http://mobilesof.ucoz.ru', data);
WebBrowser1.Navigate('http://mobilesof.ucoz.ru');

except
end;
listbox1.items.add('Вы вошли');
end
else
listbox1.Items.Add('Не уадалась');

Data.Free;
end;
Помогите пожалуйста, я для своего сайта хочу сделать программку, и понять как она устроенна. Если есть код киньте мне не много легче будет понять там. Спасибо

[Пепел Феникса]

вы еще десять тем создайте, я вам ответил уже между прочим.
http://programmersforum.ru/showthread.php?t=158490
если хотите работать с WB, то его и авторизируйте.

можно еще сделать так:
весь код получает инди, а WB отображает, но это через ж....

[Coder12]

Привет, напиши мне в асю помогу 576453805

[fenryr]

смотри апи функции
BOOL InternetSetCookie( __in LPCTSTR lpszUrl,
__in LPCTSTR lpszCookieName, __in LPCTSTR lpszCookieData );