extern/PowerShell
1
0
Fork 0
mirror of https://github.com/fleschutz/PowerShell.git synced 2024-11-23 00:13:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improved take-screenshot.ps1 and take-screenshots.ps1

Browse Source
This commit is contained in:
Markus Fleschutz 2021-01-27 10:44:30 +01:00
parent f57d1b2652
commit a488b0da03
2 changed files with 35 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
Scripts/take-screenshot.ps1
View File

@ -8,48 +8,28 @@
param([string]$Directory = "")
function GetTimedScreenshots {
[CmdletBinding()] Param(
[Parameter(Mandatory=$True)]
[ValidateScript({Test-Path -Path $_ })]
[string]$Path,
[Parameter(Mandatory=$True)]
[int32]$Interval,
[Parameter(Mandatory=$True)]
[string]$EndTime
)
function GenScreenshot {
$ScreenBounds = [Windows.Forms.SystemInformation]::VirtualScreen
$ScreenshotObject = New-Object Drawing.Bitmap $ScreenBounds.Width, $ScreenBounds.Height
$DrawingGraphics = [Drawing.Graphics]::FromImage($ScreenshotObject)
$DrawingGraphics.CopyFromScreen( $ScreenBounds.Location, [Drawing.Point]::Empty, $ScreenBounds.Size)
$DrawingGraphics.Dispose()
$ScreenshotObject.Save($FilePath)
$ScreenshotObject.Dispose()
}
Add-Type -Assembly System.Windows.Forms
do {
$Time = (Get-Date)
$FileName = "$($Time.Year)-$($Time.Month)-$($Time.Day)-$($Time.Hour)-$($Time.Minute)-$($Time.Second).png"
[string]$FilePath = (Join-Path $Path $FileName)
write-output "Saving screenshot to $FilePath..."
GenScreenshot
Start-Sleep -Seconds $Interval
} while ((Get-Date -Format HH:%m) -lt $EndTime)
function TakeScreenshot() { param([string]$FilePath)
Add-Type -Assembly System.Windows.Forms
$ScreenBounds = [Windows.Forms.SystemInformation]::VirtualScreen
$ScreenshotObject = New-Object Drawing.Bitmap $ScreenBounds.Width, $ScreenBounds.Height
$DrawingGraphics = [Drawing.Graphics]::FromImage($ScreenshotObject)
$DrawingGraphics.CopyFromScreen( $ScreenBounds.Location, [Drawing.Point]::Empty, $ScreenBounds.Size)
$DrawingGraphics.Dispose()
$ScreenshotObject.Save($FilePath)
$ScreenshotObject.Dispose()
}
try {
if ($Directory -eq "") {
$Directory = "$PWD"
}
GetTimedScreenshots $Directory 0 "00:00"
$Time = (Get-Date)
$Filename = "$($Time.Year)-$($Time.Month)-$($Time.Day)-$($Time.Hour)-$($Time.Minute)-$($Time.Second).png"
$FilePath = (Join-Path $Directory $Filename)
write-output "Saving screenshot to $FilePath..."
TakeScreenshot $FilePath
exit 0
} catch {
write-error "ERROR in line $($_.InvocationInfo.ScriptLineNumber): $($Error[0])"

55
Scripts/take-screenshots.ps1
View File

@ -8,48 +8,31 @@
param([string]$Directory = "", [int]$Interval = 60)
function GetTimedScreenshots {
[CmdletBinding()] Param(
[Parameter(Mandatory=$True)]
[ValidateScript({Test-Path -Path $_ })]
[string]$Path,
[Parameter(Mandatory=$True)]
[int32]$Interval,
[Parameter(Mandatory=$True)]
[string]$EndTime
)
function GenScreenshot {
$ScreenBounds = [Windows.Forms.SystemInformation]::VirtualScreen
$ScreenshotObject = New-Object Drawing.Bitmap $ScreenBounds.Width, $ScreenBounds.Height
$DrawingGraphics = [Drawing.Graphics]::FromImage($ScreenshotObject)
$DrawingGraphics.CopyFromScreen( $ScreenBounds.Location, [Drawing.Point]::Empty, $ScreenBounds.Size)
$DrawingGraphics.Dispose()
$ScreenshotObject.Save($FilePath)
$ScreenshotObject.Dispose()
}
Add-Type -Assembly System.Windows.Forms
do {
$Time = (Get-Date)
$FileName = "$($Time.Year)-$($Time.Month)-$($Time.Day)-$($Time.Hour)-$($Time.Minute)-$($Time.Second).png"
[string]$FilePath = (Join-Path $Path $FileName)
write-output "Saving screenshot to $FilePath..."
GenScreenshot
Start-Sleep -Seconds $Interval
} while ((Get-Date -Format HH:%m) -lt $EndTime)
function TakeScreenshot() { param([string]$FilePath)
Add-Type -Assembly System.Windows.Forms
$ScreenBounds = [Windows.Forms.SystemInformation]::VirtualScreen
$ScreenshotObject = New-Object Drawing.Bitmap $ScreenBounds.Width, $ScreenBounds.Height
$DrawingGraphics = [Drawing.Graphics]::FromImage($ScreenshotObject)
$DrawingGraphics.CopyFromScreen( $ScreenBounds.Location, [Drawing.Point]::Empty, $ScreenBounds.Size)
$DrawingGraphics.Dispose()
$ScreenshotObject.Save($FilePath)
$ScreenshotObject.Dispose()
}
try {
if ($Directory -eq "") {
$Directory = "$PWD"
}
GetTimedScreenshots $Directory $Interval "23:59"
do {
$Time = (Get-Date)
$Filename = "$($Time.Year)-$($Time.Month)-$($Time.Day)-$($Time.Hour)-$($Time.Minute)-$($Time.Second).png"
$FilePath = (Join-Path $Directory $Filename)
write-output "Saving screenshot to $FilePath..."
TakeScreenshot $FilePath
Start-Sleep -Seconds $Interval
} while (1)
exit 0
} catch {
write-error "ERROR in line $($_.InvocationInfo.ScriptLineNumber): $($Error[0])"