Default Browser -

This code will determine your default browser.

Original Author: Paul Kurczaba

Assumptions

Copyright 2005 Paul Kurczaba

Returns

The function returns the location of your default browser.

Side Effects

None :)

Code

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 98 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.