Как нажать кнопку в WebBrowser и выбрать раскрыв. список [D7, WinXP]
allucard © (2007-05-23 12:37:00)
Доброго дня.
Прочитал массу факов по этой теме, а подходящий не нашёл.
Кнопка:
<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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
