Hoe u een realtime foto van de aarde instelt als uw bureaubladachtergrond

Ik krijg hetzelfde resultaat, kun je ons een meer gedetailleerde beschrijving geven van hoe je het hebt opgelost, voor ons beginners. PowerShell in het veld Programma / script? waar is dat precies? en waar is de map met PS-scripts enz. bedankt

Geweldig, dat is fijn om te weten. Heel erg bedankt, Dan. :)

Hey maat, ik krijg zwart behang. elke oplossing?

ts = New-TimeSpan -Hours -2 -minutes -30 #Aantal uren en minuten om aan de datum toe te voegen / af te trekken. Pas dit aan om uw systeemdatum te compenseren tot ongeveer GMT (denk ik?)
$ now = ((Get-Date-Second 00) + $ ts)
$ now = $ now. AddMinutes (- ($ now.minute% 10))

$ width = 550
$ level = "4d" #Level kan 4d, 8d, 16d, 20d zijn
$ numblocks = 4 # dit komt blijkbaar rechtstreeks overeen met het niveau, houd dit precies hetzelfde als niveau zonder de 'd'
$ time = $ nu. ToString ("HHmmss")
$ year = $ nu. ToString ("jjjj")
$ maand = $ nu. ToString ("MM")
$ day = $ nu. ToString ("dd")

#Maak de map Mijn afbeeldingen \ Himawari \ als deze niet bestaat
$ outpath = [Environment]:: GetFolderPath ("MyPictures") + "\ Himawari \"

#De bestandsnaam die wordt opgeslagen:
# Becommentarieer dit om de bestanden in de directory op te stapelen:
# $ outfile = "$ jaar $ maand $ dag" + "_" + $ tijd + ".jpg"
# Gebruik dit om het script alleen het nieuwste bestand te laten opslaan:
$ outfile = "latest.jpg"

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

[void] [reflection.assembly]:: LoadWithPartialName ("Systeem. Ramen. Formulieren ')
[void] [reflection.assembly]:: LoadWithPartialName ("Systeem. Tekening")

$ image = New-Object System. Tekening. Bitmap (($ width * $ numblocks), ($ width * $ numblocks))
$ graphics = [Systeem. Tekening. Graphics]:: FromImage ($ afbeelding)
$ afbeeldingen. Wissen ([System. Tekening. De kleur zwart)

voor ($ y = 0; $ y -lt $ numblocks; $ y ++)
{
voor ($ x = 0; $ x -lt $ numblocks; $ x ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Schrijfuitvoer "Downloaden: $ thisurl"

proberen
{

$ request = [Systeem. Netto. WebRequest]:: create ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ antwoord. Status code
If ($ HTTP_Status -eq 200)
{
$ imgblock = [Systeem. Tekening. Afbeelding]:: fromStream ($ response.getResponseStream ())
$ afbeeldingen. DrawImage ($ imgblock, ($ x * $ width), ($ y * $ width), $ width, $ width)
$ imgblock.dispose ()
$ reactie. Dichtbij()
}
}
Vangst
{
$ ErrorMessage = $ _. Uitzondering. Bericht
$ FailedItem = $ _. Uitzondering. Itemnaam
Write-Output "Mislukt! $ ErrorMessage met $ FailedItem "
}
}
}

$ qualityEncoder = [Systeem. Tekening. In beeld brengen. Encoder]:: Kwaliteit
$ encoderParams = Nieuw-objectsysteem. Tekening. In beeld brengen. EncoderParameters (1)

# Stel hier het JPEG-kwaliteitsniveau in: 0 - 100 (inclusief grenzen)
$ encoderParams. Param [0] = systeem met nieuw object. Tekening. In beeld brengen. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Systeem. Tekening. In beeld brengen. ImageCodecInfo]:: GetImageEncoders () | waar {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ afbeelding. Wegwerpen ()

Schrijfuitgang "Achtergrond instellen ..."
Set-ItemProperty -pad "HKCU: Configuratiescherm \ Bureaublad" -naam Achtergrond-waarde ($ outpath + $ outfile)
Set-ItemProperty -pad "HKCU: Control Panel \ Desktop" -naam WallpaperStyle -waarde 6
Set-ItemProperty -pad "HKCU: Configuratiescherm \ Desktop" -naam TileWallpaper -waarde 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -naam Achtergrond -Waarde "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
systeem gebruiken. Looptijd. InteropServices;
openbare klasse wallpaper
{
openbare const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Auto)]
privé statisch extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
openbare statische leegte SetWallpaper (stringpad)
{
SystemParametersInfo (SetDesktopWallpaper, 0, pad, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[wallpaper]:: SetWallpaper (($ outpath + $ outfile))

Schrijfuitvoer "Gereed"