Invoking the Default Browser

Invoking the Default Browser

Here’s a Visual Basic routine that invokes the default browser:

 Private Declare Function ShellExecute Lib"shell32.dll" Alias "ShellExecuteA" (ByValhwnd As Long, ByVal lpOperation As String,ByVal lpFile As String, ByVal lpParametersAs String, ByVal lpDirectory As String,ByVal nShowCmd As Long) As LongPrivate Const SW_SHOW = 5Public Sub HyperJump(ByVal URL As String)   Call ShellExecute(0&, vbNullString, URL,vbNullString, vbNullString, SW_SHOW)End Sub 

It just passes the desired URL to the routine.


Share the Post: