Problème de script WebGadget

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
MetalOS
Messages : 1492
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Problème de script WebGadget

Message par MetalOS »

Salut les gars,

Je rencontre un problème de chargement de script avec le WebGadget et le code de la page m'indique que mon navigateur et obsolète. Comme le WebGadget et basé sous windows sur la version 4 de IE et il possible de passer par Webkit ou une userlib pour pouvoir afficher le site en question sans erreur. Fred si tu passe par ici une mise à jour du WebGadget sur WebKit et elle prévue dans l'avenir sous windows ?

Voici le code d'exemple qui me fait défaut:

Code : Tout sélectionner

If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    WebGadget(0,10,10,580,280,"http://infoproject-software.fr/Projets/Meteo/BNL/")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Mesa
Messages : 1093
Inscription : mer. 14/sept./2011 16:59

Re: Problème de script WebGadget

Message par Mesa »

Pour supprimer l'alerte de script, on trouve dans les forums, ce truc sous windows:

Code : Tout sélectionner

Global myBrowser.IWebBrowser2 

If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)  
  WebGadget(0,10,10,580,280,"http://infoproject-software.fr/Projets/Meteo/BNL/") 
  ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier 
  
  
;   SetGadgetAttribute(0, #PB_Web_BlockPopups, #True)   
;   SetGadgetAttribute(0, #PB_Web_BlockPopupMenu, #True) 
  
  myBrowser = GetWindowLong_(GadgetID(0), #GWL_USERDATA) 
  myBrowser\put_Silent(#True) ;Suppress error warnings in WebGadget 
  
  
  Repeat  
  Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf
M.
Avatar de l’utilisateur
Mindphazer
Messages : 635
Inscription : mer. 24/août/2005 10:42

Re: Problème de script WebGadget

Message par Mindphazer »

Bureau : Win10 64bits
Maison : Macbook Pro M1 14" SSD 512 Go / Ram 16 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Avatar de l’utilisateur
MetalOS
Messages : 1492
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Re: Problème de script WebGadget

Message par MetalOS »

Pour supprimer l'alerte des script j'avais trouvé sur le forum, je vais tester pour le module. Merci les gars.
Avatar de l’utilisateur
PhM
Messages : 118
Inscription : dim. 08/déc./2019 10:50

Re: Problème de script WebGadget

Message par PhM »

Salut MetalOS,
Pour ma part, j’utilise une astuce encore plus efficace trouvé sur le forum anglais.
Par contre, je pense qu'il est nécessaire d'avoir la version enregistrée de PureBasic mais, je n'en suis pas certain ?

En reprenant ton exemple :

Code : Tout sélectionner

If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    WebGadget(0,10,10,580,280,"http://infoproject-software.fr/Projets/Meteo/BNL/")

      myBrowser.IWebBrowser2 = GetWindowLong_(GadgetID(0), #GWL_USERDATA)
      myBrowser\put_Silent(#True) ; suppression des erreurs dans WebGadget (html5 compatible)
      myBrowser\put_Left(0)

    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
Bon courage...
vurvur
Messages : 60
Inscription : ven. 29/août/2014 19:52

Re: Problème de script WebGadget

Message par vurvur »

Ajoute ces lignes avant ton code pour utiliser la version de IE la plus récente:

Code : Tout sélectionner

dwLabel.s     = GetFilePart(ProgramFilename())   : dwValue.i   = 11001
rPath.s       = "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"
RegCreateKeyEx_(#HKEY_CURRENT_USER, rPath.s, 0, #Null, #REG_OPTION_VOLATILE, #KEY_ALL_ACCESS, #Null, @phkResult, @Disposition)
RegSetValueEx_(phkResult, @dwLabel, 0, #REG_DWORD, @dwValue, SizeOf(Long))
Du coup ton URL s'affichera sans erreurs.
Avatar de l’utilisateur
MetalOS
Messages : 1492
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Re: Problème de script WebGadget

Message par MetalOS »

*Phm: J'utilisais déjà cette astuce pour éviter les message d'erreur de script. Merci

*vurvur: Merci pour ton partage ca fonctionne super maintenant.

Merci les gars ;-)
Ekim
Messages : 215
Inscription : dim. 24/juin/2018 1:20

Re: Problème de script WebGadget

Message par Ekim »

Bonsoir,
Je ne suis que débutant mais ne serait il pas plus prudent d'ajouter un contrôle conditionnel pour éviter de créer la clé de registre à chaque exécution?
Répondre