Как в браузере кликнуть програмно по определённой ссылке?

[theal]

Как в браузере кликнуть програмно по определённой ссылке?Браузер встроен в программу визуал бейсик.Или как в ссылку вставить реферер страницу,типа переход был с гугла или яндекса

[dr.MIG]

Что касается первого вопроса, то поиск рулит.

[theal]

Может и рулит но вот уже 8 часов ни чё не могу найти спасибо за подсказку....А как насчёт рефер-страницы..Ссылка находится в текст боксе и при загрузке не определяется откуда выполнен переход

[DeMONiZ]

Если вопрос еще актуален:
Клик по ссылке: ну и правда воспользуйся поиском такой вопрос я уже задавал

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

Private Sub Command1_Click()
For Each TestLink In WebBrowser1.Document.links
    If TestLink.innerText = "Кликни меня" Then
        TestLink.Click
        Exit For
    End If
Next TestLink
End Sub

и рефер передается таким образом

[theal]

Премного благодарен за помощь!!!!Спасибо!А вопросик ещё такой...Как не по названию ссылки искать и кликать ..а по шаблону самого линка.К примеру на моём сайте http://www.sayt.ru/index http://www.sayt.ru/news Как найти и кликнуть к примеру на один из линков на усмотрение программы по первым знакам http://www.sayt.ru???Буду очень благодарен за ответ.

[DeMONiZ]

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

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    For Each TestLink2 In WebBrowser1.Document.links
        If TestLink2.innerText = "Оргтехника" Then
            Exit For
        End If
            i = i + 1
    Next TestLink2

    cur = Int(5 * Rnd + i + 1)
    Text1.Text = cur
   
    WebBrowser1.Document.links(cur).Click

код кликает рандомом по 5 ссылкам находящимся ниже ссылки оргтехника!
выряжайся яснее сложновато тебя понять!

Хочкшь накручивать запаркоманный домен....они рефер проверяют вроде так что делай чтобы с каких либо сайтов они заходили на твой запаркованный а потом клик

[theal]

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

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    For Each TestLink2 In WebBrowser1.Document.links
        If TestLink2.innerText = "Оргтехника" Then
            Exit For
        End If
            i = i + 1
    Next TestLink2

    cur = Int(5 * Rnd + i + 1)
    Text1.Text = cur
   
    WebBrowser1.Document.links(cur).Click

код кликает рандомом по 5 ссылкам находящимся ниже ссылки оргтехника!
выряжайся яснее сложновато тебя понять!

Хочкшь накручивать запаркоманный домен....они рефер проверяют вроде так что делай чтобы с каких либо сайтов они заходили на твой запаркованный а потом клик

СПАСИБО
С этим я разобрался..Вот только вместо Названия ссылки нужно выполнять поиск и клик по линку TestLinkhref
не ^Оргтехника^ a http://ssilka