[RESOLU] Equivalent clavier Ctrl + F5

[PhM]

Bonjour,
Après avoir ouvert par le programme une page html, j'aimerai la mettre à jour régulièrement par l'équivalent programme des touches Ctrl + F5 pour rafraichir la page déjà ouverte (sans ouvrir un nouvel onglet dans le navigateur).
Avez-vous la solution pour cela ???

[TazNormand]

Salut,

comme ça peut-être :

Code : Tout sélectionner

  refreshdelay=5000
  If OpenWindow(0, 0, 0, 1024, 768, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    WebGadget(0, 10, 10, 1000, 700, "http://placeimg.com/640/480/any") 
    ;SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())
    
    refstart.q  = ElapsedMilliseconds()
    Delay(1)
    Debug refstart

    Repeat
      reftime.q =ElapsedMilliseconds()
      If reftime % refreshdelay = 0        
        Debug "refresh after "+Str(refreshdelay)+" milliseconds"
        SetGadgetState(0,#PB_Web_Refresh)
      EndIf
      
    Until WindowEvent() = #PB_Event_CloseWindow 
  EndIf

[PhM]

Merci TazNormand pour ton approche.

Si j'ai bien compris, cette solution ne fonctionne que dans le cadre d'une fenêtre WebGadget().

Mon souhait serait de rafraichir une page web dans le navigateur par défaut de Windows et ta méthode ne correspond pas à ce cas.

Je pensai qu'il y avait une possibilité de simuler des touches du clavier (Ctrl F5) en commandes programmées, ce qui ne semble pas être simple...

[falsam]

Ce petit code te permet de rafraichir une page web

Principe
- Utiliser le Desktop comme handle de fenêtre.
- Créer une boucle en systray pouvant être interrompu avec la touche Escape.
-- Dans la boucle :
--- Un delay d'attente entre deux rafraichissement.
--- Envoyer/relacher la touche Controle + F5 (API Windows)
--- Tester la touche Escape pour sortir de la boucle

Code : Tout sélectionner

Define WindowID, Message.s

;Utiliser le DeskTop comme handle de fenêtre.
WindowID = GetDesktopWindow_()

;Créer un processus en Systray
SysTray = AddSysTrayIcon(#PB_Any, WindowID, LoadIcon_( 0, #IDI_EXCLAMATION ) );
SysTrayIconToolTip(SysTray, "Presser la touche Escape" +#CRLF$+ "pour interrompre le rafraichissement")

;Demander à l'utilisateur de donner le focus à un navigateur 
Message = "Fermez ce message d'information" + #CRLF$ + 
          "puis cliquez sur l'onglet de la page que vous voulez rafraichir automatiquement." + #CRLF$ +
          "Touche Escape pour terminer le rafraichissement"

MessageRequester("Information", Message)

;Lancer le processus de rafraichissement toutes les 2 secondes
Repeat 
  Delay(2000)
  res = keybd_event_(#VK_CONTROL,0,0,0)    ;Appuyer sur CTRL
  res = keybd_event_(#VK_F5,0,0,0)         ;Appuyer sur F5
  res = keybd_event_(#VK_F5,0,2,0)         ;Relacher F5
  res = keybd_event_(#VK_CONTROL,0,2,0)    ;Relacher CTRL
Until GetAsyncKeyState_(#VK_ESCAPE) & $1

;Le raffraichissment est interrompu
MessageRequester("Information", "Rafraichissement interrompu.")

[PhM]

Merci Falsam pour ton exemple qui fonctionne.
Néanmoins, je reste surpris qu'il n'y ait pas de méthode plus simple pour simuler l'appui de touches du clavier
Mais, tu n'y est pour rien...

[falsam]

Plus simple nativement PureBasic il y a pas. Par contre le SysTray n'est pas obligatoire. Ca donnait la possibilité de créer un menu.

On peut donc faire plus simple.

Code : Tout sélectionner

Define WindowID, Message.s

;Demander à l'utilisateur de donner le focus à un navigateur 
Message = "Fermez ce message d'information" + #CRLF$ + 
          "puis cliquez sur l'onglet de la page que vous voulez rafraichir automatiquement." + #CRLF$ +
          "Touche Escape pour terminer le rafraichissement"

MessageRequester("Information", Message)

;Lancer le processus de rafraichissement toutes les 2 secondes
Repeat 
  Delay(2000)
  res = keybd_event_(#VK_CONTROL,0,0,0)    ;Appuyer sur CTRL
  res = keybd_event_(#VK_F5,0,0,0)         ;Appuyer sur F5
  res = keybd_event_(#VK_F5,0,2,0)         ;Relacher F5
  res = keybd_event_(#VK_CONTROL,0,2,0)    ;Relacher CTRL
Until GetAsyncKeyState_(#VK_ESCAPE) & $1

;Le raffraichissment est interrompu
MessageRequester("Information", "Rafraichissement interrompu.")

La seule partie importante est dans la boucle Repeat.

[falsam]

Je viens de trouver une liste de "Virtual Key Codes" que je ne connaissais pas.
http://www.kbdedit.com/manual/low_level_vk_list.html

et on y trouve VK_BROWSER_REFRESH pour actualiser le navigateur.

Donc on peut faire encore plus court dans la boucle repeat.

Code : Tout sélectionner

Repeat 
  Delay(2000)
  res = keybd_event_(#VK_BROWSER_REFRESH,0,0,0) 
Until GetAsyncKeyState_(#VK_ESCAPE) & $1

et ca fonctionne ^.^ Yeahhhhh i'm happy.

[Ar-S]

Le delay n'est pas gênant dans le gestionnaire de tâche ?
Perso j'aurai mis une fen invisible et un timer de 2s

[PhM]

Merci Falsam,
Ton dernier message sur la base de VK_BROWSER_REFRESH est vraiment cool, je prends !
Et, ton lien est à conserver
Encore merci de t’être penché sur ce cas.

[Ekim]

Bonsoir à tous

Puisqu'on est dans le sujet Webgadget j'aimerais en profiter pour demander la méthode si l'on veux effectuer un Ctrl + A pour la sélection du
contenu du fameux gadget en cliquant sur un bouton, en espérant que cette question puisse accessoirement profiter ce topic