Как правильно сделать?

[Druid-2004]

Как сделать так, чтобы тыкая на ссылку на .ехе- файл в объекте WebBrowser, не появлялось окошко "открыть / сохранить и тд...", а сразу запускался тот файл, на который указывает ссылка.
Я знаю, что можно, есть такие инсталяшки, но как они так делают, не знаю... помогите, плиз.

[marvan]

Самый простой способ:
Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
                                       Flags As Variant, TargetFrameName As Variant, _
                                       PostData As Variant, Headers As Variant, _
                                       Cancel As Boolean)
    If Right(URL, 3) = "exe" Then
        Shell URL, 1
        Cancel = True
    End If
End Sub
можно ещё и события от MSHTML ловить, но это сложнее
p.s.
ссылка должна иметь вид: <a href="C:\WINDOWS\System32\calc.exe">калькулятор</a>
в противном случае её надо преобразовавать

[Druid-2004]

Самый простой способ:
Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
                                       Flags As Variant, TargetFrameName As Variant, _
                                       PostData As Variant, Headers As Variant, _
                                       Cancel As Boolean)
    If Right(URL, 3) = "exe" Then
        Shell URL, 1
        Cancel = True
    End If
End Sub
можно ещё и события от MSHTML ловить, но это сложнее
p.s.
ссылка должна иметь вид: <a href="C:\WINDOWS\System32\calc.exe">калькулятор</a>
в противном случае её надо преобразовавать

Что-то не получается.....

[marvan]

'Компоненты:
'Microsoft Internet Controls (C:\WINDOWS\System32\shdocvw.dll)
'На форме WebBrowser1

Private Sub Form_Load()
    WebBrowser1.Navigate "about:blank"
    While WebBrowser1.Document Is Nothing
         DoEvents
    Wend
    WebBrowser1.Document.write "<a href=""C:\WINDOWS\System32\calc.exe"">калькулятор</a>"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
                                       Flags As Variant, TargetFrameName As Variant, _
                                       PostData As Variant, Headers As Variant, _
                                       Cancel As Boolean)
    If Right(URL, 3) = "exe" Then
        Shell URL, 1
        Cancel = True
    End If
End Sub