Update 10/02/2023
--------------------------------------------------
$i = 0
$PathPicture = "C:\..........\..........\imagesscreen"
New-Item $PathPicture -ItemType Directory -ErrorAction SilentlyContinue
Remove-Item "$($PathPicture)\*.*" -Force -Recurse
sleep -Seconds 5
do {
sleep -Seconds 1
$i++
$File = "$($PathPicture)\Image$($i).bmp"
Add-Type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Drawing
$Screen = [System.Windows.Forms.SystemInformation]::VirtualScreen
$Width = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Width
$Height = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Height
$Left = 0
$Top = 0
($bitmap = New-Object System.Drawing.Bitmap $Width, ($Height-40)) | Out-Null
($graphic = [System.Drawing.Graphics]::FromImage($bitmap)) | Out-Null
($graphic.CopyFromScreen($Left, $Top, 0, 0, $bitmap.Size)) | Out-Null
$bitmap.Save($File) | Out-Null
$CountPicture = (Get-ChildItem "$($PathPicture)\Image*.*").Count
If($CountPicture -ge 2)
{
$Picture1 = Get-ChildItem "$($PathPicture)\Image$($i).bmp"
$Picture2 = Get-ChildItem "$($PathPicture)\Image$($i-1).bmp"
}
else
{
Continue
}
$f1 = Get-FileHash -Path $Picture1
$f2 = Get-FileHash -Path $Picture2
Write-Host "$($Picture2.Name) : $($f2.Hash)"
Write-Host "$($Picture1.Name) : $($f1.Hash)"
if($f1.Hash -ne $f2.Hash)
{
Write-Host "PlaySound" -ForegroundColor Yellow
$PlayWav = New-Object System.Media.SoundPlayer
$PlayWav.SoundLocation = "C:\Windows\Media\Alarm01.wav"
$PlayWav.playsync()
#& "C:\Program Files\VideoLAN\VLC\vlc.exe" --play-and-exit '"C:\Windows\Media\Alarm01.wav"'
sleep -Seconds 10
# (New-Object Media.SoundPlayer 'C:\Windows\Media\Afternoon\Windows Notify.wav').Play();
}
Remove-Item $Picture2 -Force
} while (
$true
)
