Imports Microsoft.Win32
Imports Microsoft.VisualBasic.CompilerServices
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(GetDefaultWebBrowser.BrowserPath())
End Sub
Public Class GetDefaultWebBrowser
Friend Shared Function BrowserPath() As String
Dim result As String
Try
Dim registryKey As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\shell\Associations\UrlAssociations\http\UserChoice", False)
If registryKey IsNot Nothing Then
Dim str As String = Conversions.ToString(registryKey.GetValue("ProgId"))
registryKey = My.Computer.Registry.ClassesRoot.OpenSubKey(str + "\shell\open\command", False)
result = registryKey.GetValue("")
Return result
End If
registryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Classes\IE.HTTP\shell\open\command", False)
result = registryKey.GetValue("")
Return result
Catch expr_F3 As Exception
ProjectData.SetProjectError(expr_F3)
ProjectData.ClearProjectError()
End Try
result = "iexplore.exe"
Return result
End Function
End Class
End Class
