Hogyan állíthat be valós idejű Föld fotót az asztal háttereként

Ugyanazt az eredményt kapom, részletesebb leírást adhat nekünk a kezdő javításáról. PowerShell a Program / script mezőben? Pontosan ez? és hol található a PS szkriptek mappája stb. Kösz

Félelmetes, ez jó tudni. Nagyon köszönöm, Dan. :)

Hé haver, fekete háttérképet kapok. bármilyen megoldás?

ts = New-TimeSpan -Hours -2 -Minutes -30 # Órák és percek száma a dátum hozzáadásához / kivonásához. Állítsa be úgy, hogy a rendszer dátumát körülbelül GMT-re ellentételezze (azt hiszem?)
$ most = ((Get-Date-Második 00) + $ ts)
$ most = $ most. AddMinutes (- ($ now.minute% 10))

$ szélesség = 550
$ szint = "4d" # A szint lehet 4d, 8d, 16d, 20d
$ numblocks = 4 # ez nyilvánvalóan közvetlenül felel meg a szintnek, tartsa pontosan ugyanazt, mint a szint a 'd' nélkül
$ time = $ most. ToString ( "óóppmm")
$ év = $ most. ToString ( "nn")
$ hónap = $ most. ToString ( "MM")
$ nap = $ most. ToString ( "dd")

# Hozza létre a Saját képek \ Himawari \ mappát, ha még nem létezik
$ outpath = [Környezet]:: GetFolderPath ("MyPictures") + "\ Himawari \"

#A mentendő fájlnév:
#Tovább, ha a fájlok felhalmozódnak a könyvtárba:
# $ outfile = "$ év $ hónap $ nap" + "_" + $ idő + ".jpg"
# Használja ezt, ha a szkript csak a legújabb fájlt tárolja:
$ outfile = "latest.jpg"

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

[Void] [reflection.assembly]:: LoadWithPartialName ( "System. Ablakok. Forms ")
[Void] [reflection.assembly]:: LoadWithPartialName ( "System. Rajz")

$ image = Új objektum rendszer. Rajz. Bitmap (($ szélesség * $ számblokkok), ($ szélesség * $ számblokk))
$ graphics = [Rendszer. Rajz. Graphics]:: FromImage ($ image)
$ Grafika. Tiszta ([System. Rajz. Fekete szín)

for (y y = 0; $ y -lt $ számblokkok; $ Y ++)
{
for ($ x = 0; $ x -lt $ számblokkok; $ X ++)
{
$ thisurl = $ url + "_" + [karakterlánc] $ x + "_" + [karakterlánc] $ y + ".png"
Írás-output "Letöltés: $ thisurl"

próbáld ki
{

$ request = [Rendszer. Háló. WebRequest]:: create ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ válasz. statusCode
If ($ HTTP_Status -eq 200)
{
$ imgblock = [Rendszer. Rajz. Image]:: fromStream ($ response.getResponseStream ())
$ Grafika. DrawImage ($ imgblock, ($ x * $ szélesség), ($ y * $ szélesség), $ szélesség, $ szélesség)
$ Imgblock.dispose ()
$ Választ. Bezárás()
}
}
Fogás
{
$ ErrorMessage = $ _. Kivétel. Üzenet
$ FailedItem = $ _. Kivétel. Termék név
Írás-kimenet "Sikertelen! $ ErrorMessage a $ FailedItem segítségével "
}
}
}

$ qualityEncoder = [Rendszer. Rajz. Imaging. Encoder]:: Minőség
$ encoderParams = Új objektum rendszer. Rajz. Imaging. EncoderParameters (1)

# Itt állítsa be a JPEG minőségi szintet: 0–100 (beleértve a határokat)
$ EncoderParams. Param [0] = új objektumrendszer. Rajz. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Rendszer. Rajz. Imaging. ImageCodecInfo]:: GetImageEncoders () | ahol {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Képet. Eldob()

Írás-kimenet "Háttérkép beállítása ..."
Set-ItemProperty -path "HKCU: Vezérlőpult \ Asztal" -neve háttérkép -érték ($ outpath + $ outfile)
Set-ItemProperty -path "HKCU: Vezérlőpult \ Asztal" -név WallpaperStyle -érték 6
Set-ItemProperty -útvonal "HKCU: Vezérlőpult \ Asztal" -név TileWallpaper -érték 0
Set-ItemProperty 'HKCU: \ Vezérlőpult \ Színek' -név Háttér -Érérték "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
a System segítségével. Runtime. InteropServices;
nyilvános osztály háttérkép
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet). Auto)]
magán statikus külső int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
nyilvános statikus érvénytelen SetWallpaper (karakterlánc elérési út)
{
SystemParametersInfo (SetDesktopWallpaper, 0, elérési út, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[háttérkép]:: SetWallpaper (($ outpath + $ outfile))

Írási-output "kész"