Копирование рисунка из буфера обмена

@lastvega · Регистрация: 15.01.2013

Студворк — интернет-сервис помощи студентам

Добрый день!

Потребовалось написать скрипт, который делает скриншот активного окна. Сам скрипт:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#Иммитация нажатия клавиш Alt+PrtScreen
$provider = new-object Microsoft.VisualBasic.VBCodeProvider
$params = new-object System.CodeDom.Compiler.CompilerParameters
$params.GenerateInMemory = $true
$refs = "System.dll", "Microsoft.VisualBasic.dll"
$params.referencedAssemblies.AddRange($refs)
$txtCode = @"
Class mBox
    Declare Sub keybd_event Lib "User32.dll" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Sub Main()
        keybd_event(44, 1, 0, 0)
    End Sub
End Class
"@
$results = $provider.CompileAssemblyFromSource($params, $txtCode)
$mAssembly = $results.CompiledAssembly
$i = $mAssembly.CreateInstance("mBox")
$r = $i.main()
 
#Сохранение из буфера обмена
[reflection.assembly]::LoadWithPartialName("System.Drawing") > $null
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
$j = new-object System.Drawing.Bitmap 1920,1080
$j = [System.Windows.Forms.Clipboard]::GetImage();
 
$j.Save("d:\PrintScreen.png", ([system.drawing.imaging.imageformat]::png));

В IDE работает прекрасно. Однако когда запускаешь скрипт в консоли, передача картинки из буфера обмена перестает работать. Сама картинка в буфер обмена попадает (подтверждается вставкой в Paint после запуска скрипта).
Пробовал устанавливать задержки в разных местах. Пробовал запускать под разными версиями консоли (86 и 64). Однако ничего не помогло. В чем может быть проблема?

@diadiavova · 03.08.2017, 14:01

lastvega, а это вообще принципиально делать все с помощью эмуляции нажатия принтскрин и вытаскивания из буфера? Можно же без этого обойтись. Да и динамическая компиляция тут ни к чему, поскольку в пауэршелл есть собственный механизм, в котором она уже реализована.

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Add-Type -Language VisualBasic -ReferencedAssemblies @("System.Windows.Forms"; "System.Drawing") -TypeDefinition @"
Imports System.Windows.Forms
Imports System.Drawing
Public Class Saver
 
    Public Sub Save(path As String)
        Dim screenRect As Rectangle = Screen.PrimaryScreen.Bounds
        Dim bm As New Bitmap(screenRect.Width, screenRect.Height)
        Dim g As Graphics = Graphics.FromImage(bm)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenRect.Size)
        bm.Save(path)
        g.Dispose()
        bm.Dispose()
    End Sub
 
End Class
"@
$svr = New-Object Saver
 
$svr.Save( "C:\Users\username\Desktop\screen.png")

@lastvega · 03.08.2017, 17:59 **[ТС]**

а это вообще принципиально делать все с помощью эмуляции нажатия принтскрин и вытаскивания из буфера?

diadiavova, нет, если есть какой-то способ делать скриншот активного окна. Надо вытащить именно скриншот активного окна, а не просто сделать принтскрин экрана.

@diadiavova · 03.08.2017, 18:04

Сообщение от lastvega

Надо вытащить именно скриншот активного окна, а не просто сделать принтскрин экрана.

Но ведь то, что делаешь ты - это тоже просто снимок экрана?

Сообщение от lastvega

если есть какой-то способ делать скриншот активного окна

Тот метод, который я использовал позволяет копировать и часть экрана, поэтому достаточно просто вычислить координаты активного окна. Это надо в винапи покопаться, чтобы их вычислить, но буфер обмена там использовать ни к чему.

@lastvega · 03.08.2017, 18:06 **[ТС]**

Нет, это именно скриншот активного окна.

@v_svitere · 04.08.2017, 13:17

lastvega,

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

Да, это очевидно.
При запуске скрипта, у вас пропадает фокус активного окна, потому как, при запуске скрипта, даже с ключом -windowStyle Hidden у вас ненадолго появляется окно ХОСТА.
В этом случае, например, не поможет даже, обертка PS1-скрипта в EXE

Наверное решение на Powershell все же возможно, но гораздо проще реализовать сие задание, например на C#

@diadiavova · 04.08.2017, 13:56

Сообщение от diadiavova

поэтому достаточно просто вычислить координаты активного окна.

Оказалось это не так просто. Использовал вот такой код на бейсике

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Runtime.InteropServices
 
Public Class Saver
 
 
    Public Declare Auto Function GetWindowRect Lib "user32.dll" (hwnd As IntPtr, ByRef rectangle As Rect) As Boolean
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function GetActiveWindow() As IntPtr
    End Function
    Public Sub Save(path As String)
 
        Dim winrect As Rect
        GetWindowRect(GetActiveWindow, winrect)
        Dim bm As New Bitmap(winrect.Right - winrect.Left, winrect.Bottom - winrect.Top)
        Dim g As Graphics = Graphics.FromImage(bm)
        g.CopyFromScreen(New Point(winrect.Left, winrect.Top), New Point(0, 0), bm.Size)
        bm.Save(path, Imaging.ImageFormat.Png)
        g.Dispose()
        bm.Dispose()
    End Sub
 
    Public Structure Rect
        Public Property Left As Integer
        Public Property Top As Integer
        Public Property Right As Integer
        Public Property Bottom As Integer
 
    End Structure
End Class

В винформ приложении это работает, а вот в пауэршелл не хочет.
Если все-таки использовать эмуляцию нажатия клавиш то можно сделать так

PowerShell
1
2
3
4
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[System.Windows.Forms.SendKeys]::SendWait("%{PRTSC}")
$bmp = [System.Windows.Forms.Clipboard]::GetImage()
$bmp.Save("$env:USERPROFILE\Desktop\screen.png")

Запускал файл через контекстное меню - все работает как надо.

@v_svitere · 04.08.2017, 14:14

diadiavova, Это не совсем то, что хотел ТС, насколько я понимаю.
А то, что он хотел, скрин активного окна, на POSH-е трудно реализуемо, или вообще нереализуемо.
Выше я написал почему, лучше уж реально написать что-то на С# или С++, можно например, как вы верно подметили через WINAPI
GetForegroundWindow()
GetWindowRect()
PrintWindow(IntPtr hWnd, IntPtr hdcBlt, int nFlags)
В помощь

Добавлено через 1 минуту

поэтому достаточно просто вычислить координаты активного окна.

А вот это кстати просто)

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
$type=@"
using System;
using System.Net;
using System.Runtime.InteropServices;
 
public class WIN32
{
        
    [DllImport("user32.dll")]
    public static extern IntPtr GetForegroundWindow();
    
    [DllImport("user32.dll", CharSet = CharSet.Unicode)]
    public static extern bool GetWindowRect(IntPtr hwnd, ref RECT rectangle);
    
    [DllImport("user32.dll")]
    public static extern bool PrintWindow(IntPtr hWnd, IntPtr hdcBlt, int nFlags);
    
}
 
 public struct RECT
{
    public int Left; // x position of upper-left corner
    public int Top; // y position of upper-left corner
    public int Right; // x position of lower-right corner
    public int Bottom; // y position of lower-right corner
}
 
"@
 
Add-Type $type
add-type -AssemblyName system.drawing
$handle=[WIN32]::GetForegroundWindow()
$RECT= New-Object RECT
[WIN32]::GetWindowRect($handle,[ref]$RECT)|Out-Null

@diadiavova · 04.08.2017, 14:26

v_svitere, ну он же жалуется не то, что у него не "фоткается" окно, а на то, что он не может готовый снимок вытянуть из буфера. А сам снимок в буфере есть. Да и к тому же, второй пример ведь работает, что не так-то?

@v_svitere · 04.08.2017, 14:36

diadiavova,

А сам снимок в буфере есть

Хмм, для меня это странно.
Запуск PS1-скрипта, снимает фокус, с текущего активного окна.

Да и к тому же, второй пример ведь работает

Вот этот?

PowerShell
1
2
3
4
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[System.Windows.Forms.SendKeys]::SendWait("%{PRTSC}")
$bmp = [System.Windows.Forms.Clipboard]::GetImage()
$bmp.Save("$env:USERPROFILE\Desktop\screen.png")

Но это же не совмем то что нужно ТС.

Надо вытащить именно скриншот активного окна

@diadiavova · 04.08.2017, 14:43

Сообщение от v_svitere

Но это же не совмем то что нужно ТС.

Сообщение от v_svitere

Надо вытащить именно скриншот активного окна

Ну так он и вытаскивается.

@v_svitere · 04.08.2017, 14:55

diadiavova,

Ну так он и вытаскивается.

Этот вариант не будет работать, если вы попробуете запустить его как сценарий.

Добавлено через 4 минуты
Сохраните ваш код в сценарий, поставьте в планировщик, сделайте фокус на какое-нибудь произвольное окно.
Посмотрите, что получите после выполнения сценария

@diadiavova · 04.08.2017, 14:57

Сообщение от v_svitere

Этот вариант не будет работать, если вы попробуете запустить его как сценарий.

В смысле "как сценарий"? Я его пробовал запускать через контекстное меню файла "Запустить с помощью PowerShell". Правда надо сказать, что приходилось сворачивать окошко пауэршелл и все получалось. Только что запустил из консоли и сохранилось изображение консоли. Как это все будет использоваться ТС - я не знаю, но по идее это именно то, о чем он спрашивал.

@v_svitere · 04.08.2017, 15:01

diadiavova,

В смысле "как сценарий"? Я его пробовал запускать через контекстное меню файла "Запустить с помощью PowerShell". Правда надо сказать, что приходилось сворачивать окошко пауэршелл и все получалось. Только что запустил из консоли и сохранилось изображение консоли. Как это все будет использоваться ТС - я не знаю, но по идее это именно то, о чем он спрашивал.

Я вам говорю, задача скорее всего невыполнима на powershell.
Потому как powershell-ный код можно запустить либо из ХОСТА либо из сценария.
При запуске сценарий фокус активного окна сбивается.

Добавлено через 1 минуту

Потому как powershell-ный код можно запустить либо из ХОСТА

Что автоматический установит фокус на ХОСТ

Добавлено через 50 секунд

либо из сценария.

Что тоже собъет фокус, я об этом писал выше

@diadiavova · 04.08.2017, 15:14

Сообщение от v_svitere

Сохраните ваш код в сценарий, поставьте в планировщик, сделайте фокус на какое-нибудь произвольное окно.
Посмотрите, что получите после выполнения сценария

Да, в таком виде либо "фоткается" хост, либо (если его запустить как хидден) - область где он появился на мгновенье. Но мы ведь не знаем, как этот сценарий будет запускаться. Эта проблема озвучена не была, стало быть, возможно, это вообще не проблема.

@v_svitere · 04.08.2017, 15:16

diadiavova,
Вообщем про это я и говорил)

@lastvega · 04.08.2017, 17:53 **[ТС]**

Спасибо за помощь)))

Вообще суть проблемы такая: есть софт, у которого есть встроенная функция распечатки окна. Но по какой-то причине функция распечатывает скриншоты с существенными пробелами. Мысль была следующая: запускаем скрипт и тут же ставим его в паузу секунд на 10. За это время оператор выбирает нужное ему окно. Затем скрипт делает все остальное до вывода на печать.
Понимаю, что решение весьма корявое. Но уставить например Snagit на эту станцию мы не можем. И обучить операторов связке Принскрин + Paint тоже не получится. Вот и делаем костыль...

@lastvega · 04.08.2017, 18:05 **[ТС]**

Та же проблема... Запускаю скрипт на выполнение посредством консоли, и вот результат.

@skouzmine · 05.08.2017, 03:52

для того чтобы получить доступ к clipboard о получатель должно быть `win32`:

```

$global:ImagePath = 'c:\temp\PrintScreen1.png'

$provider = New-Object Microsoft.VisualBasic.VBCodeProvider
$params = New-Object System.CodeDom.Compiler.CompilerParamete rs
$params.GenerateInMemory = $true
$refs = @(
'System.dll',
'Microsoft.VisualBasic.dll'
)
$params.referencedAssemblies.AddRange($r efs)
$results = $provider.CompileAssemblyFromSource($par ams,@'
Class mBox
Declare Sub keybd_event Lib "User32.dll" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Sub Main()
keybd_event(44, 1, 0, 0)
End Sub
End Class
'@
)
$mAssembly = $results.CompiledAssembly
$mAssembly.CreateInstance('mBox').main()

[reflection.assembly]::LoadWithPartialName('System.Drawing') | Out-Null
Add-Type -AssemblyName 'System.Windows.Forms'
Add-Type -AssemblyName 'System.Drawing'
[void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Fo rms.VisualStyles')

# ----------------------------------------------
# Step 2
# Design the Form to collect the clipboard
# ----------------------------------------------

# No UI elements: form won't be shown
$Form = New-Object System.Windows.Forms.Form
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState

$Form.Text = 'Form'
$Form.Name = 'Form'
$Form.DataBindings.DefaultDataSourceUpda teMode = 0
$Form.ClientSize = '10,10'

#Save the initial state of the form
$InitialFormWindowState = $Form.WindowState
$global:ImagePath = 'c:\temp\PrintScreen1.png'

# initializes the OnLoad event
$Form.add_Load({
[reflection.assembly]::LoadWithPartialName('System.Drawing')
$global:screenImage = New-Object System.Drawing.Bitmap 1920,1080
$global:screenImage = [System.Windows.Forms.Clipboard]::GetImage();
$global:screenImage.Save($global:ImagePa th,([System.Drawing.Imaging.ImageFormat]:

ng));
$Form.WindowState = $InitialFormWindowState
$form.Close()
})

$Form.Topmost = $True
$Form.Add_Shown({ $Form.Activate() })
[void]$Form.ShowDialog()
$Form.Dispose()

```

и вы наверное хотите использлвать
```
[Win32]::FindWindow("Window Title",[IntPtr]::Zero)
```

Добавлено через 14 секунд
для того чтобы получить доступ к clipboard о получатель должно быть `win32`:

```

$global:ImagePath = 'c:\temp\PrintScreen1.png'

$provider = New-Object Microsoft.VisualBasic.VBCodeProvider
$params = New-Object System.CodeDom.Compiler.CompilerParamete rs
$params.GenerateInMemory = $true
$refs = @(
'System.dll',
'Microsoft.VisualBasic.dll'
)
$params.referencedAssemblies.AddRange($r efs)
$results = $provider.CompileAssemblyFromSource($par ams,@'
Class mBox
Declare Sub keybd_event Lib "User32.dll" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Sub Main()
keybd_event(44, 1, 0, 0)
End Sub
End Class
'@
)
$mAssembly = $results.CompiledAssembly
$mAssembly.CreateInstance('mBox').main()

[reflection.assembly]::LoadWithPartialName('System.Drawing') | Out-Null
Add-Type -AssemblyName 'System.Windows.Forms'
Add-Type -AssemblyName 'System.Drawing'
[void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Fo rms.VisualStyles')

# ----------------------------------------------
# Step 2
# Design the Form to collect the clipboard
# ----------------------------------------------

# No UI elements: form won't be shown
$Form = New-Object System.Windows.Forms.Form
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState

$Form.Text = 'Form'
$Form.Name = 'Form'
$Form.DataBindings.DefaultDataSourceUpda teMode = 0
$Form.ClientSize = '10,10'

#Save the initial state of the form
$InitialFormWindowState = $Form.WindowState
$global:ImagePath = 'c:\temp\PrintScreen1.png'

# initializes the OnLoad event
$Form.add_Load({
[reflection.assembly]::LoadWithPartialName('System.Drawing')
$global:screenImage = New-Object System.Drawing.Bitmap 1920,1080
$global:screenImage = [System.Windows.Forms.Clipboard]::GetImage();
$global:screenImage.Save($global:ImagePa th,([System.Drawing.Imaging.ImageFormat]:

ng));
$Form.WindowState = $InitialFormWindowState
$form.Close()
})

$Form.Topmost = $True
$Form.Add_Shown({ $Form.Activate() })
[void]$Form.ShowDialog()
$Form.Dispose()

```

и вы наверное хотите использлвать
```
[Win32]::FindWindow("Window Title",[IntPtr]::Zero)
```

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@lastvega 0 / 0 / 0 Регистрация: 15.01.2013 Сообщений: 8
	03.08.2017, 18:06 [ТС]
	Нет, это именно скриншот активного окна. 0

@diadiavova 7258 / 2605 / 744 Регистрация: 11.04.2015 Сообщений: 4,148 Записей в блоге: 43
	04.08.2017, 14:26
	v_svitere, ну он же жалуется не то, что у него не "фоткается" окно, а на то, что он не может готовый снимок вытянуть из буфера. А сам снимок в буфере есть. Да и к тому же, второй пример ведь работает, что не так-то? 0

@v_svitere 774 / 423 / 137 Регистрация: 03.06.2009 Сообщений: 1,223 Записей в блоге: 4
	04.08.2017, 15:16
	diadiavova, Вообщем про это я и говорил) 1

@lastvega 0 / 0 / 0 Регистрация: 15.01.2013 Сообщений: 8
	04.08.2017, 17:53 [ТС]
	Спасибо за помощь))) Вообще суть проблемы такая: есть софт, у которого есть встроенная функция распечатки окна. Но по какой-то причине функция распечатывает скриншоты с существенными пробелами. Мысль была следующая: запускаем скрипт и тут же ставим его в паузу секунд на 10. За это время оператор выбирает нужное ему окно. Затем скрипт делает все остальное до вывода на печать. Понимаю, что решение весьма корявое. Но уставить например Snagit на эту станцию мы не можем. И обучить операторов связке Принскрин + Paint тоже не получится. Вот и делаем костыль... 0

@lastvega 0 / 0 / 0 Регистрация: 15.01.2013 Сообщений: 8
	04.08.2017, 18:05 [ТС]
	Та же проблема... Запускаю скрипт на выполнение посредством консоли, и вот результат. Миниатюры 0

@skouzmine 505 / 158 / 49 Регистрация: 27.02.2016 Сообщений: 818
	05.08.2017, 03:52
	для того чтобы получить доступ к clipboard о получатель должно быть `win32`: ``` $global:ImagePath = 'c:\temp\PrintScreen1.png' $provider = New-Object Microsoft.VisualBasic.VBCodeProvider $params = New-Object System.CodeDom.Compiler.CompilerParamete rs $params.GenerateInMemory = $true $refs = @( 'System.dll', 'Microsoft.VisualBasic.dll' ) $params.referencedAssemblies.AddRange($r efs) $results = $provider.CompileAssemblyFromSource($par ams,@' Class mBox Declare Sub keybd_event Lib "User32.dll" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Sub Main() keybd_event(44, 1, 0, 0) End Sub End Class '@ ) $mAssembly = $results.CompiledAssembly $mAssembly.CreateInstance('mBox').main() [reflection.assembly]::LoadWithPartialName('System.Drawing') \| Out-Null Add-Type -AssemblyName 'System.Windows.Forms' Add-Type -AssemblyName 'System.Drawing' [void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Fo rms.VisualStyles') # ---------------------------------------------- # Step 2 # Design the Form to collect the clipboard # ---------------------------------------------- # No UI elements: form won't be shown $Form = New-Object System.Windows.Forms.Form $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState $Form.Text = 'Form' $Form.Name = 'Form' $Form.DataBindings.DefaultDataSourceUpda teMode = 0 $Form.ClientSize = '10,10' #Save the initial state of the form $InitialFormWindowState = $Form.WindowState $global:ImagePath = 'c:\temp\PrintScreen1.png' # initializes the OnLoad event $Form.add_Load({ [reflection.assembly]::LoadWithPartialName('System.Drawing') $global:screenImage = New-Object System.Drawing.Bitmap 1920,1080 $global:screenImage = [System.Windows.Forms.Clipboard]::GetImage(); $global:screenImage.Save($global:ImagePa th,([System.Drawing.Imaging.ImageFormat]:ng)); $Form.WindowState = $InitialFormWindowState $form.Close() }) $Form.Topmost = $True $Form.Add_Shown({ $Form.Activate() }) [void]$Form.ShowDialog() $Form.Dispose() ``` и вы наверное хотите использлвать ``` [Win32]::FindWindow("Window Title",[IntPtr]::Zero) ``` Добавлено через 14 секунд для того чтобы получить доступ к clipboard о получатель должно быть `win32`: ``` $global:ImagePath = 'c:\temp\PrintScreen1.png' $provider = New-Object Microsoft.VisualBasic.VBCodeProvider $params = New-Object System.CodeDom.Compiler.CompilerParamete rs $params.GenerateInMemory = $true $refs = @( 'System.dll', 'Microsoft.VisualBasic.dll' ) $params.referencedAssemblies.AddRange($r efs) $results = $provider.CompileAssemblyFromSource($par ams,@' Class mBox Declare Sub keybd_event Lib "User32.dll" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Sub Main() keybd_event(44, 1, 0, 0) End Sub End Class '@ ) $mAssembly = $results.CompiledAssembly $mAssembly.CreateInstance('mBox').main() [reflection.assembly]::LoadWithPartialName('System.Drawing') \| Out-Null Add-Type -AssemblyName 'System.Windows.Forms' Add-Type -AssemblyName 'System.Drawing' [void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Fo rms.VisualStyles') # ---------------------------------------------- # Step 2 # Design the Form to collect the clipboard # ---------------------------------------------- # No UI elements: form won't be shown $Form = New-Object System.Windows.Forms.Form $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState $Form.Text = 'Form' $Form.Name = 'Form' $Form.DataBindings.DefaultDataSourceUpda teMode = 0 $Form.ClientSize = '10,10' #Save the initial state of the form $InitialFormWindowState = $Form.WindowState $global:ImagePath = 'c:\temp\PrintScreen1.png' # initializes the OnLoad event $Form.add_Load({ [reflection.assembly]::LoadWithPartialName('System.Drawing') $global:screenImage = New-Object System.Drawing.Bitmap 1920,1080 $global:screenImage = [System.Windows.Forms.Clipboard]::GetImage(); $global:screenImage.Save($global:ImagePa th,([System.Drawing.Imaging.ImageFormat]:ng)); $Form.WindowState = $InitialFormWindowState $form.Close() }) $Form.Topmost = $True $Form.Add_Shown({ $Form.Activate() }) [void]$Form.ShowDialog() $Form.Dispose() ``` и вы наверное хотите использлвать ``` [Win32]::FindWindow("Window Title",[IntPtr]::Zero) ``` 0