Как реализовать клик по ссылке в компоненте WebBrowser?

[dimasik_s]

Точно не знаю по теме обращаюсь или нет. У меня такая задачка: на моей странички стоит скрипт на переадресацию, и мне надо чтобы на странице куда идет переадресация вдобавок еще срабатывал авто-клик по ссылке. (www.powermlm.do.am - здесь страница с которой идет переход, ну и можно увидеть куда)
Может кто нибуть поможет решить эту проблему.
Сразу говорю - я НЕ программист, и не все термины понимаю.

Заранее благодарен.

[Wolfie]

Если я верно понял твою задачу, dimasik_s, то я бы решал её все тем же примером Хакер'а, только вместо innerText сверял бы свойство href, и не равенством, а InStr'ом (мало ли как там ссылка написана)... событие после перехода - вспоминаю только NavigateComplete2

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

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

Dim TestLink As HTMLHtmlElement

For Each TestLink In WebBrowser1.Document.links
    If InStr(1, TestLink.href, "powermlm.do.am", vbTextCompare) Then
        TestLink.Click
        Exit For
    End If
Next TestLink

End Sub

Microsoft HTML Object Library не забудь подключить...

[theal]

Извиняться за тупость — тупо. Не тупо — искоренять собственную тупость (а она в первую очередь заключается в том, что ты пишешь предложения с маленькой буквы и ставишь в конце каждого восклицательный знак).

link_click_demo.rar

Пожалуйста ..что надо сделать линк клик демо после клика выдаёт ошибку run time error'-3(fffffffd)'

[theal]

Простите...А как будет выглядеть весь код целиком???Напишите пожалуйста...Плиз