Kaip nustatyti realaus laiko Žemės nuotrauką kaip darbalaukio foną

Gaunu tą patį rezultatą. Ar galite mums pateikti naujesnį aprašymą, kaip jūs jį sutvarkėte? „PowerShell“ laukelyje Programa / scenarijus? ar tai tiksliai? ir kur yra PS scenarijų aplankas ir tt dėkoju

Nuostabu, tai gera žinoti. Labai ačiū, Danai. :)

Sveiki, aš gaunu juodus tapetus bet koks sprendimas?

ts = New-TimeSpan -Hours -2 -Minutes -30 #valų ir minučių skaičius, kuriuos reikia pridėti / atimti į datą. Pakoreguokite tai, norėdami kompensuoti sistemos datą maždaug pagal GMT (manau?)
$ dabar = ((gauti datą – antrą antrą savaitę) + $ ts)
$ dabar = $ dabar. „AddMinutes“ (- ($ dabar.minutė% 10))

USD plotis = 550
$ lygis = "4d" #Lyvis gali būti 4d, 8d, 16d, 20d
$ numblocks = 4 #šitas, matyt, tiesiogiai atitinka lygį, laikykite jį lygiai tokį patį kaip ir lygis be „d“
$ laikas = $ dabar. „ToString“ („HHmmss“)
$ metai = $ dabar. „String“ („yyyy“)
$ mėnuo = $ dabar. „ToString“ („MM“)
$ diena = $ dabar. „ToString“ („dd“)

#Sukurkite aplanką „Mano paveikslėliai \ Himawari“, jei jo nėra
$ outpath = [Aplinka]:: GetFolderPath ("MyPictures") + "\ Himawari \"

#Failo vardas, kuris bus išsaugotas:
#Papildykite tai, jei failai bus kaupiami kataloge:
# $ outfile = "$ metai $ mėnuo $ diena" + "_" + $ laikas + ".jpg"
#Naudokite tai, jei norite, kad scenarijus išsaugotų tik naujausią failą:
$ outfile = "latest.jpg"

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

[negalioja] [atspindys. surinkimas]:: LoadWithPartialName ("Sistema. „Windows“. Formos “)
[negalioja] [atspindys. surinkimas]:: LoadWithPartialName ("Sistema. Piešimas “)

$ image = naujo objekto sistema. Piešimas. „Bitmap“ (($ plotis * $ numerių blokai), ($ plotis * $ numerių blokai))
$ graphics = [Sistema. Piešimas. Grafika]:: „FromImage“ ($ vaizdas)
$ grafika. Išvalyti ([sistema. Piešimas. Spalva]:: juoda)

už (y y = 0; $ y -lt $ numblocks; y ++ USD)
{
už ($ x = 0; $ x -lt $ numblocks; x ++ USD)
{
$ thisurl = $ url + "_" + [eilutė] $ x + "_" + [eilutė] $ y + ".png"
Rašomasis išėjimas „Atsisiuntimas: $ thisurl“

bandyti
{

$ request = [Sistema. Neto. WebRequest]:: sukurti ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ atsakymas. StatusCode
Jei („HTTP_Status“ –eq 200 USD)
{
$ imgblock = [Sistema. Piešimas. Vaizdas]:: „fromStream“ ($ response.getResponseStream ())
$ grafika. „DrawImage“ ($ imgblock, ($ x * $ plotis), ($ y * $ plotis), $ plotis, $ plotis)
$ imgblock.dispose ()
$ atsakymas. Uždaryti()
}
}
Pagauk
{
$ ErrorMessage = $ _. Išimtis. Žinutė
$ FailedItem = $ _. Išimtis. Daikto pavadinimas
Rašymo išvestis „Nepavyko! „$ ErrorMessage with $ FailedItem“
}
}
}

$ qualityEncoder = [Sistema. Piešimas. Vaizduojamasis. Encoderis]: Kokybė
$ encoderParams = Naujo objekto sistema. Piešimas. Vaizduojamasis. „EncoderParameters“ (1)

# Čia nustatykite JPEG kokybės lygį: 0–100 (imtinai)
$ encoderParams. „Param“ [0] = naujo objekto sistema. Piešimas. Vaizduojamasis. „EncoderParameter“ ($ qualityEncoder, 90)
$ jpegCodecInfo = [Sistema. Piešimas. Vaizduojamasis. ImageCodecInfo]:: „GetImageEncoders“) | kur {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ atvaizdas. Išmeskite ()

Rašomasis išėjimas „Nustatomas fono paveikslėlis ...“
„Set-ItemProperty“ kelias „HKCU: Valdymo skydas \ Darbastalis“ -paveikslėlio pavadinimas -vertė ($ outpath + $ outfile)
„Set-ItemProperty“ kelias „HKCU: Valdymo skydas \ darbalaukis“ -pavadinimas „WallpaperStyle“-vertė 6
„Set-ItemProperty“ kelias „HKCU: Valdymo skydas \ Darbastalis“ -pavadinimas „TileWallpaper“-vertė 0
„HKCU: \ Valdymo skydas \ Spalvų“ vardo fonas -Vertė „0 0 0“ „Set-ItemProperty“
# rundll32.exe user32.dll, „UpdatePerUserSystemParameters“

$ setwallpapersource = @ "
naudojant sistemą. Klaida. Tarpusavio paslaugos;
viešosios klasės tapetai
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[„DllImport“ („user32.dll“, SetLastError = true, CharSet = CharSet). Automatinis)]
privatus statinis išorinis int „SystemParametersInfo“ (int uAction, int uParam, string lpvParam, int fuWinIni);
viešas statinis negaliojantis „SetWallpaper“ (eilutės kelias)
{
„SystemParametersInfo“ („SetDesktopWallpaper“, 0, kelias, „UpdateIniFile“ | „SendWinIniChange“);
}
}
"@
Pridėti tipą –TypeDefinition $ setwallpapers resursas
[tapetai]:: „SetWallpaper“ (($ outpath + $ outfile))

Rašymas-išvestis „Atlikta“