Url aus Programm aufrufen

[Divo1]

Hallo!
Ich möchte in VB6 ein Programm schreiben, dass, wenn mans ausführt den Iexplorer startet (hab ich schon hinbekommen) und dann darin eine Webseite aufruft.
Alles was ich bis jetzt gefunden habe, hat nicht funktioniert.
Könnt ihr mir da vielleicht helfen?
Mfg
Divo1

 

[Rumsi]

Hallo!
Ich möchte in VB6 ein Programm schreiben, dass, wenn mans ausführt den Iexplorer startet (hab ich schon hinbekommen) und dann darin eine Webseite aufruft.
Alles was ich bis jetzt gefunden habe, hat nicht funktioniert.
Könnt ihr mir da vielleicht helfen?
Mfg
Divo1

Nachfolgender code öffnet den standart browser und anschliesend wird die angegebene seite geladen.

Private 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

Private Sub GoToURL(ByVal hWnd As Long, ByVal URL As String)
Screen.MousePointer = 11
Call ShellExecute(hWnd, "Open", URL, "", "", 1)
Screen.MousePointer = 0
End Sub

und so kannst kannst du die funktion benutzen:
GoToURL Me.hWnd, "http://www.pcgames.de/"

 

[Sardaykin]

Hallo!
Ich möchte in VB6 ein Programm schreiben, dass, wenn mans ausführt den Iexplorer startet (hab ich schon hinbekommen) und dann darin eine Webseite aufruft.
Alles was ich bis jetzt gefunden habe, hat nicht funktioniert.
Könnt ihr mir da vielleicht helfen?
Mfg
Divo1

google mal nach "ole automation visual basic" oder so in der art.
per ole kann man leicht zb officeprogramme fernsteuern, aber auch den ie.

 

[Divo1]

Hallo!
Ich möchte in VB6 ein Programm schreiben, dass, wenn mans ausführt den Iexplorer startet (hab ich schon hinbekommen) und dann darin eine Webseite aufruft.
Alles was ich bis jetzt gefunden habe, hat nicht funktioniert.
Könnt ihr mir da vielleicht helfen?
Mfg
Divo1

Nachfolgender code öffnet den standart browser und anschliesend wird die angegebene seite geladen.

Private 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

Private Sub GoToURL(ByVal hWnd As Long, ByVal URL As String)
Screen.MousePointer = 11
Call ShellExecute(hWnd, "Open", URL, "", "", 1)
Screen.MousePointer = 0
End Sub

und so kannst kannst du die funktion benutzen:
GoToURL Me.hWnd, "http://www.pcgames.de/"

Erst ma Danke für eure Hilfe!

@Rumsi
Wo soll ich das

GoToURL Me.hWnd, "http://www.pcgames.de/"

einfügen.
Ich hab da keinen Plan. (Sorry wenn ich nerve. Ich habe noch nicht sehr viel mit VB gemacht und daher fast keine Ahnung)
Kannst du mir da nich son Beispiel von dir zeigen, was funktionier?
Divo1

 

[Divo1]

Hat sich schon erledigt! Hab den Fehler gefunden.