For Each objSelect In webdoc.getElementsByName("port") 'получаю список по имени
Set Acollection = objSelect.children 'коллекция пунктов списка
For Each objOption In Acollection 'перебор по пунктам
If objOption.getAttribute("value") = 81 Then ' нахожу нижный пункт
'здесь нужно кликнуть по нем. но как???
End If
Next
Next
objSelectEl.selectedIndex = 1
objSelectEl.FireEvent ("onchange")
Сейчас этот форум просматривают: Google-бот и гости: 160