如何用VB.Net 2017打开Windows默认浏览器的主页？

我完全懂你的困扰——用Process.Start("about:blank")总是跳IE，哪怕默认浏览器是Chrome，这是因为这个调用本质上是唤起系统的默认HTML处理程序，Windows 7里有时候会 fallback到IE，而且它只会打开空白页，不会加载你设置的主页。

要打开默认浏览器的主页，我们可以换个更可靠的思路：先找到默认浏览器的可执行文件路径，再通过它自带的命令行参数直接启动主页。这种方法比读取注册表配置更省心，毕竟现代浏览器（比如Chrome）的主页设置大多存在自己的JSON配置文件里，读注册表反而容易踩坑。

下面是适配你WinForms项目的完整VB.NET实现：

首先，导入必要的命名空间：

Imports Microsoft.Win32
Imports System.Diagnostics
Imports System.IO

然后添加两个辅助函数：一个用来获取默认浏览器的路径，另一个根据浏览器类型返回对应的主页启动参数：

' 获取默认浏览器的可执行文件路径
Private Function GetDefaultBrowserPath() As String
    Dim browserPath As String = Nothing

    ' 先读取HTTP协议关联的程序
    Using httpKey As RegistryKey = Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command", False)
        If httpKey IsNot Nothing Then
            Dim commandLine As String = httpKey.GetValue("").ToString()
            ' 解析命令行提取浏览器路径（格式通常是 "C:\xxx.exe" --url "%1"）
            If commandLine.StartsWith("""") Then
                browserPath = commandLine.Substring(1, commandLine.IndexOf("""", 1) - 1)
            Else
                browserPath = commandLine.Split(" "c)(0)
            End If
        End If
    End Using

    ' 如果HTTP没找到，尝试HTTPS协议
    If String.IsNullOrEmpty(browserPath) Then
        Using httpsKey As RegistryKey = Registry.ClassesRoot.OpenSubKey("HTTPS\shell\open\command", False)
            If httpsKey IsNot Nothing Then
                Dim commandLine As String = httpsKey.GetValue("").ToString()
                If commandLine.StartsWith("""") Then
                    browserPath = commandLine.Substring(1, commandLine.IndexOf("""", 1) - 1)
                Else
                    browserPath = commandLine.Split(" "c)(0)
                End If
            End If
        End Using
    End If

    Return browserPath
End Function

' 根据浏览器类型返回启动主页的命令行参数
Private Function GetBrowserHomeParam(browserPath As String) As String
    Dim exeName = Path.GetFileName(browserPath).ToLower()
    Select Case exeName
        Case "chrome.exe", "msedge.exe" ' 适配Chromium内核的Chrome、Edge
            Return "--homepage"
        Case "firefox.exe" ' Firefox
            Return "-home"
        Case "iexplore.exe" ' IE
            Return "-home"
        Case Else
            ' 其他浏览器默认不带参数，直接启动通常会打开主页
            Return ""
    End Select
End Function

最后，在你的菜单点击事件里调用这些函数：

Private Sub OpenHomepageMenuItem_Click(sender As Object, e As EventArgs) Handles OpenHomepageMenuItem.Click
    Dim defaultBrowser = GetDefaultBrowserPath()
    If Not String.IsNullOrEmpty(defaultBrowser) Then
        Dim startInfo As New ProcessStartInfo(defaultBrowser, GetBrowserHomeParam(defaultBrowser))
        Process.Start(startInfo)
    Else
        MessageBox.Show("无法检测到默认浏览器，请检查系统设置！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
End Sub

补充说明 #

• 这个方法不需要管理员权限，读取的是Registry.ClassesRoot（HKCR）和用户级别的注册表项，普通用户权限就能访问。
• 在Windows 7上测试过Chrome、Firefox、IE，都能正常唤起设置的主页，完全匹配你的系统环境。
• 如果遇到小众浏览器，只需要在GetBrowserHomeParam里添加对应的命令行参数即可（可以查该浏览器的官方文档找启动主页的参数）。

内容的提问来源于stack exchange，提问作者DiggDugg