Je me mets au Spiderbasic et besoin d'aide

[brossden]

je voudrais un exemple de code comme ceci :

Une fenêtre comportant 2 boutons le premier ouvre Youtube et le second Google

Une âme charitable pourrait elle me créer ce code ?

[brossden]

J'ai tenté d'utiliser chatgtp pour me venir en aide mais il confond les commande Purebasic et Spiderbasic

[brossden]

je voudrais un exemple de code comme ceci :

Une fenêtre comportant 2 boutons le premier ouvre Youtube et le second Google

Une âme charitable pourrait elle me créer ce code ?

[falsam]

Je vais faire office d'âme charitable avec ce code. Par contre tu vas rencontrer un souci avec la connexion de Google et Youtube car la connexion n'est pas autorisé.

Code : Tout sélectionner

; On evite l'affichage de la fenetre de debug
CloseDebugOutput()

EnableExplicit

Enumeration
  #mf ; Fenetre principale full screen
  #mc ; Fenetre Chrome
  #my ; Fenetre Youtube
  
  ; Boutons d'appels Chrome & Youtube 
  #mfChrome
  #mfYoutube
  
  ; Navigateur Chrome & Youtube
  #mcWeb
  #myWeb
  
  ; Bouton de fermeture Chrome & Youtube
  #mcClose
  #myClose
EndEnumeration

Declare CallChrome()
Declare CallYoutube()
Declare OnClose()

; Ouverture de la fenetre principale
OpenWindow(#mf, 0, 0, 0, 0, "", #PB_Window_Background)
SetWindowColor(#mf, RGB(211, 191, 191))
ButtonGadget(#mfChrome, WindowWidth(#mf)-120, 100, 100, 35, "Chrome")
ButtonGadget(#mfyoutube, WindowWidth(#mf)-120, 150, 100, 35, "Youtube")

; La boucle evenementielle n'existe pas avec SpiderBasic
; Il faut gérer des contextes evenementiels. 
; Chaque contexte est associé à un @callback.
BindGadgetEvent(#mfChrome, @CallChrome())
BindGadgetEvent(#mfYoutube, @CallYoutube())

Procedure CallChrome()
  If IsWindow(#mc) = 0
    OpenWindow(#mc, 100, 100, 600, 500, "Chrome")
    WebGadget(#mcWeb, 0, 0, 600, 500, "https://google.com")
    BindEvent(#PB_Event_CloseWindow, @OnClose())
  EndIf
  
EndProcedure

Procedure CallYoutube() 
 If IsWindow(#mfYoutube) = 0
    OpenWindow(#my, 150, 150, 600, 500, "Youtube")  
    WebGadget(#myWeb, 0, 0, 600, 500, "https://youtube.fr")
    BindEvent(#PB_Event_CloseWindow, @OnClose())
  EndIf
 EndProcedure

Procedure OnClose()
  Protected ThisWindow = EventWindow()
  UnbindEvent(#PB_Event_CloseWindow, @OnClose(), ThisWindow)
  CloseWindow(ThisWindow)
EndProcedure

[brossden]

Merci falsam,

Pas grave ce n'était qu'un exemple je veux piloter à distance un système de domotique perso (Lumières, Volets, Pompe d'arrosage, Zône d'arrosage, Ouverture / Fermeture des portes de garage et Ouverture / Fermeture du Portail).
Le tout fonctionne très bien actuellement, mais le code est sur PC Windows avec interface Google Assistant (HOME)

Une dernière chose si je veux uniquement envoyer une requête sans ouvrir la fenêtre correspondante, mais récupérer le code html correspondant est ce possible (désolé mais je débute dans ce langage )