Sådan indstiller du et realtidsfoto af jorden som din skrivebordsbaggrund

Jeg får det samme resultat, kan du give os en mere detaljeret beskrivelse af, hvordan du fikseret det, for os nybegyndere. PowerShell i feltet Program / script? hvor er det nøjagtigt? og hvor er PS-scripts-mappen placeret osv. tak

Fantastisk, det er godt at vide. Mange tak Dan. :)

Hej mate, jeg får sort tapet. nogen løsning?

ts = New-TimeSpan-Timer -2 -Input -30 # Antal timer og minutter for at tilføje / trække fra til datoen. Juster dette for at kompensere din systemdato til omkring GMT (tror jeg?)
$ nu = ((Get-Date-Sekund 00) + $ ts)
$ nu = $ nu. AddMinutes (- ($ now.minute% 10))

$ bredde = 550
$ niveau = "4d" # Niveau kan være 4d, 8d, 16d, 20d
$ numblocks = 4 # Dette svarer tilsyneladende direkte med niveauet, hold dette nøjagtigt det samme som niveau uden 'd'
$ time = $ nu. ToString ( "TTMMSS")
$ år = $ nu. ToString ( "yyyy")
$ måned = $ nu. ToString ( "MM")
$ dag = $ nu. ToString ( "dd")

# Opret mappen Mine billeder \ Himawari \, hvis den ikke findes
$ outpath = [Miljø]:: GetFolderPath ("MyPictures") + "\ Himawari \"

# Filnavnet, der gemmes:
#Kommentér dette for at få filerne akkumuleret i biblioteket:
# $ outfile = "$ år $ måned $ dag" + "_" + $ tid + ".jpg"
# Brug dette til at have scriptet bare gemme den nyeste fil:
$ outfile = "latest.jpg"

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

[Ugyldig] [reflection.assembly]:: LoadWithPartialName ( "System. Windows. Forms ")
[Ugyldig] [reflection.assembly]:: LoadWithPartialName ( "System. Tegning")

$ image = System med nyt objekt. Tegning. Bitmap (($ bredde * $ numblocks), ($ bredde * $ numblocks))
$ grafik = [System. Tegning. Grafik]:: FromImage ($ image)
$ grafik. Clear ([System. Tegning. Farve]:: Sort)

for ($ y = 0; $ y -lt $ numblocks; $ Y ++)
{
for ($ x = 0; $ x -lt $ numblocks; $ X ++)
{
$ thisurl = $ url + "_" + [streng] $ x + "_" + [streng] $ y + ".png"
Skriv-output "Download: $ thisurl"

prøve
{

$ anmodning = [System. Net. WebRequest]:: skabe ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ svar. Statuskoden
Hvis ($ HTTP_Status -ækv 200)
{
$ imgblock = [System. Tegning. Billede]:: fromStream ($ response.getResponseStream ())
$ grafik. DrawImage ($ imgblock, ($ x * $ bredde), ($ y * $ bredde), $ bredde, $ bredde)
$ Imgblock.dispose ()
$ Respons. Tæt()
}
}
Fangst
{
$ ErrorMessage = $ _. Undtagelse. Besked
$ FailedItem = $ _. Undtagelse. Tingens navn
Skriv-output "mislykkedes! $ ErrorMessage with $ FailedItem "
}
}
}

$ qualityEncoder = [System. Tegning. Imaging. Encoder]:: Kvalitet
$ encoderParams = System med nyt objekt. Tegning. Imaging. EncoderParameters (1)

# Indstil JPEG-kvalitetsniveau her: 0 - 100 (inklusive grænser)
$ encoderParams. Param [0] = System med nyt objekt. Tegning. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [System. Tegning. Imaging. ImageCodecInfo]:: GetImageEncoders () | hvor {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Billedet. Kassér ()

Skriv-output "Indstilling af tapet ..."
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -navn tapet -værdi ($ outpath + $ outfile)
Set-ItemProperty-path "HKCU: Control Panel \ Desktop" -navn WallpaperStyle -value 6
Set-ItemProperty-path "HKCU: Control Panel \ Desktop" -navn TileWallpaper -værdi 0
Set-Item Eiendom 'HKCU: \ Kontrolpanel \ Farver' -navn baggrund -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
ved hjælp af System. Runtime. InteropServices;
offentlig klasse tapet
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Auto)]
privat statisk ekstern int SystemParametersInfo (int uAction, int uParam, streng lpvParam, int fuWinIni);
offentlig statisk tomrum SetWallpaper (strengsti)
{
SystemParametersInfo (SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange);
}
}
"@
Tilføj-Type -TypeDefinition $ setwallpapersource
[tapet]:: SetWallpaper (($ outpath + $ outfile))

Skriv-output "Udført"