• Home
 · 
• VB function enhancement
 · 
• Default Browser

Default Browser

A simple API call to open up the default browser to the url of your choice. VERY simple and useful code.

Inputs
URL string, hwnd

API Declarations
'API for OpenBrowser
Public Const SW_SHOWDEFAULT = 10
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Rate Default Browser

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Function OpenBrowser(strURL As String, lngHwnd As Long)
 OpenBrowser = ShellExecute(lngHwnd, vbNullString, strURL, vbNullString, _
  "c:\", SW_SHOWDEFAULT)
End Function