Slik setter du et sanntidsfoto av jorden som din bakgrunn

Jeg får samme resultat, kan du gi oss en mer detaljert beskrivelse av hvordan du fikset det, for oss nybegynnere. PowerShell i Program / skriptfeltet? hvor er det akkurat? og hvor ligger PS-skriptmappen osv. Takk

Kjempebra, det er godt å vite. Tusen takk, Dan. :)

Hei kompis, jeg får svart bakgrunn. noen løsning?

ts = New-TimeSpan -Hours -2 -Inutes -30 # Antall timer og minutter å legge til / trekke fra til datoen. Juster dette for å utligne systemdatoen til omtrent GMT (tror jeg?)
$ nå = ((Få dato-sekund 00) + $ ts)
$ nå = $ nå. AddMinutes (- ($ now.minute% 10))

$ bredde = 550
$ level = "4d" # Nivå kan være 4d, 8d, 16d, 20d
$ numblocks = 4 # dette tilsynelatende tilsvarer direkte nivået, hold dette nøyaktig det samme som nivået uten 'd'
$ time = $ nå. ToString ( "HHmmss")
$ år = $ nå. ToString ( "åååå")
$ måned = $ nå. ToString ( "MM")
$ dag = $ nå. ToString ( "dd")

# Lag mappen Mine bilder \ Himawari \ hvis den ikke eksisterer
$ outpath = [Miljø]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path-path $ outpath))
{
[void] (New-Item -ItemType-katalog-path $ outpath)
}

# Filnavnet som blir lagret:
#Kommenter dette for at filene skal samles i katalogen:
# $ outfile = "$ år $ måned $ dag" + "_" + $ tid + ".jpg"
# Bruk dette for å ha skriptet bare lagre den siste filen:
$ outfile = "last.jpg"

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

[Tomrommet] [reflection.assembly]:: LoadWithPartialName ( "System. Windows. Skjemaer ")
[Tomrommet] [reflection.assembly]:: LoadWithPartialName ( "System. Tegning")

$ image = Nytt objekt-system. Tegning. Bitmap (($ bredde * $ numblocks), ($ bredde * $ numblocks))
$ grafikk = [System. Tegning. Bilde]:: FromImage ($ bilde)
$ grafikk. Clear ([System. Tegning. Farge svart)

for ($ y = 0; $ y -lt $ numblocks; $ Y ++)
{
for ($ x = 0; $ x -lt $ numblocks; $ X ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Skrivemelding "Nedlasting: $ thisurl"

prøve
{

$ forespørsel = [System. Nett. WebRequest]:: skape ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ svar. Status
Hvis ($ HTTP_Status - lik 200)
{
$ imgblock = [System. Tegning. Bilde]:: fromStream ($ response.getResponseStream ())
$ grafikk. DrawImage ($ imgblock, ($ x * $ bredde), ($ y * $ bredde), $ bredde, $ bredde)
$ Imgblock.dispose ()
$ Respons. Lukk()
}
}
Å fange
{
$ ErrorMessage = $ _. Unntak. Beskjed
$ FailedItem = $ _. Unntak. Gjenstandsnavn
Skrive-output "mislyktes! $ ErrorMessage with $ FailedItem "
}
}
}

$ qualityEncoder = [System. Tegning. Imaging. Encoder]:: Kvalitet
$ encoderParams = Nytt objekt-system. Tegning. Imaging. EncoderParameters (1)

# Still inn JPEG-kvalitetsnivå her: 0 - 100 (inklusive grenser)
$ encoderParams. Param [0] = System med nytt objekt. Tegning. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [System. Tegning. Imaging. ImageCodecInfo]:: GetImageEncoders () | hvor {$ _. MimeType -eq 'image / jpeg'}

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

Skrivemelding "Stille bakgrunn ..."
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -navn bakgrunnsbilde-verdi ($ outpath + $ outfile)
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -navn WallpaperStyle -value 6
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -navn TileWallpaper-verdi 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -navn bakgrunn-verdi "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
bruker System. Runtime. InteropServices;
tapet i offentlig klasse
{
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, string lpvParam, int fuWinIni);
offentlig statisk tomrom SetWallpaper (strengbane)
{
SystemParametersInfo (SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type-TypeDefinition $ setwallpapersource
[bakgrunnsbilde]:: SetWallpaper (($ outpath + $ outfile))

Skrivemåte "Ferdig"