Kuinka asettaa reaaliaikainen valokuva maasta työpöydän taustana

Saan saman tuloksen, voisitko antaa meille aloittelijoille yksityiskohtaisemman kuvan siitä, kuinka korjaat sen. PowerShell Program / script-kentässä? onko se tarkalleen? ja missä PS-skriptit-kansio sijaitsee jne. Kiitos

Mahtavaa, se on hyvä tietää. Kiitos paljon, Dan. :)

Hei kaveri saan mustan taustakuvan. mitään ratkaisua?

ts = New-TimeSpan -Tuntia -2-Minuutteja -30 # Tuntien ja minuuttien lukumäärä päivämäärän lisäämiseen / vähentämiseen. Säädä tämä siirtääksesi järjestelmän päivämäärän suunnilleen noin GMT (luulen?)
$ nyt = ((Get-Date -Toinen 00) + $ ts)
$ nyt = $ nyt. AddMinutes (- ($ nyt.minute% 10))

$ leveys = 550
$ level = "4d" #Taso voi olla 4d, 8d, 16d, 20d
$ numblocks = 4 # tämä ilmeisesti vastaa suoraan tasoa, pidä tämä täsmälleen sama kuin taso ilman 'd'
$ aika = $ nyt. ToString ( "HHMMSS")
$ vuosi = $ nyt. ToString ( "vvvv")
$ kuukausi = $ nyt. ToString ( "MM")
$ päivä = $ nyt. ToString ( "dd")

#Luo kansio Omat kuvat \ Himawari \, jos sitä ei ole
$ outpath = [Ympäristö]:: GetFolderPath ("MyPictures") + "\ Himawari \"

#Tallennettava tiedostonimi:
#Kommentoi tätä, jos haluat tiedostojen kerääntyvän hakemistoon:
# $ outfile = "$ vuosi $ kuukausi $ päivä" + "_" + $ aika + ".jpg"
#Käytä tätä, jos haluat, että skripti tallentaa vain uusimman tiedoston:
$ 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. Lomakkeet ")
[Void] [reflection.assembly]:: LoadWithPartialName ( "System. Piirustus")

$ image = Uusi objektijärjestelmä. Piirustus. Bittikartta (($ leveys * $ numblocks), ($ leveys * $ numblocks))
$ graphics = [Järjestelmä. Piirustus. Kuvat]:: FromImage ($ image)
$ Grafiikka. Clear ([System. Piirustus. Väri musta)

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

yrittää
{

$ request = [Järjestelmä. Netto. WebRequest]:: luoda ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ vastaus. StatusCode
Jos ($ HTTP_Status -eq 200)
{
$ imgblock = [Järjestelmä. Piirustus. Kuva]:: fromStream ($ response.getResponseStream ())
$ Grafiikka. DrawImage ($ imgblock, ($ x * $ leveys), ($ y * $ leveys), $ leveys, $ leveys)
$ Imgblock.dispose ()
$ Vastausta. Kiinni()
}
}
Saada kiinni
{
$ ErrorMessage = $ _. Poikkeus. Viesti
$ FailedItem = $ _. Poikkeus. Tuotteen nimi
Kirjoittaminen "epäonnistui! $ ErrorMessage kanssa $ FailedItem "
}
}
}

$ qualityEncoder = [Järjestelmä. Piirustus. Kuvantaminen. Encoder]:: Laatu
$ encoderParams = Uusi objektijärjestelmä. Piirustus. Kuvantaminen. EncoderParameters (1)

# Aseta JPEG-laatutaso tähän: 0 - 100 (mukaan lukien rajat)
$ EncoderParams. Param [0] = Uusi objektijärjestelmä. Piirustus. Kuvantaminen. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Järjestelmä. Piirustus. Kuvantaminen. ImageCodecInfo]:: GetImageEncoders () | missä {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Kuvan. Hävitä ()

Kirjoittelu "Taustakuvan asettaminen ..."
Set-ItemProperty -path "HKCU: Ohjauspaneeli \ Työpöytä" -nimi Taustakuva -arvo ($ outpath + $ outfile)
Set-ItemProperty -polku "HKCU: Ohjauspaneeli \ Työpöytä" -nimi WallpaperStyle -arvo 6
Set-ItemProperty -polku "HKCU: Ohjauspaneeli \ Työpöytä" -nimi TileWallpaper -arvo 0
Set-ItemProperty 'HKCU: \ Ohjauspaneeli \ Värien nimi -tausta -arvo "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
järjestelmän avulla. Runtime. InteropServices;
julkisen luokan taustakuva
{
public const int SetDesktopWallpaper = 20;
julkinen const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = totta, CharSet = CharSet. Auto)]
yksityinen staattinen ulkoinen int SystemParametersInfo (int uAction, int uParam, merkkijono lpvParam, int fuWinIni);
julkinen staattinen tyhjä SetWallpaper (merkkipolku)
{
SystemParametersInfo (SetDesktopWallpaper, 0, polku, UpdateIniFile | SendWinIniChange);
}
}
"@
Lisätyyppi -TypeDefinition $ setwallpapers Source
[taustakuva]:: SetWallpaper (($ outpath + $ outfile))

Kirjoittaminen "Valmis"