Kā iestatīt reāllaika Zemes fotoattēlu kā darbvirsmas fonu

Es saņemu tādu pašu rezultātu. Vai jūs varat mums iesācējiem sniegt sīkāku aprakstu par to, kā jūs to labojāt? PowerShell laukā Programma / skripts? kur tas ir tieši? un kur atrodas PS skriptu mape utt. Paldies

Satriecoši, tas ir labi zināt. Liels paldies, Dan. :)

Hei mate, es saņemu melnas tapetes. kāds risinājums?

ts = New-TimeSpan -Hours -2 -Minutes -30 # Stundu un minūšu skaits, lai pievienotu / atņemtu datumu. Pielāgojiet to, lai kompensētu sistēmas datumu ar aptuveni GMT (es domāju?)
$ tagad = ((saņemšanas datums - otrais 00) + $ ts)
$ tagad = $ tagad. AddMinutes (- ($ tagad.minūte% 10))

USD platums = 550
$ līmenis = "4d" # Līmenis var būt 4d, 8d, 16d, 20d
$ numblocks = 4 # tas acīmredzot tieši atbilst līmenim, saglabājiet to tieši tāpat kā līmeni bez “d”
$ laiks = $ tagad. ToString ("HHmmss")
$ gads = $ tagad. Virziens ("gggg")
mēnesis $ = $ tagad. Virkne ("MM")
$ diena = $ tagad. ToString ("dd")

# Izveidojiet mapi Mani attēli \ Himawari \, ja tāda vēl nav
$ outpath = [Vide]:: GetFolderPath ("MyPictures") + "\ Himawari \"

#Faila nosaukums, kas tiks saglabāts:
#Pievienojiet to, lai faili tiktu uzkrāti direktorijā:
# $ outfile = "$ gads $ mēnesis $ diena" + "_" + $ laiks + ".jpg"
#Lietojiet to, lai skripts saglabātu tikai jaunāko failu:
$ outfile = "latest.jpg"

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

[spēkā neesošs] [refleksija. montāža]:: LoadWithPartialName ("Sistēma. Windows. Veidlapas ")
[spēkā neesošs] [refleksija. montāža]:: LoadWithPartialName ("Sistēma. Zīmējums ")

$ image = jauna objekta sistēma. Zīmējums. Bitmap (($ platums * $ numblocks), ($ platums * $ numblocks))
$ graphics = [Sistēma. Zīmējums. Grafika]:: FromImage ($ attēls)
$ grafika. Notīrīt ([Sistēma. Zīmējums. Krāsa]:: melna)

par ($ y = 0; $ y -lt $ numblocks; y ++ USD)
{
par ($ x = 0; $ x -lt $ numblocks; x ++ USD)
{
$ thisurl = $ url + "_" + [virkne] $ x + "_" + [virkne] $ y + ".png"
Rakstiskā izvade "Lejupielāde: $ thisurl"

mēģiniet
{

$ pieprasījums = [sistēma. Tīkls. WebRequest]:: izveidot ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ atbilde. StatusCode
Ja ($ HTTP_Status -eq 200)
{
$ imgblock = [Sistēma. Zīmējums. Attēls]:: fromStream ($ response.getResponseStream ())
$ grafika. DrawImage ($ imgblock, ($ x * $ platums), ($ y * $ platums), $ platums, $ platums)
$ imgblock.dispose ()
$ atbilde. Aizvērt ()
}
}
Noķer
{
$ ErrorMessage = $ _. Izņēmums. Ziņa
$ FailedItem = $ _. Izņēmums. Priekšmeta nosaukums
Izrakstīšana "Neizdevās! $ ErrorMessage ar $ FailedItem "
}
}
}

$ qualityEncoder = [Sistēma. Zīmējums. Attēlveidošana. Kodētājs]: Kvalitāte
$ encoderParams = Jauna objekta sistēma. Zīmējums. Attēlveidošana. EncoderParameters (1)

# Šeit iestatiet JPEG kvalitātes līmeni: 0–100 (ieskaitot robežas)
$ encoderParams. Param [0] = jauna objekta sistēma. Zīmējums. Attēlveidošana. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Sistēma. Zīmējums. Attēlveidošana. ImageCodecInfo]:: GetImageEncoders () | kur {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ attēls. Apglabāt ()

Rakstīšanas rezultāts "Fona iestatīšana ..."
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -name Wallpaper -value ($ outpath + $ outfile)
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -name WallpaperStyle -vērtība 6
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -name TileWallpaper -vērtība 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -name Background -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
izmantojot sistēmu. Runtime. Starppakalpojumi;
sabiedriskās klases fona attēli
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet). Automātiski)]
privāts statisks ārējs int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
public static void SetWallpaper (virknes ceļš)
{
SystemParametersInfo (SetDesktopWallpaper, 0, ceļš, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[fona bilde]:: SetWallpaper (($ outpath + $ outfile))

Rakstīšanas izvade "Gatavs"