Alternative zur Windows Schrittaufzeichnung

# define output folder for screenshots
$SCREENSHOTFOLDER = 'D:\ordner\screenshots'  
# play shutter sound on capture
$PLAYSOUND = $true
# shutter soundfile
$SOUNDFILE = 'C:\Windows\Media\Speech On.wav'  
# -------------------------
$ErrorActionPreference = 'Stop'  
if (!(Test-Path $SCREENSHOTFOLDER)){md $SCREENSHOTFOLDER -Force | out-null}
$global:dllpath = ''  
Add-Type -A System.Drawing
Add-Type -A System.Windows.Forms
Add-Type –MemberDefinition '[DllImport("user32.dll")]public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);' -name Window -namespace W32  

function Load-NugetAssembly {
    [CmdletBinding()]
    param(
        [string]$url,
        [string]$name,
        [string]$zipinternalpath,
        [switch]$downloadonly
    )
    # Accept all TLS protocols
    [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::GetNames([System.Net.SecurityProtocolType]) 
    if($psscriptroot -ne ''){  
        $localpath = join-path $psscriptroot $name
    }else{
        $localpath = join-path $env:TEMP $name
    }
    $global:dllpath = $localpath
    $tmp = "$env:TEMP\$([IO.Path]::GetRandomFileName())"  
    $zip = $null
    try{
        if(!(Test-Path $localpath)){
            Add-Type -A System.IO.Compression.FileSystem
            write-host "Downloading and extracting required library '$name' ... " -F Green -NoNewline  
            (New-Object System.Net.WebClient).DownloadFile($url, $tmp)
            $zip = [System.IO.Compression.ZipFile]::OpenRead($tmp)
            $zip.Entries | ?{$_.Fullname -eq $zipinternalpath} | %{
                [System.IO.Compression.ZipFileExtensions]::ExtractToFile($_,$localpath)
            }
	        Unblock-File -Path $localpath
            write-host "OK" -F Green  
        }
        if(!$downloadonly.IsPresent){
            Add-Type -Path $localpath -EA Stop
        }
        
    }catch{
        throw "Error: $($_.Exception.Message)"  
    }finally{
        if ($zip){$zip.Dispose()}
        if(Test-Path $tmp){del $tmp -Force -EA 0}
    }  
}

Load-NugetAssembly -url 'https://www.nuget.org/api/v2/package/MouseKeyHook/5.6.0' -name 'Gma.System.MouseKeyHook.dll' -zipinternalpath 'lib/net40/Gma.System.MouseKeyHook.dll'  

Add-Type @'  
using System;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using Gma.System.MouseKeyHook;
 
namespace GlobalHotkey
{
    public partial class EventForm : Form
    {
        private IKeyboardMouseEvents m_GlobalHook;
        public event EventHandler GlobalMouseClicked;
 
        public EventForm(){
            m_GlobalHook = Hook.GlobalEvents();
            m_GlobalHook.MouseClick += GlobalMouseClickEvent;

        }
        private void GlobalMouseClickEvent(object sender, EventArgs e){
            GlobalMouseClicked.Invoke(this,EventArgs.Empty);
        }
 
        private void EventForm_FormClosing(object sender, FormClosingEventArgs e){
            m_GlobalHook.MouseClick -= GlobalMouseClickEvent;
            m_GlobalHook.Dispose();
        }
    }
}
'@ -ReferencedAssemblies 'System.Windows.Forms',$global:dllpath  

function Capture-Screenshot {
    [CMDLetBinding()]
    param(
        [parameter(mandatory=$true)][ValidateNotNullOrEmpty()][string]$filepath,
        [parameter(mandatory=$false)][System.Drawing.Size]$size,
        [parameter(mandatory=$false)][System.Drawing.Point]$Position = '0,0',  
        [parameter(mandatory=$false)][ValidateSet('PNG','BMP','JPEG')][string]$ImageFormat = 'JPEG',  
        [parameter(mandatory=$false)][ValidateRange(0,100)][int]$ImageQuality = 100,
        [parameter(mandatory=$false)][switch]$Force
    )
    $bm = $null
    # get primary screen bounds
    $w = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Width
    $h = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Height

    # set capture size to full screen area if not set by function parameter
    if (!$size){
        [System.Drawing.Size]$size = "$w,$h"  
    }
    
    try{
        
        # create target folder if it does not exist
        if (!(Test-Path ([io.Path]::GetDirectoryName($filepath)))){md ([io.Path]::GetDirectoryName($filepath)) -Force | out-null}
        if(!$force.IsPresent){
            if (Test-Path $filepath){
                throw "Filename already exists in given path. (Use '-force' parameter to force overwriting file)"  
            }
        }
        
        # create bitmap
        $bm = New-Object System.Drawing.Bitmap $size.Width,$size.Height

        # capture screen area
        [System.Drawing.Graphics]::FromImage($bm).CopyFromScreen($position.X,$position.Y,0,0,$size)
        
        # creating image format encoderset
        $encParams = New-Object System.Drawing.Imaging.EncoderParameters(1)
        $encFormat = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | ?{$_.FormatDescription -eq $ImageFormat}
        $encParams.Param = New-Object System.Drawing.Imaging.EncoderParameter ([System.Drawing.Imaging.Encoder]::Quality, $ImageQuality)

        # save screenshot
        $bm.Save($filepath,$encFormat,$encParams)

        # return fileinfo
        return (gi $filepath)
    }catch{
        Write-Error -Message $_.Exception.Message

    }finally{
        if ($bm){$bm.Dispose()}
        # restore PS window if it was visible before screenshot
        if ($restoreWindow){
            [W32.Window]::ShowWindow($psWindowPID, 5)
        }
        
    }
}

# hide powershell window
[void][W32.Window]::ShowWindow((Get-Process -id $pid).MainWindowHandle, 0)

$player = [System.Media.SoundPlayer]::new($soundfile)

$form = New-Object GlobalHotkey.EventForm -Property @{
    Text = "ScreenshotByClick"  
    Size = '400,200'  
    ShowInTaskbar = $true
    add_GlobalMouseClicked = {
        if($PLAYSOUND){$player.Play()}
        Capture-Screenshot -filepath (join-path $SCREENSHOTFOLDER "screenshot_$(get-date -F yyyyMMdd_HHmmss).jpg") -ImageFormat JPEG -ImageQuality 70 -Force  
    }
}
$lbl = New-Object System.Windows.Forms.Label -P @{
    Dock = [System.Windows.Forms.DockStyle]::Fill
    TextAlign = 'MiddleCenter'  
    Font = [System.Drawing.Font]::new([System.Drawing.FontFamily]::new('Arial'),25)  
    Text = 'Close form to stop taking screenshots'  
}
$form.Controls.Add($lbl)
[void]$form.ShowDialog()
$player.Dispose()