Dobivam isti rezultat, možete li nam dati detaljniji opis kako ste to popravili, za nas novakinje. PowerShell u polju programa / skripte? gdje je to točno? a gdje se nalazi mapa PS skripti itd. Hvala
Strašno, to je dobro znati. Hvala puno, Dan. :)
Hej prijatelju, dobivam crne tapete. neko rješenje?
ts = New-TimeSpan -Hours -2 -Minutes -30 # Broj sati i minuta za dodavanje / oduzimanje datumu. Prilagodite to tako da datum vašeg sustava nadoknadite na oko GMT (mislim?)
$ now = ((datum uzimanja -sekunda 00) + $ ts)
$ now = $ now. AddMinutes (- ($ now.minute% 10))
$ širina = 550
$ level = "4d" # Nivo može biti 4d, 8d, 16d, 20d
$ numblocks = 4 # ovo očigledno odgovara razini, zadržite ovo potpuno isto kao nivo bez slova 'd'
$ vrijeme = $ sada. ToString ( "HHmmss")
$ godina = $ sada. ToString ( "YYYY")
$ mjesec = $ sada. ToString ( "MM")
$ day = $ sada. ToString ( "dd")
#Izradite mapu Moje slike \ Himawari \ ako ona ne postoji
$ outpath = [Okolina]:: GetFolderPath ("Moje slike") + "\ Himawari \"
if (! (Test-Path -Path $ outpath))
{
[void] (Nova stavka -ItemType direktorij -Path $ outpath)
}
# Naziv datoteke koja će se spremiti:
#Komentirajte ovo tako da se datoteke sakupljaju u direktoriju:
# $ outfile = "$ godina $ mjesec $ dan" + "_" + $ vrijeme + ".jpg"
#Koristite ovo da skripta pohrani samo najnoviju datoteku:
$ outfile = "najnovija.jpg"
$ url = " http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$year/$month/$day/$time"
[Praznina] [reflection.assembly]:: LoadWithPartialName ( "Sustav. Windows. Obrasci ")
[Praznina] [reflection.assembly]:: LoadWithPartialName ( "Sustav. Crtanje")
$ image = Novi objektni sustav. Crtanje. Bitmap (($ width * $ numblocks), ($ width * $ numblocks))
$ graphics = [Sustav. Crtanje. Grafika]:: FromImage ($ slika)
$ grafike. Vedro ([sustava. Crtanje. Crna boja)
za ($ y = 0; $ y -lt $ numblocks; $ Y ++)
{
za ($ x = 0; $ x -lt $ numblocks; $ X ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Ispis rezultata "Preuzimanje: $ thisurl"
probati
{
$ zahtjev = [Sustav. Neto. WebRequest]:: stvoriti ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ odgovor. statusCode
Ako ($ HTTP_Status -eq 200)
{
$ imgblock = [Sustav. Crtanje. Slika]:: fromStream ($ response.getResponseStream ())
$ grafike. DrawImage ($ imgblock, ($ x * $ širina), ($ y * $ širina), $ širina, $ širina)
$ Imgblock.dispose ()
$ Odgovora. Zatvoriti()
}
}
Ulov
{
$ ErrorMessage = $ _. Izuzetak. Poruka
$ FailedItem = $ _. Izuzetak. Ime proizvoda
Pisanje rezultata "Nije uspjelo! $ ErrorMessage s $ FailedItem "
}
}
}
$ qualityEncoder = [Sustav. Crtanje. Imaging. Davača]:: Kvaliteta
$ encoderParams = Sustav novog objekta. Crtanje. Imaging. EncoderParameters (1)
# Ovdje postavite razinu kvalitete JPEG: 0 - 100 (uključivo granica)
$ encoderParams. Param [0] = Novi objektni sustav. Crtanje. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Sustav. Crtanje. Imaging. ImageCodecInfo]:: GetImageEncoders () | gdje je {$ _. MimeType -eq 'image / jpeg'}
$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Sliku. Raspolagati()
Izlazni ispis "Postavljanje pozadina ..."
Set-ItemProperty -path "HKCU: Upravljačka ploča \ Desktop" -nazadna pozadina-vrijednost ($ outpath + $ outfile)
Set-ItemProperty -ath "HKCU: Upravljačka ploča \ Desktop" -ime WallpaperStyle-vrijednost 6
Set-ItemProperty -ath "HKCU: Upravljačka ploča \ Desktop" -ime TileWallpaper-vrijednost 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -name Background -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters
$ setwallpapersource = @ "
pomoću sustava. Runtime. InteropServices;
pozadina javne klase
{
javni const int SetDesktopWallpaper = 20;
javni const int UpdateIniFile = 0x01;
javni const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet Auto)]
privatni statički vanjski int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
javna statička praznina SetWallpaper (staza niza)
{
SystemParametersInfo (SetDesktopWallpaper, 0, put, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[pozadina]:: SetWallpaper (($ outpath + $ outfile))
Pisanje rezultata "Gotovo"
