Lauching IE with a URL

[Chris Wallace]

Should be easy but I can't find it,

Any ideas how to lunch Internet Expoler with a URL from a VB6 code, I do not want to use and of the activeX controls I have filled a list box with my URL's and want to run them from the double click event.

Thanks for any help,

Chris

[Fox]

Use the ShellExecute API command

There are two ways:

(1):
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

Public Const SW_SHOWNORMAL = 1
Public Const SW_ShowMinimized = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_Hide = 0
Public Const SW_MAX = 10
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_NORMAL = 1

   Function ShellToBrowser%(frm As Form, ByVal url$, ByVal WindowStyle%)
         
         Dim api%
             api% = ShellExecute(frm.hwnd, "open", url$, "", App.Path, WindowStyle%)
      
         'Check return value
         If api% < 31 Then
             'error code - see api help for more info
             MsgBox App.Title & " had a problem running your web browser. You should check that your browser is correctly installed. (Error #" & Format$(api%) & ")", 48, "Browser Unavailable"
             ShellToBrowser% = False
         ElseIf api% = 32 Then
             'no file association
             MsgBox App.Title & " could not find a file association for " & url$ & " on your system. You should check that your browser is correctly installed and associated with this type of file.", 48, "Browser Unavailable"
             ShellToBrowser% = False
         Else
             'It worked!
             ShellToBrowser% = True
      
         End If
         
     End Function

'ShellToBrowser(Me,"http://www.site.com",0)

(2):

Public Sub WWWaddress(Address As String)
'// open up the default web browser and send it to a web page address
On Error Resume Next
Dim ReturnVal As Long
ReturnVal& = Shell("Start.exe " & Address$, 1)
End Sub

'WWWaddress "http://www.site.com")

[RoundCow]

you could do all that long crap or..

call shell("c:\program files\internet explorer\ie.exe" & urltolaunch)

make sure thats the default path to IE though... i forget it soemtimes.

[RealisticGraphics]

Internet Explorer actually supports automation. I think it started with ver. 4.0.
So, you could do this:

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate myURL
IE.Visible = True

Of course, you wouldn't want to use this if you're not sure of their version.