Как штатными средствами сделать скриншот экрана в буфер обмена? : Windows

OlegON · █ 03.03.2019 20:53

Подсобите, пожалуйста?
Попробовал

Код:

WshShell.SendKeys("{PRTSC}")

не работает. Собственно, об этом и сами MS пишут.
Задача простая, без всяких сторонних средств, скриптом или еще как-то автоматически по расписанию делать скриншот всего экрана и поместить его в буфер обмена. Ничего скрытно делать не обязательно.

student · █ 03.03.2019 23:02

Цитата:

OlegON ➤ Ничего скрытно делать не обязательно

тогда ножницы тебе в руки :)
===
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "snippingtool.exe"
WScript.Sleep (2000)
WshShell.SendKeys("%{N}")
WScript.Sleep (500)
WshShell.SendKeys("^{C}")
WScript.Sleep (500)
WshShell.SendKeys("^{S}")
WScript.Sleep (500)
WshShell.SendKeys("{ENTER}")
WScript.Sleep (500)
WshShell.SendKeys("%{F4}")
===
и допилить при необходимости смену имени файла...

OlegON · █ 04.03.2019 09:35

К сожалению, вариант не подошёл совсем.
На загруженной машине ножницы могут не запуститься и скрипт хреначит, закрывая другие окна...
А нужно снимать достаточно частый ряд скриншотов...
Может, есть ещё какой-нибудь способ?

student · █ 04.03.2019 09:53

Цитата:

OlegON ➤ могут не запуститься и скрипт хреначит, закрывая другие окна

просто допилить с проверкой запущены ножницы или нет и закрывать не по альтF4 а по имени, ну или ваапче не закрывать а просто активировать ...

vdm · █ 04.03.2019 10:13

Если не пойдет, из стандартного остается только powershell, в нем реализуемо, примеры есть.

OlegON · █ 04.03.2019 10:15

да вот уже нашел... в результате налетел на какую-то политику, запрещающую запуск таких скриптов, хотя wsh запускается

OlegON · █ 04.03.2019 10:26

проклятые индусские программисты!
хоткеи совсем ничего общего с реальными не имеют при локализации...
при запуске ножниц они по умолчанию запускаются в режиме прямоугольника и хоткея на выбор полного экрана нет... через Alt-N вообще странно работает, иногда вообще не делает снимок, пока не перезапустишь

student · █ 04.03.2019 10:42

Цитата:

OlegON ➤ и хоткея на выбор полного экрана

там вроде бы надо сначала вручную выставить режим и потом юзать последний установленный - я просто особо не заморачивался ...
а кнопки там
ALT+M Выбор режима ножниц
ALT+N Создание нового фрагмента в том же режиме, что и последний
SHIFT+клавиши со стрелками Перемещение курсора для выбора прямоугольной области фрагмента
ALT+D Задержка захвата на 1–5 секунд
CTRL+C Копирование фрагмента в буфер обмена
CTRL + S Сохранение фрагмента

кстати в настройках есть параметр типа всегда копировать в буфер - т.е. по идее CTRL+C можно не посылать

OlegON · █ 04.03.2019 12:33

в общем, немного наврал, получается, с условием, поскольку используется Word, на этой машине он есть

Код:

Set Wshshell=CreateObject("Word.Basic")
for i=0 to 50
WshShell.sendkeys"{prtsc}"
WScript.Sleep 100
next

сделает 50 скриншотов в буфер почти моментально

Димитрий · █ 04.03.2019 13:09

ctrl + print screen
и экран в буфере