вопрос про Webbrowser

[elsen]

как програмно ест-но нажать на ссылку на странице

[marvan]

а для начала надо понять какую из ссылок надо нажать.
Вот, например, на этой странице ссылок много. Какую из них нажимать?

[elsen]

эгал какую , но если ест разница к примеру на ту ссылку где написан мои ник

[marvan]

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

'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'добавить на форму WebBrowser с именем WebBrowser1
'и кнопку

Private Sub Command1_Click()
    Dim a As New MSHTML.HTMLAnchorElement
    Dim e As MSHTML.HTMLGenericElement
    For Each e In WebBrowser1.document.All
        If e.tagName = "A" Then
            Set a = e
            If InStr(1, a.href, "profile.php?mode=viewprofile") > 0 Then
                WebBrowser1.navigate a.href
                Exit Sub
            End If
        End If
    Next
End Sub

Private Sub Form_Load()
    WebBrowser1.navigate "http://bbs.vbstreets.ru/viewtopic.php?t=15578"
    Do While WebBrowser1.Busy = True
        DoEvents
    Loop
End Sub



[elsen]

Danke