شناسایی مرورگر دیفالت ویندوز

[saeidmobashery]

درود بر اساتید و دوستان گرانقدرم
بنده از کد زیر مرورگرهای نصب شده در ویندوز را شناسایی و در کمبوباکسی چیدمان می‌کنم
فقط نمی‌دانم چطور می‌توان مرورگر دیفالت را شناسایی کنم ؟ تا به عنوان اولین آیتم در کموباکس قرار دهم

    Private Sub ExportBrowsers()

        Browsers_ComboBox.Items.Clear()

        Dim Path As String

        Dim File() As String

        Dim FileName As String

        With My.Computer.Registry.LocalMachine.OpenSubKey("soft  ware\clients\startmenuinternet")

            Dim Names() As String = .GetSubKeyNames

            For Each Item As String In Names

                With .OpenSubKey(Item)

                    With .OpenSubKey("shell\open\command")

                        Path = .GetValue("", "")

                    End With

                End With

                File = Path.Split("\")

                FileName = File(File.Count - 1).Replace("""", "")

                Browsers_ComboBox.Items.Add(FileName)

            Next

        End With

        Browsers_ComboBox.SelectedIndex = 0

    End Sub

[پرستو پارسایی]

Private Sub ExportBrowsers()

    Browsers_ComboBox.Items.Clear() ' پاک کردن آیتم‌های موجود در کمبوباکس





    ' استخراج مرورگر پیش‌فرض

    Dim DefaultBrowserPath As String = My.Computer.Registry.ClassesRoot.OpenSubKey("http\  shell\open\command").GetValue("").ToString()

    Dim DefaultBrowserName As String = DefaultBrowserPath.Split("").Last().Replace("""", "")

    Browsers_ComboBox.Items.Insert(0, DefaultBrowserName) ' اضافه کردن مرورگر پیش‌فرض به عنوان اولین آیتم در کمبوباکس





    Dim Path As String

    Dim File() As String

    Dim FileName As String





    ' پیدا کردن مرورگرهای نصب شده

    With My.Computer.Registry.LocalMachine.OpenSubKey("soft  ware\clients\startmenuinternet")

        Dim Names() As String = .GetSubKeyNames

        For Each Item As String In Names

            With .OpenSubKey(Item)

                With .OpenSubKey("shell\open\command")

                    Path = .GetValue("", "")

                End With

            End With

            File = Path.Split("")

            FileName = File(File.Count - 1).Replace("""", "")

            Browsers_ComboBox.Items.Add(FileName) ' اضافه کردن نام مرورگر به کمبوباکس

        Next

    End With





    Browsers_ComboBox.SelectedIndex = 0 ' تنظیم انتخاب بر روی اولین آیتم در کمبوباکس

End Sub