• Home
 · 
• Registry
 · 
• Default Browser

Default Browser

This code will determine your default browser.

Assumes
Copyright 2005 Paul Kurczaba

Returns
The function returns the location of your default browser.

Side Effects
None :)

Rate Default Browser

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Function DefaultBrowser()
On Error Resume Next
Dim Regentry As String
Set TheReg = CreateObject("Wscript.Shell")
Regentry = TheReg.RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")
Regentry = Replace(Regentry, Chr(34), "")
Regentry = Mid(Regentry, 1, InStr(1, LCase(Regentry), ".exe") + 3)
DefaultBrowser = Regentry
End Function