Как сделать скриншот экрана через cmd или bat?

[bobojonkholikov]

Всем привет! Как сделать скриншот экрана через cmd или bat? Можете помочь?

[Foreigner]

С помощью nircmd (http://www.nirsoft.net/utils/nircmd.html)
Активное окно:

nircmdc savescreenshotwin file.png

Весь экран:

nircmdc savescreenshot file.png

[bobojonkholikov]

Foreigner, объясни пожалуйста что такое nircmd

[turbolover]

что такое nircmd »
http://soft.oszone.net/program/7092/NirCmd/

[Iska]

что такое nircmd »
Внешняя сторонняя многоцелевая утилита от известного автора. Ссылки Вам привели аж две.

[bobojonkholikov]

Всем спасибо!

[bobojonkholikov]

Чет я не понял как им пользоваться! Объясните пожалуйста.

[Foreigner]

bobojonkholikov, Так вам же даже примеры привел. Запускаете из батника или из командной строки или из "Выполнить". В зависимости от того находится ли утилита в PATH, прописываете необходимый путь к nircmd.exe (nircmdc.exe)

http://s29.postimg.org/zb1zeo13b/example.png (http://postimage.org/)

[Nordek]

Как сделать скриншот экрана через cmd или bat? »Например.

[greg zakharov]

<# :
@echo off
powershell /nologo /noprofile /executionpolicy bypass /command ^
"&{[ScriptBlock]::Create((gc \"%~f0\") -join [Char]10).Invoke()}"
exit /b
#>

Add-Type -AssemblyName System.Windows.Forms

$scr = [Windows.Forms.Screen]::PrimaryScreen.Bounds
$pic = New-Object Drawing.Bitmap($scr.Width, $scr.Height)

$gfx = [Drawing.Graphics]::FromImage($pic)
$gfx.CopyFromScreen([Drawing.Point]::Empty, [Drawing.Point]::Empty, $pic.Size)

$cur = New-Object Drawing.Rectangle(
[Windows.Forms.Cursor]::Position, [Windows.Forms.Cursor]::Current.Size
)
[Windows.Forms.Cursors]::Default.Draw($gfx, $cur)

$pic.Save(
($pwd.Path + '\' + (date -u %d%m%Y_%H%M%S) + '.png'),
[Drawing.Imaging.ImageFormat]::Png
)
$gfx.Dispose()
$pic.Dispose()

[turbolover]

<# :
@if "%1" neq "*" (
mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",0,False:Close()"^)
exit/b
)
powershell /nologo /noprofile /executionpolicy bypass /command ^
"&{[ScriptBlock]::Create((gc \"%~f0\") -join [Char]10).Invoke()}"
exit /b
#>

Add-Type -AssemblyName System.Windows.Forms

$scr = [Windows.Forms.Screen]::PrimaryScreen.Bounds
$pic = New-Object Drawing.Bitmap($scr.Width, $scr.Height)

$gfx = [Drawing.Graphics]::FromImage($pic)
$gfx.CopyFromScreen([Drawing.Point]::Empty, [Drawing.Point]::Empty, $pic.Size)

$cur = New-Object Drawing.Rectangle(
[Windows.Forms.Cursor]::Position, [Windows.Forms.Cursor]::Current.Size
)
[Windows.Forms.Cursors]::Default.Draw($gfx, $cur)

$pic.Save(
($pwd.Path + '\' + (date -u %d%m%Y_%H%M%S) + '.png'),
[Drawing.Imaging.ImageFormat]::Png
)
$gfx.Dispose()
$pic.Dispose()

[turbolover]

С помощю: nircmd.exe
http://soft.oszone.net/program/7092/NirCmd/
@Echo off
@if "%1" neq "*" (
mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",0,False:Close()"^)
exit/b
)
ping -n 2 localhost>Nul
Start %Windir%\nircmd.exe savescreenshot Screenshot.png
Exit /b