Lancer le navigateur par défaut

[Progi1984]

Slt

Pourquoi ce code ne fonctionne til pas ?

Code : Tout sélectionner

  hwnd.l=OpenWindow(0,0,0,270,160,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"HyperlinkGadget")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(10, 10, 10,250,20,"Lien rouge")
    Repeat 
        Event = WindowEvent() 

    If Event=#PB_Event_Gadget
      gadget=EventGadgetID()
      If gadget =10
        ShellExecute_(hWnd.l, "Open", "http:\\www.purebasic.com", "", "",1)
      EndIf
    
    EndIf 
    
    Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

[Chris]

Faudrait savoir ce que tu veux utiliser, WindowEvent() ou WaitWindowEvent()

C'est l'un ou l'autre, mais pas les deux.

[lionel_om]

Peut-être un oubli ou un copier/coller trop rapide ...

[olivier]

Comme cela :

Code : Tout sélectionner

  hWnd.l=OpenWindow(0,0,0,270,160,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"HyperlinkGadget")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(10, 10, 10,250,20,"Lien rouge")
    Repeat
        event = WindowEvent()
        
        If event=#PB_Event_Gadget
            gadget=EventGadgetID()
            If gadget =10
                ShellExecute_(hWnd.l, "Open", "http:\\www.purebasic.com", "", "",1)
            EndIf
            
        EndIf
        
    Until event =#PB_Event_CloseWindow
EndIf 

Mais il sera préférable d'utiliser WaitwindowEvent(), comme cela :

Code : Tout sélectionner

  hWnd.l=OpenWindow(0,0,0,270,160,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"HyperlinkGadget")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(10, 10, 10,250,20,"Lien rouge")
    Repeat
        event = WaitWindowEvent()
        
        If event=#PB_Event_Gadget
            gadget=EventGadgetID()
            If gadget =10
                ShellExecute_(hWnd.l, "Open", "http:\\www.purebasic.com", "", "",1)
            EndIf
            
        EndIf
        
    Until event =#PB_Event_CloseWindow
EndIf 

[lionel_om]

Code : Tout sélectionner

hWnd.l=OpenWindow(0,0,0,270,160,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"HyperlinkGadget")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(10, 10, 10,250,20,"Lien rouge")
    Repeat
        event = WindowEvent()
        
        If event=#PB_Event_Gadget
            gadget=EventGadgetID()
            If gadget =10
                ShellExecute_(hWnd.l, "Open", "http:\\www.purebasic.com", "", "",1)
            EndIf
            
        EndIf
        
    Until event =#PB_Event_CloseWindow
EndIf 

Faut rajouter un Dalay(2) ou un Sleep_(2) car sinon tu vas bouffer tout l'UC ...

[Chris]

Ben ouais, c'est exactement ce que j'ai dit !

[Progi1984]

Oh le con ! J'ai fait une modif du code de hyperlinkgagdget, et j'ai rajouté un truc par dessus , que j'ai modifié et

Merci !

[Jacobus]

et un RunProgram() c'est pas suffisant?

ex :

Code : Tout sélectionner

RunProgram("http:\\www.purebasic.com")