Скачать: CL | DM;

Как нажать кнопку в 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c