Boutton qui va ouvrir une page internet ?

[Shinao]

Bonjour,

je voulais juste savoir comment faire pour lorsque je clique sur le boutton , cela ouvre une page internet... ? enfin la fonction quoi :p

merci d'avance

[Patrick88]

Code : Tout sélectionner

  If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
    TextGadget(0,0,4,50,20,"Url :",#PB_Text_Right)
    StringGadget(1,50,0,400,20,"http://www.purebasic.com")
    ButtonGadget(2,460,0,50,20,"Change")
    
    WebGadget(3,10,30,580,280,"http://www.purebasic.com")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    
    
    Repeat 
      event = WaitWindowEvent() 

      If EventGadget() = 2 ; quand le bouton "change" est cliqué
        nouvelle_adresse.s = GetGadgetText(1) ; recupère le contenu de la stringgadget
        
        SetGadgetText(3,nouvelle_adresse) ; change la paga web dans le gadget
      EndIf
    Until event = #PB_Event_CloseWindow
  EndIf

[Shinao]

Escuse moi je n'avais pas précisé mais cette méthode est à la PB et je voudrias juste l'ouvrir avec le naviguateur par défaut de l'utilisateur :p

merci d'avance

[gnozal]

Code : Tout sélectionner

      If ShellExecute_(0, 0, URL$, 0, 0, #SW_SHOWNORMAL) <= 32 ; erreur, on réessaie une fois (parfois problème de timeout)
        ShellExecute_(0, 0, URL$, 0, 0, #SW_SHOWNORMAL)
      EndIf

[nico]

RunProgram fonctionne aussi!

Code : Tout sélectionner

RunProgram("http://www.purebasic.fr/french/")

[gnozal]

RunProgram fonctionne aussi!

Code : Tout sélectionner

RunProgram("http://www.purebasic.fr/french/")

Pas sur mon PC [NT4 + Opera] : j'ai une erreur Windows 'Le fichier "http://www.purebasic.fr/french/" (ou un des composants) est introuvable. Etc...'
Mon code posté plus haut fonctionne.

[Shinao]

Merci à vous deux !