Slide 29
Slide 29 text
できること(2):画面キャプチャ
Add-Type -AssemblyName System.Drawing
function screenshot([Drawing.Rectangle]$bounds, $path) {
$bmp = New-Object Drawing.Bitmap -ArgumentList $bounds.width,$bounds.height
$graphics = [Drawing.Graphics]::FromImage($bmp)
$graphics.CopyFromScreen($bounds.Location, [Drawing.Point]::Empty, $bounds.size)
$bmp.Save($path)
$graphics.Dispose()
$bmp.Dispose()
}
PS> $rect = New-Object Drawing.Rectangle –ArgumentList 100,100,400,300
PS> Screenshot $rect tmp.png