[DJ Mogarych]

.\screen.ps1

[kontox]

DJ Mogarych, теперь целый ряд выполз))

PS C:\Users\trader\desktop> .\screen.ps1
Unable to find type [System.Windows.Forms.Screen].
At C:\Users\trader\desktop\screen.ps1:5 char:16
+ $oRectangle = ([System.Windows.Forms.Screen]::AllScreens)[0].Bounds
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: (System.Windows.Forms.Screen:TypeNam
e) [], RuntimeException
+ FullyQualifiedErrorId : TypeNotFound

Exception calling ".ctor" with "2" argument(s): "Value cannot be null.
Parameter name: stream"
At C:\Users\trader\desktop\screen.ps1:6 char:1
+ $oBitmap = [System.Drawing.Bitmap]::new($oRectangle.Width, $oRecta ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : ArgumentNullException

Exception calling "FromImage" with "1" argument(s): "Value cannot be null.
Parameter name: image"
At C:\Users\trader\desktop\screen.ps1:7 char:1
+ $oGraphics = [System.Drawing.Graphics]::FromImage($oBitmap)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : ArgumentNullException

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:8 char:1
+ $oGraphics.CopyFromScreen($oRectangle.Location, [System.Drawing.Point ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:10 char:1
+ $oBitmap.Save($oMemoryStream, [System.Drawing.Imaging.ImageFormat]::P ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Exception calling "Send" with "1" argument(s): "Bad sequence of commands. The se
rver response was: 5.5.4 Error: send AUTH command first."
At C:\Users\trader\desktop\screen.ps1:32 char:1
+ $oSmtpClient.Send($oMailMessage)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : SmtpException

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:36 char:1
+ $oGraphics.Dispose()
+ ~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:37 char:1
+ $oBitmap.Dispose()
+ ~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

PS C:\Users\trader\desktop>

[Iska]

kontox, моя вина. Добавьте второй строкой:

Код:

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

ISE подгружает её автоматически для себя. Я помнил, что, при работе в чистой консоли, System.Windows.Forms надо подгружать самостоятельно, но с какого-то перепуга решил, что уже сделал это (попутал с наличествующей в коде System.Drawing).

[kontox]

Iska, я добавил, запустил

Exception calling "LoadWithPartialName" with "1" argument(s): "Could not load fi
le or assembly 'System.Windows.Forms, Culture=neutral, PublicKeyToken=null'. Ope
ration is not supported. (Exception from HRESULT: 0x80131515)"
At C:\Users\trader\desktop\screen.ps1:2 char:1
+ [Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms') | ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : FileLoadException

Unable to find type [System.Windows.Forms.Screen].
At C:\Users\trader\desktop\screen.ps1:5 char:16
+ $oRectangle = ([System.Windows.Forms.Screen]::AllScreens)[0].Bounds
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: (System.Windows.Forms.Screen:TypeNam
e) [], RuntimeException
+ FullyQualifiedErrorId : TypeNotFound

Exception calling ".ctor" with "2" argument(s): "Value cannot be null.
Parameter name: stream"
At C:\Users\trader\desktop\screen.ps1:6 char:1
+ $oBitmap = [System.Drawing.Bitmap]::new($oRectangle.Width, $oRecta ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : ArgumentNullException

Exception calling "FromImage" with "1" argument(s): "Value cannot be null.
Parameter name: image"
At C:\Users\trader\desktop\screen.ps1:7 char:1
+ $oGraphics = [System.Drawing.Graphics]::FromImage($oBitmap)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : ArgumentNullException

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:8 char:1
+ $oGraphics.CopyFromScreen($oRectangle.Location, [System.Drawing.Point ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:10 char:1
+ $oBitmap.Save($oMemoryStream, [System.Drawing.Imaging.ImageFormat]::P ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Exception calling "Send" with "1" argument(s): "Bad sequence of commands. The se
rver response was: 5.5.4 Error: send AUTH command first."
At C:\Users\trader\desktop\screen.ps1:32 char:1
+ $oSmtpClient.Send($oMailMessage)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: ( [], MethodInvocationException
+ FullyQualifiedErrorId : SmtpException

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:36 char:1
+ $oGraphics.Dispose()
+ ~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

You cannot call a method on a null-valued expression.
At C:\Users\trader\desktop\screen.ps1:37 char:1
+ $oBitmap.Dispose()
+ ~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

[YuS_2]

Я помнил, что, при работе в чистой консоли, System.Windows.Forms надо подгружать самостоятельно»

Код:

add-type -assembly system.windows.forms

[v79italya]

Iska, здравствуйте. моя тема закрыта. скорее всего из за схожести с этой темы. потому пишу сюда.
не устанавливая никаких программ, запустил скрипт из сообщения #13. на почту пришло то что на скрине. .пнг не открывается(она как ссылка).
вопросы: какие программы еще надо установить? как настроить периодичность в полчаса?

[Iska]

.пнг не открывается(она как ссылка). »

Открывается. Именно так выглядят вложения в web-интерфейсе мобильной версии почты Mail.RU.

на почту пришло то что на скрине. »

Всё правильно. Почему web-интерфейс мобильной версии почты Mail.RU неправильно понимает юникод в теле сообщения — не могу сказать. В обычном клиенте Mozilla Thunderbird — всё нормально:

Скрытый текст

какие программы еще надо установить? »

Коль работает — то никакие.

как настроить периодичность в полчаса? »

Попробуйте использовать Планировщик заданий.

[v79italya]

Открывается »

я скачал этот пнг. размер 1 кб. может, скриншот как то по другому делать?

использовать Планировщик заданий »

лучше опять же макросом в Excel задам периодичность.

Iska, вопрос не по теме. Вы пишите в html, css, js, php?

[Iska]

я скачал этот пнг. размер 1 кб. может, скриншот как то по другому делать? »

Хмм. Да, что-то я не подумал. 1 Кб явно маловато будет. Добавьте сразу после:

Код:

$oBitmap.Save($oMemoryStream, [System.Drawing.Imaging.ImageFormat]::Png)

тупо запись в конкретный файл (путь Ваш будет, конечно):

Код:

$oBitmap.Save('C:\Мои проекты\0279\0001.png')

и посмотрите, что там будет.

лучше опять же макросом в Excel задам периодичность. »

Не вижу в этом смысла.

Вы пишите в html, css »

Да.

js, php? »

Нет.

[v79italya]

что там будет »

пусто и на почту опять килобайтный .png пришел
так сделал и папку abcabc создал

HTML код:

$oMemoryStream = [System.IO.MemoryStream]::new()
$oBitmap.Save($oMemoryStream, [System.Drawing.Imaging.ImageFormat]::Png)
$oBitmap.Save('C:\abcabc\0001.png')