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

[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("software\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("software\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