[VB6] Une autre question : Ouverture d'un navigateur

**Jihnn** · 27/02/2006, 13h56

Salut !

Oui, je suis curieux, et j'en ai besoin pour un programme ^^

Je ne l'ai pas vu dans la FAQ, alors je post mon topic :
Comment faire pour ouvrir le browser par défaut et aller à l'url X (Sans rien taper évidemment, juste en suivant le lien) ?

Merci d'avance !

**Jihnn** · 27/02/2006, 22h37

Puisque je n'ai vu aucune règle sur les ups, je vais en faire un en précisant un peu plus ^^

En fait, j'ai un lien d'aide. La page, ce n'est pas moi qui l'est crée, c'est une page disponible sur le web. Je veux, lors du click d'un label, que cette page s'ouvre avec le navigateur par défaut.
Ça m'aiderait beaucoup ^^

Merci d'avance !

**Megaxel** · 28/02/2006, 11h38

Pas dur: tu mets ça dans le code correspondant au click sur ton bouton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://actualite.free.fr/")

Enfin, si tu veux lire les infos du jour...

**ThierryAIM** · 28/02/2006, 11h43

Pour utiliser le browser par défaut (qui n'est pas forcement ie) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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
Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "http://actualite.free.fr/", vbNullString, "C:\", SW_SHOWNORMAL
End Sub