[Iska]

v79italya, я даже уже и не знаю…

Давайте попробуем заменить в начале:

Код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null
[Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | Out-Null

на:

Код:

Add-Type -AssemblyName 'System.Drawing'
Add-Type -AssemblyName 'System.Windows.Forms'

А так-то идей нет.

[v79italya]

Iska, Вы не парьтесь много. Помощь - дело добровольное. Если в итоге ничего не получится - я не расстроюсь.
Можно попробовать по другому: скриншоты я как нибудь сделаю сторонними программами. А возможно отправлять на почту вложение из папки? то вложение, у которого дата создания или дата изменения были позже всех.

[v79italya]

Iska, во первых, спасибо за код и за то что нашли причину.
смотрите. попробовал с этими строками:

HTML код:

Add-Type -AssemblyName 'System.Drawing'
Add-Type -AssemblyName 'System.Windows.Forms'

все отработало правильно. Потом попробовал с этими строками:

HTML код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null
[Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | Out-Null

тоже все отработало правильно. только в коде из сообщения 13 только одна строка

HTML код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null

. Наверное поэтому и не работало.
Только сейчас тоже есть проблема. Возможно ли запускать скрипт в фоне или в трее? Иначе черное окошко PShell(как cmd) виднеется на скриншоте.

[Iska]

В общем — не знаю. У меня работает и с [Reflection.Assembly]::LoadWithPartialName() и с Add-Type. Почему у Вас местами не работало с одним из них — нужно ждать мнения коллег-специалистов, коим я не являюсь.

Возможно ли запускать скрипт в фоне или в трее? »

В трее вообще ничего нельзя «запустить». В принципе.

Создайте задание в Планировщике заданий. На вкладке «Действия» создайте действие «Запуск программы». В группе «Параметры» в поле «Программа или сценарий» укажите:

Код:

"%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe"

В поле «Добавить аргументы (необязательно)» укажите:

Код:

-NoLogo -WindowStyle Hidden -ExecutionPolicy RemoteSigned -File "C:\Мои проекты\0279\0001.ps1"

где вместо выделенного укажите путь к Вашему файлу.

Настройте расписание на вкладке триггеры — начало выполнения задания, повтор и продолжительность.

Окно консоли PowerShell всё равно будет появляться (потому что, как я понял, сначала создаётся окно консоли, а затем уже, в процессе выполнения, к нему применяется сокрытие), но на скриншотах его не будет (если всё равно будет — попробуйте немного увеличить паузу в:

Код:

Start-Sleep -Milliseconds 250

). Если Вам надо радикально — чтобы вообще даже не светилось окно в принципе, то можно будет ещё поиграться.

[v79italya]

Iska, ok. Сделаю как советуете. Спасибо Вам большое!

[v79italya]

Почему у Вас местами не работало с одним из них »

не работал в таком виде:

HTML код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null

Start-Sleep -Milliseconds 250

$oRectangle = ([System.Windows.Forms.Screen]::AllScreens)[0].Bounds
$oBitmap    = [System.Drawing.Bitmap]::new($oRectangle.Width, $oRectangle.Height)
$oGraphics  = [System.Drawing.Graphics]::FromImage($oBitmap)

если же первую строку заменить на две строки любого из двух предложенных Вами вариантов:

HTML код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null
[Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | Out-Null


Add-Type -AssemblyName 'System.Drawing'
Add-Type -AssemblyName 'System.Windows.Forms'

то все работает. Может, причина не в этом

[Iska]

сли же первую строку заменить на две строки любого из двух предложенных Вами вариантов … то все работает. »

А… То бишь, Вы изначально просто не дочитали всю тему до конца. Ясно, разобрались.

[v79italya]

изначально просто не дочитали всю тему до конца »

моя вина) Не вчитался в сообщение #23. Прошу извинить за то что помучил

[denis19]

nircmd.exe savescreenshot "scr~$currdate.MM_dd_yyyy$-~$currtime.HH_mm_ss$.png" »

А не подскажете, как в команде скрину увеличить размер, чтоб качество и чёткость лучше было?

[rafka]

прочёл выше сказанное и создал screen.ps1

Код:

[Reflection.Assembly]::LoadWithPartialName('System.Drawing') | Out-Null
[Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | Out-Null


Add-Type -AssemblyName 'System.Drawing'
Add-Type -AssemblyName 'System.Windows.Forms'
$oGraphics.CopyFromScreen($oRectangle.Location, [System.Drawing.Point]::Empty, $oRectangle.Size)
$oMemoryStream = [System.IO.MemoryStream]::new()
$oBitmap.Save($oMemoryStream, [System.Drawing.Imaging.ImageFormat]::Png)
$oBitmap.Save('C:\abcabc\0001.png')
$oMemoryStream.Seek(0, [System.IO.SeekOrigin]::Begin) | Out-Null

$oMailMessage = New-Object -TypeName 'Net.Mail.MailMessage'
$oMailMessage.From = 'from@mail.com'
$oMailMessage.To.Add('to@mail.com') 
$oMailMessage.SubjectEncoding = [System.Text.Encoding]::Unicode 
$oMailMessage.Subject = "Screenshot at $(Get-Date)"
$oMailMessage.IsBodyHTML      = $true  
$oMailMessage.BodyEncoding    = [System.Text.Encoding]::Unicode
$oMailMessage.Body = "<h2>Hello World!</h2></br>Screenshot at $(Get-Date) here."

$oContentType = New-Object -TypeName 'Net.Mime.ContentType' -Property @{
    MediaType = "image/png"
    Name      = "Screenshot at $(Get-Date).png"
}
$oAttachment = New-Object -TypeName 'Net.Mail.Attachment' -ArgumentList $oMemoryStream, $oContentType
$oMailMessage.Attachments.Add($oAttachment)

$oSmtpClient = New-Object -TypeName 'Net.Mail.SmtpClient' -ArgumentList 'mail.mail.com', 465 #465
$oSmtpClient.EnableSsl = $true
$oSmtpClient.Credentials = New-Object -TypeName 'System.Net.NetworkCredential' -ArgumentList 'from@mail.com', '123456'
$oSmtpClient.Send($oMailMessage)

Когда запускаю нифига не происходить. как будто и ничего не запускал. Windows 11