Kuidas seada töölaua taustaks reaalajas Maa foto

Saan sama tulemuse. Kas saate meie algajate jaoks anda üksikasjalikuma kirjelduse, kuidas te selle parandasite. PowerShell väljal Programm / skript? kus see täpselt on? ja kus asub PS-skriptide kaust jne tänan

Vinge, seda on hea teada. Suur tänu, Dan. :)

Hei tüürimees saan musta taustapilti. mõni lahendus?

ts = New-TimeSpan -Tunnid -2 -Minute -30 #Tundide ja minutite arv kuupäeva lisamiseks / lahutamiseks. Reguleerige seda, et tasakaalustada oma süsteemi kuupäeva umbes GMT-ga (ma arvan?)
$ nüüd = ((saabumiskuupäev - teine ​​00) + $ ts)
$ nüüd = $ nüüd. AddMinutes (- ($ now.minute% 10))

USD laius = 550
$ level = "4d" #Tase võib olla 4d, 8d, 16d, 20d
$ numblocks = 4 # see vastab ilmselt tasemele, hoidke seda täpselt sama, mis tasemel ilma "d"
$ aeg = $ nüüd. ToString ("HHmmss")
$ aasta = $ nüüd. Lülitus ("aaaa")
$ kuu = $ nüüd. Ülesõit ("MM")
$ päev = $ nüüd. ToString ("dd")

#Looge kaust Minu pildid \ Himawari \, kui seda pole
$ outpath = [keskkond]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path -Path $ outpath))
{
[tühine] (uus üksus -ItemType kataloog -Path $ outpath)
}

#Faili nimi, mis salvestatakse:
#Tühistage see, kui soovite, et failid koguneksid kataloogi:
# $ outfile = "$ aasta $ kuu $ päev" + "_" + $ aeg + ".jpg"
#Kasutage seda, et skript salvestaks ainult uusima faili:
$ outfile = "latest.jpg"

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

[tühine] [järeldus.komplekt]:: LoadWithPartialName ("Süsteem. Windows. Vormid ")
[tühine] [järeldus.komplekt]:: LoadWithPartialName ("Süsteem. Joonis ")

$ image = uue objekti süsteem. Joonistamine. Bitmap (($ laius * $ numblocks), ($ laius * $ numblocks))
$ graphics = [süsteem. Joonistamine. Graafika]:: FromImage ($ pilt)
$ graafika. Tühjenda ([Süsteem. Joonistamine. Värv]:: must)

eest ($ y = 0; $ y -lt $ numblocks; y ++ dollarit)
{
eest ($ x = 0; $ x -lt $ numblocks; x ++ dollarit)
{
$ thisurl = $ url + "_" + [string] $ x + "_" + [string] $ y + ".png"
Kirjutusväljund "allalaadimine: $ thisurl"

proovida
{

$ päring = [süsteem. Net. WebRequest]:: loo ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ vastus. Olekukood
If ($ HTTP_Status -eq 200)
{
$ imgblock = [süsteem. Joonistamine. Pilt]:: fromStreamist ($ response.getResponseStream ())
$ graafika. DrawImage ($ imgblock, ($ x * $ laius), ($ y * $ laius), $ laius, $ laius)
$ imgblock.dispose ()
$ vastus. Sulge()
}
}
Saak
{
$ ErrorMessage = $ _. Erand. Sõnum
$ FailedItem = $ _. Erand. Asja nimi
Kirjutusväljund "ebaõnnestus! $ ErrorMessage teenusega $ FailedItem "
}
}
}

$ qualityEncoder = [süsteem. Joonistamine. Kujutised. Encoder]: kvaliteet
$ encoderParams = Uue objekti süsteem. Joonistamine. Kujutised. EncoderParameters (1)

# Siin saate määrata JPEG-kvaliteeditaseme: 0–100 (kaasa arvatud piirid)
$ encoderParams. Param [0] = uue objekti süsteem. Joonistamine. Kujutised. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Süsteem. Joonistamine. Kujutised. ImageCodecInfo]:: GetImageEncoders () | kus {$ _. MimeType -eq 'image / jpeg'}

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

Kirjutusväljund "Taustapildi määramine ..."
Set-ItemProperty -path "HKCU: Juhtpaneel \ Töölaud" -nimi Taustpilt -väärtus ($ outpath + $ outfile)
Set-ItemProperty -path "HKCU: juhtpaneel \ töölaud" -nimi WallpaperStyle-väärtus 6
Set-ItemProperty-tee "HKCU: juhtpaneel \ töölaud" -nimi TileWallpaper-väärtus 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -name Background -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
kasutades süsteemi. Kestus. InteropServices;
avaliku klassi tapeet
{
public const int SetDesktopWallpaper = 20;
avalik const int UpdateIniFile = 0x01;
avalik const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = tõene, CharSet = CharSet. Automaatne)]
privaatne staatiline välimine int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
avalik staatiline tühine SetWallpaper (stringi tee)
{
SystemParametersInfo (SetDesktopWallpaper, 0, tee, UpdateIniFile | SendWinIniChange);
}
}
"@
Lisatüüp -TypeDefinition $ setwallpapers resurss
[tapeet]:: SetWallpaper (($ outpath + $ outfile))

Kirjutusväljund "Valmis"