как перехватить ссылку в webbrowser

[i'm pissed]

как перехватить ссылку в webbrowser

[_Мика_]

Лови

[i'm pissed]

как остроумно

[_Мика_]

Сорри скока не пробовал, файлы не атачатся посему то , АДМИИИИИИННННННЫЫЫЫЫ

[dr-vic]

Не совсем понял. Тебе что, нужно выдернуть ссылки из прогруженного в веб броузер документа? Тогда:
Dim IEDoc As HTMLDocument
Set IEDoc = YourWebBrowser.document
For i = 0 to IEDoc.links.length - 1
IEDoc.links.Item(i).toString 'сама ссылка
IEDoc.links.item(i) .innerText 'внутренний текст
Next

[i'm pissed]

Смотри когда мы например открываем ссылку
как узнать какая ссылка нажаты была

[marvan]

а событие BeforeNavigate2 чем не устраивает?

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

WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

[_Мика_]

marvan ну так он же не свой броузуер использует а виндовский, короче Афтар зочет качалку написать? ДА?

[i'm pissed]

нет я совсем для другого хотел но эту ситуацию я уже разрулил но всеравно THX

[i'm pissed]

marvan ну так он же не свой броузуер использует а виндовский, короче Афтар зочет качалку написать? ДА?

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

[KiloGraf]

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

Ваааууу...

[dr-vic]

Marvan, а у меня более универсально, можно даже не доводя до navigate:
Если тебе нужны ссылки из WebBrowser:
WebBrowser на форме, Shdocwv.dll в референсах.

Private WithEvents WebDoc As HTMLDocument

Private Function WebDoc_OnClick() As Boolean
Dim linkText As String, linkName As String, i As Integer
If WebDoc.activeElement.All.length = 0 Then
'Если простая "текстовая" ссылка
linkText = WebDoc.activeElement.toString
linkName = WebDoc.activeElement.innerText
Else
'Если ссылка через картинку и т.п.
For i = 0 To WebDoc.activeElement.All.length - 1
If WebDoc.activeElement.All.Item(i).tagName = "A" Then
linkText = WebDoc.activeElement.All.Item(i).toString
linkName = WebDoc.activeElement.All.Item(i).innerText
End If
Next
End If
End Function

Через InternetExplorer я не делал, но, видимо, точно также.

[i'm pissed]

Thx попробую