Авторизоваться на сайте ucoz через delphi

[xraser]

Привет всем, вот пишу клиент для сайта на ucoz
и никак не получаеться авторизоваться с delphi на сайте. Кто подправит код что бы он работал получит 5$.
Вот сам код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdCookieManager, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    StaticText1: TStaticText;
    function Pars(T_, Fors, _T:string): string;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
StrPage, ssylka:string;
Data:tstringlist;
begin
IDHTTP1.HandleRedirects:=true;
strpage:=idhttp1.Get('http://www.megasoft.3dn.ru/') ;
ssylka:=Pars('<form action="', StrPage, '"');
Data:=Tstringlist.Create;
Data.add('user='+Edit1.text);
Data.add('password='+Edit2.text);


StrPage:=idhttp1.Post(ssylka, Data);
If pos('Âûõîä', StrPage)<>0 then
StaticText1.Caption:='Çàëîãèíèëèñü'
else StaticText1.Caption:='Íå çàëîãèíèëèñü';
Data.Free;


end;

function TForm1.Pars(T_, Fors, _T: string): string;
var
a,b: integer;

begin
Result:='';
if (T_= '') or (ForS='') or (_T='')
then Exit;
a:= Pos(T_, ForS);
if a=0 then Exit
else
a:=a+ length(T_);
ForS:=Copy(ForS, a, Length(Fors)- a+1);
b:=pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b-1);
   end;
   end.

[alexprey]

Если только через TWebBrowser попробовать. Так как при генирации формы в системе юкоз добавляется скрытое поле со случайным числом, которое в дальнейшем проверяется на сервере

[xraser]

alexprey, ну напиши код через TWebBrowser. Посмотрю

[Bright-rider]

PHP код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  i:Integer;
begin
for I := 0 to WebBrowser1.OleObject.Document.all.tags('input').length - 1 do
   begin
     if (WebBrowser1.OleObject.Document.all.tags('input').item(i).name='user') then
      WebBrowser1.OleObject.Document.all.tags('input').item(i).value:=login;
       if (WebBrowser1.OleObject.Document.all.tags('input').item(i).name='password') then
      WebBrowser1.OleObject.Document.all.tags('input').item(i).value:=password;
      if (WebBrowser1.OleObject.Document.all.tags('input').item(i).value='Вход') then
      WebBrowser1.OleObject.Document.all.tags('input').item(i).click;

     end;

end; 


[xraser]

Bright-rider, неработает, или дай исходник

[Bright-rider]

Я показал принцип заполнения полей в Webbrowser.
А ты уже подгоняй по ucoz