Dobivam enak rezultat, ali nam lahko podrobneje opišete, kako ste ga popravili, za nas novince. PowerShell v polju Program / skript? kje je to točno? in kje se nahaja mapa za skripte PS itd. hvala
Super, to je dobro vedeti. Najlepša hvala, Dan. :)
Zdravo, dobim črno ozadje. katera koli rešitev?
ts = New-TimeSpan -Hours -2 -Minutes -30 #število ur in minut za dodajanje / odštevanje datuma. Prilagodite to tako, da sistemski datum prestavite na približno približno GMT (mislim?)
$ now = ((datum-datum-sekunda 00) + $ ts)
$ zdaj = $ zdaj. AddMinutes (- ($ now.minute% 10))
$ širina = 550
$ level = "4d" # Nivo je lahko 4d, 8d, 16d, 20d
$ numblocks = 4 # to se očitno ujema s stopnjo, ohranite to popolnoma enako kot nivo brez 'd'
$ time = $ zdaj. ToString ("HHmmss")
$ year = zdaj. ToString ("yyyy")
$ mesec = zdaj. ToString ("MM")
$ day = zdaj $. ToString ("dd")
#Ustvari mapo Moje slike \ Himawari \, če ta ne obstaja
$ outpath = [Okolje]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path -Path $ outpath))
{
[void] (Nov element-Imenik -ItemType -Path $ outpath)
}
#Ime datoteke, ki se shrani:
#Pomesti, da se datoteke nabirajo v imeniku:
# $ outfile = "$ leto $ mesec $ dan" + "_" + $ čas + ".jpg"
#Uporabite, da skript shrani samo najnovejšo datoteko:
$ outfile = "najnovejša.jpg"
$ url = " http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$year/$month/$day/$time"
[void] [refleksija.sestavitev]:: LoadWithPartialName ("Sistem. Windows. Obrazci ")
[void] [refleksija.sestavitev]:: LoadWithPartialName ("Sistem. Risba ")
$ image = Nov objektni sistem. Risba. Bitmap (($ width * $ numblocks), ($ width * $ numblocks))
$ graphics = [Sistem. Risba. Grafika]:: FromImage ($ image)
$ grafika. Počisti ([Sistem. Risba. Barva]:: črna)
za ($ y = 0; $ y -lt $ numblocks; $ y ++)
{
za ($ x = 0; $ x -lt $ numblocks; $ x ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Izpis "Iznos: $ thisurl"
poskusi
{
$ request = [Sistem. Mreža. WebRequest]:: ustvari ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ odziv. StatusCode
Če ($ HTTP_Status -eq 200)
{
$ imgblock = [Sistem. Risba. Slika]:: fromStream ($ response.getResponseStream ())
$ grafika. DrawImage ($ imgblock, ($ x * $ širina), ($ y * $ širina), $ širina, $ širina)
$ imgblock.dispose ()
$ odgovor. Zapri ()
}
}
Ujeti
{
$ ErrorMessage = $ _. Izjema. Sporočilo
$ FailedItem = $ _. Izjema. Ime izdelka
Pisanje-izpis "Ni uspelo! $ ErrorMessage z $ FailedItem "
}
}
}
$ qualityEncoder = [Sistem. Risba. Slikanje. Encoder]:: Kakovost
$ encoderParams = Sistem novega predmeta. Risba. Slikanje. Parametri Encoder (1)
# Tu nastavite raven kakovosti JPEG: 0 - 100 (vključno z omejitvami)
$ encoderParams. Param [0] = Nov objektni sistem. Risba. Slikanje. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Sistem. Risba. Slikanje. ImageCodecInfo]:: GetImageEncoders () | kjer {$ _. MimeType -eq 'image / jpeg'}
$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ slika. Odložite ()
Zapisovanje "Nastavitev ozadja ..."
Set-ItemProperty -path "HKCU: Nadzorna plošča \ Desktop" -nazadje ozadja -value ($ outpath + $ outfile)
Set-ItemProperty -ath "HKCU: Nadzorna plošča \ Desktop" -nazadje WallpaperStyle -value 6
Set-ItemProperty -ath "HKCU: Nadzorna plošča \ Desktop" -ime TileWallpaper-vrednost 0
Lastnost nastavitve-element 'HKCU: \ Nadzorna plošča \ Barve ozadje -ime ozadje -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters
$ setwallpapersource = @ "
z uporabo sistema. Čas izvajanja. InteropServices;
ozadje za javni razred
{
javni const int SetDesktopWallpaper = 20;
javni const int UpdateIniFile = 0x01;
javni const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet Samodejno)]
zasebni statični zunanji int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
javna statična ničnost SetWallpaper (pot niza)
{
SystemParametersInfo (SetDesktopWallpaper, 0, pot, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[ozadje]:: SetWallpaper (($ outpath + $ outfile))
Izpis "Končano"
