[RESOLVED] Вызов ссылок в WebBrowser командой ShellExecute

[NeverGone]

Возможно ли сделать так, чтобы ссылки, находящиеся в WebBrowser (там у меня HTML со ссылками), вызывались ShellExecute'ом (т.е. стандартным браузером)?
Заранее спасибо.

[Joo]

Можно! Чичас покажу ежели вспомню ))
Ссылки оформляешь так:

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

<a href="#null" onCl[i][удалить][/i]ick="this.MyProgram.Run('Тут передаешь параметр, например адрес сайта')">СТАРТ</a>

В коде у тебя должно быть прописанно (wb в коде - это компонент WebBrowser):

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

'Функция Run
Public Sub Run(ByVal FileName As String)
    On Local Error Resume Next
    Call ShellExecute(0, "open", FileName, "", "", 1)
End Sub

'
Public Sub AssignTag(CustomTag)
    On Local Error Resume Next
    CustomTag.setAttribute "MyProgram", Me, 1
End Sub

Private Sub wb_DownloadComplete()
    On Error GoTo lError
    Dim i As Long
    For i = 0 To Wb.Document.All.length - 1
          AssignTag Wb.Document.All.Item(i)
    Next i 
lError:
End Sub


Пробуй, что-то типа того

[dr.MIG]

А можно просто ссылке в html задать в качестве параметра target значение blank.

[iGrok]

А можно просто ссылке в html задать в качестве параметра target значение blank.

А оно при этом разве не будет открываться только в IE даже если дефолтным браузером выставлено что-то другое?

[Joo]

А можно просто ссылке в html задать в качестве параметра target значение blank.

А оно при этом разве не будет открываться только в IE даже если дефолтным браузером выставлено что-то другое?

А по моему ишак и откроет, хотя проверить надо. А вообще моим способом можно что угодно из HTML в программу передавать

[dr.MIG]

Да, невнимательно прочитал, что требуется. Так откроет IE. Я бы в дефолтном браузере открывал так:

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private WithEvents mDoc As HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "C:/1.htm"
        While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Wend
    Set mDoc = WebBrowser1.Document
End Sub

Private Function mDoc_onclick() As Boolean
    If mDoc.parentWindow.event.srcElement.tagName = "A" Then
        ShellExecute 0, "open", mDoc.parentWindow.event.srcElement.getAttribute("href"), "", "", 1
    End If
End Function


[Joo]

Я выше отредактировал пост, а то форум порезал часть кода )) там где показанно оформление ссылки