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

[kuzmich]

помогите авторизоваться на сайте, находящемся на юкозе.
На кнопочку вход нажать то получается таким методом:

var
ovElements: OleVariant;
i: Integer;
...
ovElements := WebBrowser1.OleObject.Document.form s.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).type = 'submit') and
(ovElements.item(i).Value = 'Вход') then
ovElements.item(i).Click;

Помогите программно заполнить поля логин и пароль
Что бы визуально в Webbrowser e было видно что напичатано.

[element]

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  var i, j: Integer;
    FormItem: Variant;
 begin
    Result := False;
    //Формы нет
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
 Exit;
    end;
    //Форм в документе
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //если найденно изменить.
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
  end;

 // nazhat6 knopku
function loxForm(WebBrowser: TWebBrowser; FieldName: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := FALSE;
    //Нет формы в документе
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      ShowMessage('Нет формы...');
      Exit;
    end;
    //Найдена форма в документе
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Click;
            Result := True;
           end;
        except
          Exit;
        end;
      end;
    end;
  end;

(С) не мое

[element]

не работает кстати у меня код из первого поста
как залогинится в укозовскую админку, кто знает?

[element]

подскажите как составить код, если запрос на сайт выглядит так:

[element]

че никто не знает (((

[pro100-delphi]

знаем мы таких!!! вы чужие сайты потом бомбите су.. ..

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

че никто не знает (((

как через браузер то нет

[Айдар]

блин чето не получается пожет кто поподробнее обяснить?

[Den7656]

Когда-то писал прогу логина и отправки поста на Ucoz через indy. Нужно ? - пиши в личку.

[Зод]

Сообщение от element

подскажите как составить код, если запрос на сайт выглядит так:

ну и заполняй параметр в синапсе.

  params := 'Первыйпараметр=Егозначение' + '&Второй=Второезначение';
  HTTP.Document.Write(Pointer(Params)^, Length(Params));
  HTTP.HTTPMethod('POST', 'НУ ТИПА УРЛ');

либо:

  params := 'Первыйпараметр=Edit1.text' + '&Второй=Memo1.Lines[0]';
  HTTP.Document.Write(Pointer(Params)^, Length(Params));
  HTTP.HTTPMethod('POST', 'УРЛ');

Ну вообщем как указывать значение будешь. Ничего сложного нет.