VB 如何调用系统默认程序打开指定网页?

Posted 2023-03-13

vb 如何调用系统默认的浏览器打开指定网页，类似于hao123的桌面版，单击图标后什么也不提示，直接用系统默认的浏览器去打开设置好的网址地址。

如果有工程源代码，修改后网站编译就能用，那是最好的。如果有的希望分享一下，[e-mail],先谢啦

参考技术A 首先你得找到浏览器的路径。然后在vb中使用如下代码，例如用猎豹浏览器打开指定网页：

Private Sub Command1_Click()
Shell "F:\Program Files\liebao\LBBrowser\liebao.exe 网页绝对地址"
End Sub

路径和地址之间有一空格。 参考技术B Shell "C:\Windows\explorer.exe http://zhidao.baidu.com"
这里用了Windows自带的运行程序（就是Windows徽标键+R出现的那个程序），在这个程序里面输入网址（URL）可以自动用默认浏览器来打开。 参考技术C 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 Command1_Click()
ShellExecute 0, "open", "http://zhidao.baidu.com", 0, 0, 1
End Sub本回答被提问者和网友采纳