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