Как нажать на кнопку 1 в WebBrower в VB6

[artur44]

Код: Выделить всё

<LI><A href="javascript:onEnterMenu(false, 4, true);">ТЕКСТ 1 </A></LI>
<LI><A href="javascript:onEnterMenu(false, 5, true);">ТЕКСТ 2 </A></LI>
<LI><A href="javascript:onEnterMenu(false, 6, true);">ТЕКСТ 3 </A></LI>
<LI><A href='javascript:onEnterMenu(false, "", true);'>Все </A></LI></UL></LI></UL></TD>

Пробовал так не работает

Код: Выделить всё

Dim Elements, Element
Set Elements = WebB.Document.All
For Each Element In Elements
    If Element.TagName = "A href" Then
        If Element.value = "ТЕКСТ 1" Then
            Element.Click
        End If
    End If
Next Element

[Хакер]

Код: Выделить всё

    If Element.TagName = "A href" Then
        If Element.value = "ТЕКСТ 1" Then

Здесь кроется большое заблуждение относительно устройства мира. С какой стати TagName будет равно «A href»? TagName будет в лучшем случае равен «A», потому что «href» — это не часть имени тега, а один из атрибутов тега. Во-вторых, у DOM-элемента, олицетворяющего тег <A>, не и не будет свойства Value. У него есть свойства innerText и innerHTML, к примеру.

И вообще, судя по фразе

Пробовал так не работает

для тебя этот код — просто какое-то заклинание. Оно не сработало и ты не имеешь ни единой мысли о том, что с этим делать, потому что другого заклинания тебе не подсказали.

[artur44]

Это кнопка реально с заклинанием, все варианты перепробовал.