So legen Sie ein Echtzeitfoto der Erde als Desktop-Hintergrund fest

Ich erhalte das gleiche Ergebnis. Können Sie uns eine detailliertere Beschreibung geben, wie Sie das Problem behoben haben? PowerShell im Feld Programm / Skript? Wo ist das genau? und wo befindet sich der PS-Skriptordner usw. Vielen Dank

Super, das ist gut zu wissen. Vielen Dank, Dan. :)

Hey Kumpel, ich bekomme eine schwarze Tapete. irgendeine Lösung?

ts = New-TimeSpan -Hours -2 -Minutes -30 # Anzahl der Stunden und Minuten, die zum Datum addiert / subtrahiert werden sollen. Passen Sie dies an, um Ihr Systemdatum auf ungefähr GMT zu verschieben (glaube ich?)
$ now = ((Get-Date -Second 00) + $ ts)
$ now = $ now. AddMinutes (- ($ now.minute% 10))

$ width = 550
$ level = "4d" #Level kann 4d, 8d, 16d, 20d sein
$ numblocks = 4 #dies entspricht anscheinend direkt dem Level, behalte dies genauso wie Level ohne das 'd'
$ time = $ now. ToString ("HHmmss")
$ Jahr = $ jetzt. ToString ("JJJJ")
$ month = $ now. ToString ("MM")
$ day = $ now. ToString ("dd")

#Erstellen Sie den Ordner Meine Bilder \ Himawari \, falls er nicht vorhanden ist

#Der Dateiname, der gespeichert wird:
#Unkommentieren Sie dies, damit sich die Dateien im Verzeichnis ansammeln:
# $ outfile = "$ Jahr $ Monat $ Tag" + "_" + $ Zeit + ".jpg"
# Verwenden Sie diese Option, damit das Skript nur die neueste Datei speichert:
$ outfile = "latest.jpg"

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

[void] [Reflection.assembly]:: LoadWithPartialName ("System. Windows. Formen")
[void] [Reflection.assembly]:: LoadWithPartialName ("System. Zeichnung")

$ image = System für neue Objekte. Zeichnung. Bitmap (($ width * $ numblocks), ($ width * $ numblocks))
$ graphics = [System. Zeichnung. Grafik]:: FromImage ($ image)
$ Grafiken. Löschen ([System. Zeichnung. Farbe schwarz)

für ($ y = 0; $ y -lt $ numblocks; $ y ++)
{
für ($ x = 0; $ x -lt $ numblocks; $ x ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Write-Output "Herunterladen: $ thisurl"

Versuchen
{

$ request = [System. Netz. WebRequest]:: create ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ Antwort. Statuscode
If ($ HTTP_Status -eq 200)
{
$ imgblock = [System. Zeichnung. Bild]:: fromStream ($ response.getResponseStream ())
$ Grafiken. DrawImage ($ imgblock, ($ x * $ width), ($ y * $ width), $ width, $ width)
$ imgblock.dispose ()
$ Antwort. Schließen()
}
}
Fang
{
$ ErrorMessage = $ _. Ausnahme. Botschaft
$ FailedItem = $ _. Ausnahme. Artikelname
Schreibausgabe "Fehlgeschlagen! $ ErrorMessage mit $ FailedItem "
}
}
}

$ QualityEncoder = [System. Zeichnung. Bildgebung. Encoder]:: Qualität
$ encoderParams = System für neue Objekte. Zeichnung. Bildgebung. EncoderParameters (1)

# Stellen Sie hier die JPEG-Qualitätsstufe ein: 0 - 100 (einschließlich Grenzen)
$ encoderParams. Param [0] = New-Object System. Zeichnung. Bildgebung. EncoderParameter ($ QualityEncoder, 90)
$ jpegCodecInfo = [System. Zeichnung. Bildgebung. ImageCodecInfo]:: GetImageEncoders () | Dabei gilt: {$ _. MimeType -eq 'image / jpeg'}

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

Schreibausgabe "Hintergrundbild einstellen ..."
Set-ItemProperty -path "HKCU: Systemsteuerung \ Desktop" -name Hintergrundbildwert ($ outpath + $ outfile)
Set-ItemProperty-Pfad "HKCU: Systemsteuerung \ Desktop" -Name WallpaperStyle-Wert 6
Set-ItemProperty -path "HKCU: Systemsteuerung \ Desktop" -name TileWallpaper -Wert 0
Set-ItemProperty 'HKCU: \ Systemsteuerung \ Farben' -name Hintergrund -Wert "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
mit System. Laufzeit. InteropServices;
Hintergrundbild der öffentlichen Klasse
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Auto)]
private static extern int SystemParametersInfo (int uAction, int uParam, Zeichenfolge lpvParam, int fuWinIni);
public static void SetWallpaper (Zeichenfolgenpfad)
{
SystemParametersInfo (SetDesktopWallpaper, 0, Pfad, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[wallpaper]:: SetWallpaper (($ outpath + $ outfile))

Schreibausgabe "Fertig"