Actualiser automatiquement une page Web sur Windows

Vidéo illustrative via YouTube

Code source du script PS1

Le script PowerShell suivant a pour objectif de simuler une actualisation automatique d'une page web dans un navigateur spécifié pendant une durée prédéfinie.

# Durée d'exécution du script en minute
$duree_en_minute = 720

# Occurrence de rafraichissement en seconde
$refresh_en_seconde = 30

# Quel navigateur internet utilisez-vous (Google Chrome, Firefox, Opera, Brave...)
$navigateur = "Google Chrome"

$timeout = new-timespan -Minutes $duree_en_minute
$sw = [diagnostics.stopwatch]::StartNew()
while ($sw.elapsed -lt $timeout){
[void] [System.Reflection.Assembly]::LoadWithPartialName("Microsoft.VisualBasic")
[Microsoft.VisualBasic.Interaction]::AppActivate($navigateur) 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 
[System.Windows.Forms.SendKeys]::SendWait("{F5}")
$dateheure = Get-Date
Write-Host "Rafraichissement :"$dateheure
start-sleep -seconds $refresh_en_seconde
}

Voici une explication ligne par ligne :

• Paramètres initiaux :
  • $duree_en_minute détermine la durée totale d'exécution du script en minutes (720 minutes dans cet exemple).
  • $refresh_en_seconde spécifie la fréquence de rafraîchissement de la page en secondes (30 secondes dans cet exemple).
  • $navigateur indique le navigateur web à utiliser pour le rafraîchissement (dans cet exemple, "Google Chrome").
• Initialisation des variables :
  • $timeout crée un objet TimeSpan représentant la durée totale pendant laquelle le script doit s'exécuter, basé sur la valeur de $duree_en_minute.
  • $sw initialise un chronomètre Stopwatch) qui sera utilisé pour mesurer le temps écoulé.
• Boucle de rafraîchissement :
  • La boucle while s'exécute tant que le temps écoulé (mesuré par le chronomètre) est inférieur à la durée spécifiée dans $timeout.
  • À l'intérieur de la boucle :
    • AppActivate($navigateur) active la fenêtre du navigateur spécifié, en utilisant le nom du navigateur défini dans $navigateur.
    • SendKeys::SendWait("{F5}") simule l'appui sur la touche F5, ce qui équivaut à un rafraîchissement de la page dans la plupart des navigateurs.
    • $dateheure = Get-Date récupère la date et l'heure actuelles.
    • Write-Host "Rafraichissement :"$dateheure affiche un message dans la console indiquant l'heure du rafraîchissement.
    • start-sleep -seconds $refresh_en_seconde met le script en pause pendant la durée spécifiée dans $refresh_en_seconde avant de passer à la prochaine itération de la boucle.
• Fin du script :
  • Une fois que la durée spécifiée dans $timeout est écoulée, le script se termine.

Voici une seconde version du code avec une option supplémentaire pour choisir les onglets à rafraichir.

# Durée totale en minutes
$duree_en_minute = 720

# Fréquence de rafraîchissement (en secondes)
$refresh_en_seconde = 30

# Navigateur cible
$navigateur = "Google Chrome"

# Onglets à rafraîchir
$onglets = @(2, 3, 5)

# Durée du script
$timeout = New-TimeSpan -Minutes $duree_en_minute
$sw = [Diagnostics.Stopwatch]::StartNew()

# Chargement des bibliothèques nécessaires
[void][System.Reflection.Assembly]::LoadWithPartialName("Microsoft.VisualBasic")
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

# Fonction pour changer la disposition clavier
function Set-KeyboardLayout {
param (
[string]$layout = "00000409"  # QWERTY = 00000409 | AZERTY = 0000040C
)
$signature = @'
[DllImport("user32.dll")]
public static extern long LoadKeyboardLayout(string pwszKLID, uint Flags);
'@
$keyboardAPI = Add-Type -MemberDefinition $signature -Name 'Win32Keyboard' -Namespace API -PassThru
$keyboardAPI::LoadKeyboardLayout($layout, 1)
}

while ($sw.Elapsed -lt $timeout) {

# Activer la fenêtre navigateur
[Microsoft.VisualBasic.Interaction]::AppActivate($navigateur)
Start-Sleep -Milliseconds 500

# Revenir à l'onglet 1 AVANT chaque cycle
Set-KeyboardLayout "00000409" # QWERTY
[System.Windows.Forms.SendKeys]::SendWait("^{1}")
Start-Sleep -Milliseconds 300
Set-KeyboardLayout "0000040C" # AZERTY

foreach ($onglet in $onglets) {
# Aller à l'onglet voulu
Set-KeyboardLayout "00000409" # QWERTY
[System.Windows.Forms.SendKeys]::SendWait("^{${onglet}}")
Start-Sleep -Milliseconds 300
Set-KeyboardLayout "0000040C" # AZERTY

# Rafraîchir
[System.Windows.Forms.SendKeys]::SendWait("{F5}")
Start-Sleep -Milliseconds 200

$dateheure = Get-Date -Format "HH:mm:ss"
Write-Host "Rafraichissement onglet $onglet ($dateheure)"

Start-Sleep -Seconds 1
}

# Retour à l’onglet 1 en fin de cycle
Set-KeyboardLayout "00000409" # QWERTY
[System.Windows.Forms.SendKeys]::SendWait("^{1}")
Start-Sleep -Milliseconds 300
Set-KeyboardLayout "0000040C" # AZERTY

Write-Host "Fin du cycle $(Get-Date -Format "HH:mm:ss"). Attente $refresh_en_seconde sec..."
Start-Sleep -Seconds $refresh_en_seconde
}

Cliquez sur le lien ci-contre pour télécharger le fichier archive au format ZIP.

Il contient les fichiers suivants :

• Fichier script actualiser.ps1.
• Fichier information 1formatik.txt.