Как нажать кнопку в WebBrowser и выбрать раскрыв. список

← →
allucard (2007-05-23 12:37) [0]

Доброго дня.
Прочитал массу факов по этой теме, а подходящий не нашёл.

Кнопка:

<input type="submit" value="Вход" class="width45p bold floatright marginR05" tabIndex="4" title="Вход на почту" />

Раскрывающийся список:

<select name="domn" class="width45p floatleft" tabindex="3"><option value="i.ua" selected>i.ua<option value="ua.fm">ua.fm<option value="3g.ua">3g.ua</select>

спасибо.

← →
allucard (2007-05-23 14:44) [1]

С первым разобрался:

procedure TForm1.Button1Click(Sender: TObject); var ovElements: OleVariant; i: Integer; begin ovElements := WebBrowser1.OleObject.Document.forms.item(1).elements; for i := 0 to (ovElements.Length - 1) do if (ovElements.item(i).type = "SUBMIT") and (ovElements.item(i).Value = "Recent Charges") then ovElements.item(i).Click; end;

Как нажать кнопку в WebBrowser и выбрать раскрыв. список Найти похожие ветки