Question

vb webbrowser 点击链接怎么打开默认浏览器

点击webbrowser里的链接后,我想让他在默认浏览器里打开
但是,他是用IE打开的(我设置的默认浏览器不是IE)
没什么方式啊
就是webbrowser加载一个网页,点击网页里的链接,打开的是IE,不是我设置的默认浏览器
我的要求是,点击链接,不让他用IE打开,不是在VB程序里打开,而是设置的默认浏览器打开
为什么就是不理解呢- -

Answer 1

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 Sub Form_Load()
WebBrowser1.Document.body.innerHTML = WebBrowser1.Document.body.innerHTML + "<script>window.onclick=function(){if(event.type=='a'){event.returnValue=event.srcElement.onclick();if(event.returnValue){host.innerHTML=event.srcElement.href;}}}</script>"
End Sub
添加Timer1时钟
Private Sub Timer1_Timer()
If WebBrowser1.Document.getElementById("host").innerHTML <> "" Then
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & WebBrowser1.Document.getElementById("host").innerText
'或者直接用默认浏览器打开，上面为用IE打开
ShellExecute hWnd, "open", "网址", vbNullString, vbNullString, 1
End If
End Sub

Answer 2

你用什么方式然他用ie打开?
http://zhidao.baidu.com/question/34107777.html
看看这个