Discussion :

[tsconetti]

Bonjour,

Je me permets de poster la demande suivante.

Je souhaiterai exécuter une commande/scripte toutes les heures. Cette commande ou scripte qui démarrera internet explorer sur une page bien précise (ie; www.lequipe.fr). Ceci toutes les heures de 9 heures a 18 Heures tous les jours de la semaine. La page devra être stocker dans une directorie sur le PC windows (10)qui pourra etre visible plus tard.

Merci pour vos conseils.

Bien a vous,

Thierry.

[Micky Balladelli]

Je pense que j'utiliserais une tache planifiée qui a l'avantage de préserver un log de ce qui est passé, et peut être planifiée de façon répétitive.

La tache appelle powershell.exe et dans la partie arguments on peut mettre -file lequipe.ps1

Ensuite dans le script lequipe.ps1 on peut avoir le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
$ie = New-Object -COMObject InternetExplorer.Application
$ie.visible = $false

$date = Get-Date
$outfile = "c:\temp\lequipe_$($date.Day)_$($date.Month)_$($date.Year)_$($date.Hour)_$($date.Minute).html"    

$ie.Navigate('http://lequipe.fr')
While ($ie.Busy) { Start-Sleep -Milliseconds 100 }

$ie.Document.documentElement.outerHTML | out-file $outfile

Ce code est assez classique, on crée un objet COM vers IE, on s'assure que IE n'est pas visible, et on navigue vers l'URL voulue. Comme ce n'est pas instantané on attend que IE ne soit plus "busy" et ensuite la partie difficile commence:

Sauvegarder une page HTML n'est pas chose facile, dans l'exemple, les parties CSS ne sont pas sauvegardées, ça reste quand même exploitable/lisible dans IE ou autres Mozilla Firefox.

Voici une autre méthode en passant par System.Net.WebClient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
$web=New-Object System.Net.WebClient
$bytes = $web.DownloadData("http://lequipe.fr")

$date = Get-Date
$outfile = "c:\temp\lequipe_$($date.Day)_$($date.Month)_$($date.Year)_$($date.Hour)_$($date.Minute).html"    

[System.Text.Encoding]::ASCII.GetString($bytes) | out-file $outfile

Le résultat est le même.

[tsconetti]

GRAND MERCI Micky.