я получаю тот же результат, можете ли вы дать нам более подробное описание того, как вы это исправили, для нас, новичков. PowerShell в поле Программа / скрипт? где это точно? и где находится папка PS scripts Спасибо
Здорово, это приятно знать. Большое спасибо, Дэн. :)
Эй, приятель, я получаю черные обои. любое решение?
ts = New-TimeSpan -Hours -2 -Minutes -30 # Количество часов и минут для добавления / вычитания даты. Отрегулируйте это, чтобы сместить вашу системную дату примерно по Гринвичу (я думаю?)
$ сейчас = ((Get-Date -Second 00) + $ ts)
$ сейчас = $ сейчас. AddMinutes (- ($ now.minute% 10))
ширина = 550
$ level = "4d" # Уровень может быть 4d, 8d, 16d, 20d
$ numblocks = 4 # это, по-видимому, напрямую связано с уровнем, оставьте его точно таким же, как уровень без 'd'
$ time = $ сейчас. ToString ( "HHMMSS")
$ year = $ сейчас. ToString ( "гггг")
$ month = $ сейчас. ToString ( "ММ")
$ day = $ сейчас. ToString ( "дд")
# Создайте папку My Pictures \ Himawari \, если она не существует
$ outpath = [Environment]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path -Path $ outpath))
{
[void] (Каталог New-Item -ItemType -Path $ outpath)
}
# Имя файла, которое будет сохранено:
# Добавьте это, чтобы файлы накапливались в каталоге:
# $ outfile = "$ year $ month $ day" + "_" + $ time + ".jpg"
# Используйте это, чтобы скрипт сохранял только самый последний файл:
$ outfile = "latest.jpg"
$ url = " http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$year/$month/$day/$time"
[Пустота] [reflection.assembly]:: LoadWithPartialName ( "System. Окна. Формы ")
[Пустота] [reflection.assembly]:: LoadWithPartialName ( "System. Рисование")
$ image = Система новых объектов. Рисунок. Растровое изображение (($ width * $ numblocks), ($ width * $ numblocks))
$ graphics = [Система. Рисунок. Графика]:: FromImage ($ изображения)
$ графика. Clear ([System. Рисунок. Черный цвет)
для ($ y = 0; $ y -lt $ numblocks; $ У ++)
{
для ($ х = 0; $ x -lt $ numblocks; $ Х ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Запись-вывод "Загрузка: $ thisurl"
пытаться
{
$ request = [Система. Сеть. WebRequest]:: создать ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ response. StatusCode
Если ($ HTTP_Status -eq 200)
{
$ imgblock = [Система. Рисунок. Image]:: fromStream ($ response.getResponseStream ())
$ графика. DrawImage ($ imgblock, ($ x * $ width), ($ y * $ width), $ width, $ width)
$ Imgblock.dispose ()
$ Ответ. Закрыть()
}
}
Ловить
{
$ ErrorMessage = $ _. Исключение. Сообщение
$ FailedItem = $ _. Исключение. Название предмета
Запись-вывод "Ошибка! $ ErrorMessage с $ FailedItem "
}
}
}
$ qualityEncoder = [Система. Рисунок. Обработки изображений. Кодер]:: Качество
$ encoderParams = Система нового объекта. Рисунок. Обработки изображений. EncoderParameters (1)
# Установите уровень качества JPEG здесь: 0 - 100 (включительно)
$ encoderParams. Param [0] = Система нового объекта. Рисунок. Обработки изображений. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Система. Рисунок. Обработки изображений. ImageCodecInfo]:: GetImageEncoders () | где {$ _. MimeType -eq 'image / jpeg'}
$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Изображения. Dispose ()
Запись-вывод "Установка обоев ..."
Set-ItemProperty -path "HKCU: Панель управления \ Рабочий стол" -name Обои -value
Set-ItemProperty -path "HKCU: Панель управления \ Рабочий стол" -имя WallpaperStyle -значение 6
Set-ItemProperty -path "HKCU: Панель управления \ Рабочий стол" -name TileWallpaper -value 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -name Background -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters
$ setwallpapersource = @ "
используя систему. Продолжительность. InteropServices;
обои общественного класса
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Авто)]
приватный статический extern int SystemParametersInfo (int uAction, int uParam, строка lpvParam, int fuWinIni);
общедоступная статическая пустота SetWallpaper (путь строки)
{
SystemParametersInfo (SetDesktopWallpaper, 0, путь, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[обои]:: SetWallpaper (($ outpath + $ outfile))
Запись-вывод "Готово"
