Добивам исти резултат, да ли можете да нам дате детаљнији опис како сте то поправили, за нас новакиње. ПоверСхелл у пољу програма / скрипте? где је то тачно? и где се налази директоријум ПС скрипти итд. Хвала

Супер, то је добро знати. Хвала пуно, Дан. :)

Хеј друже, добивам црне тапете. било какво решење?

тс = Нев-ТимеСпан -Хоурс -2-минуте -30 # Број сати и минута за додавање / одузимање датуму. Прилагодите то тако да датум вашег система преместите на око ГМТ (мислим?)
$ нов = ((Датум-датум-секунда 00) + $ тс)
$ нов = $ нов. АддМинутес (- ($ нов.минуте% 10))

$ видтх = 550
$ левел = "4д" # Ниво може бити 4д, 8д, 16д, 20д
$ нумблоцкс = 4 #је очигледно директно одговара нивоу, задржите ово потпуно исто као ниво без 'д'
$ тиме = $ сада. ТоСтринг ("ХХммсс")
$ година = $ сада. ТоСтринг ("гггг")
$ месец = $ сада. ТоСтринг ("ММ")
$ даи = $ сада. ТоСтринг ("дд")

# Креирајте фасциклу Моје слике \ Химавари \ ако она не постоји
$ оутпатх = [Околина]:: ГетФолдерПатх ("МиПицтурес") + "\ Химавари \"
иф (! (Тест-Патх-Патх $ оутпатх))
{
[воид] (Нова ставка -ИтемТипе директориј -Патх $ оутпатх)
}

# Назив датотеке која ће бити сачувана:
#Коментирајте ово тако да се датотеке сакупљају у директоријуму:
# $ оутфиле = "$ година $ месец $ дан" + "_" + $ време + ".јпг"
#Користите ово да бисте скрипту сачували само најновију датотеку:
$ оутфиле = "латест.јпг"

$ урл = " http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$year/$month/$day/$time"

[воид] [рефлексија.састављање]:: ЛоадВитхПартиалНаме ("Систем. Виндовс. Обрасци ")
[воид] [рефлексија.састављање]:: ЛоадВитхПартиалНаме ("Систем. Цртање ")

$ имаге = Нови објектни систем. Цртање. Битмап (($ видтх * $ нумблоцкс), ($ видтх * $ нумблоцкс))
$ грапхицс = [Систем. Цртање. Графика]:: ФромИмаге ($ имаге)
$ грапхицс. Јасно ([Систем. Цртање. Боја Црна)

за ($ и = 0; $ и -лт $ нумблоцкс; $ и ++)
{
за ($ к = 0; $ к -лт $ нумблоцкс; $ к ++)
{
$ тхисурл = $ урл + "_" + [Стринг] $ к + "_" + [Стринг] $ и + ".пнг"
Писање резултата "Преузимање: $ тхисурл"

покушати
{

$ рекуест = [Систем. Нето. ВебРекуест]:: цреате ($ тхисурл)
$ респонсе = $ рекуест.гетРеспонсе ()
$ ХТТП_Статус = [инт] $ одговор. СтатусЦоде
Ако ($ ХТТП_Статус -ек 200)
{
$ имгблоцк = [Систем. Цртање. Слика]:: фромСтреам ($ респонсе.гетРеспонсеСтреам ())
$ грапхицс. ДравИмаге ($ имгблоцк, ($ к * $ ширина), ($ и * $ ширина), $ ширина, $ ширина)
$ имгблоцк.диспосе ()
$ одговор. Близу()
}
}
Улов
{
$ ЕррорМессаге = $ _. Изузетак. Порука
$ ФаиледИтем = $ _. Изузетак. Назив производа
Писање резултата "Није успјело! $ ЕррорМессаге са $ ФаиледИтем "
}
}
}

$ куалитиЕнцодер = [Систем. Цртање. Имагинг. Енцодер]:: Квалитет
$ енцодерПарамс = Систем нових предмета. Цртање. Имагинг. ЕнцодерПараметерс (1)

# Подесите ниво квалитета ЈПЕГ овде: 0 - 100 (укључујући границе)
$ енцодерПарамс. Парам [0] = Нови објектни систем. Цртање. Имагинг. ЕнцодерПараметер ($ куалитиЕнцодер, 90)
$ јпегЦодецИнфо = [Систем. Цртање. Имагинг. ИмагеЦодецИнфо]:: ГетИмагеЕнцодерс () | где је {$ _. МимеТипе -ек 'имаге / јпег'}

$ имаге.саве (($ оутпатх + $ оутфиле), $ јпегЦодецИнфо, $ енцодерПарамс)
$ имаге. Диспосе ()

Отписивање "Постављање позадина ..."
Сет-ИтемПроперти -патх "ХКЦУ: Цонтрол Панел \ Десктоп" -назадна позадина -валика ($ оутпатх + $ оутфиле)
Сет-ИтемПроперти -патх "ХКЦУ: Цонтрол Панел \ Десктоп" -наме ВаллпаперСтиле -валуе 6
Сет-ИтемПроперти -атх "ХКЦУ: Цонтрол Панел \ Десктоп" -наме ТилеВаллпапер -валуе 0
Сет-ИтемПроперти 'ХКЦУ: \ Цонтрол Панел \ Цолорс' -наме Бацкгроунд -Валуе "0 0 0"
# рундлл32.еке усер32.длл, УпдатеПерУсерСистемПараметерс

$ сетваллпаперсоурце = @ "
користећи Систем. Рунтиме. ИнтеропСервицес;
позадина јавне класе
{
публиц цонст инт СетДесктопВаллпапер = 20;
јавни цонст инт УпдатеИниФиле = 0к01;
јавни цонст инт СендВинИниЦханге = 0к02;
[ДллИмпорт ("усер32.длл", СетЛастЕррор = труе, ЦхарСет = ЦхарСет Ауто)]
приватни статички екстерни инт СистемПараметерсИнфо (инт уАцтион, инт уПарам, стринг лпвПарам, инт фуВинИни);
јавна статичка празнина СетВаллпапер (стаза низа)
{
СистемПараметерсИнфо (СетДесктопВаллпапер, 0, путања, УпдатеИниФиле | СендВинИниЦханге);
}
}
"@
Адд-Типе -ТипеДефинитион $ сетваллпаперсоурце
[позадина]:: СетВаллпапер (($ оутпатх + $ оутфиле))

Отписивање "Готово"