Dostávam rovnaký výsledok, môžete nám poskytnúť podrobnejší popis toho, ako ste ho opravili, pre nás nováčikov. PowerShell v poli Program / script? kde presne to je? a kde je umiestnená zložka skriptov PS atď. Vďaka
Úžasné, to je dobré vedieť. Ďakujem veľmi pekne, Dan. :)
Hej kamoš, dostávam čiernu tapetu. nejaké riešenie?
ts = New-TimeSpan -Hours -2-Minutes -30 #Počet hodín a minút na pridanie / odčítanie k dátumu. Upravte to tak, aby sa váš systémový dátum posunul okolo GMT (myslím?)
$ now = ((Get-Date -Second 00) + $ ts)
$ now = $ now. AddMinutes (- ($ now.minute% 10))
šírka $ = 550
$ level = "4d" #Level môže byť 4d, 8d, 16d, 20d
$ numblocks = 4 #this zjavne priamo zodpovedá úrovni, udržujte ju presne rovnako ako úroveň bez 'd'
$ time = $ now. ToString ( "HHMMSS")
$ year = $ now now. ToString ( "yyyy")
$ month = $ now. ToString ( "MM")
$ day = $ now. ToString ( "dd")
#Vytvorte priečinok Moje obrázky \ Himawari \, ak neexistuje
$ outpath = [Prostredie]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path - Path $ outpath))
{
[void] (New-Item -ItemType directory -Path $ outpath)
}
# Názov súboru, ktorý sa uloží:
#Odporúča sa, aby sa súbory hromadili v adresári:
# $ outfile = "$ rok $ mesiac $ deň" + "_" + $ čas + ".jpg"
# Použite toto, aby skript uložil iba najnovší súbor:
$ 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. Forms ")
[Void] [reflection.assembly]:: LoadWithPartialName ( "System. Kresba ")
$ image = Systém nových objektov. Kreslenie. Bitmapa ((šírka $ * $ numblocks), (šírka $ * $ numblocks))
$ graphics = [Systém. Kreslenie. Graphics]:: FromImage ($ image)
$ Grafika. Clear ([Systém. Kreslenie. Color]:: Black)
pre ($ y = 0; $ y -lt $ numblocks; $ Y ++)
{
pre ($ x = 0; $ x -lt $ numblocks; $ X ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Write-Output "Sťahovanie: $ thisurl"
vyskúšať
{
$ request = [Systém. Net. WebRequest]:: vytvoriť ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ response. statuscode
Ak ($ HTTP_Status -eq 200)
{
$ imgblock = [Systém. Kreslenie. Image]:: fromStream ($ response.getResponseStream ())
$ Grafika. DrawImage ($ imgblock, ($ x * $ width), ($ y * $ width), $ width, $ width)
$ Imgblock.dispose ()
$ Odpoveď. Zavrieť()
}
}
úlovok
{
$ ErrorMessage = $ _. Výnimka. správa
$ FailedItem = $ _. Výnimka. Názov položky
Zápis-výstup „Zlyhal! $ ErrorMessage s $ FailedItem "
}
}
}
$ qualityEncoder = [Systém. Kreslenie. Imaging. Encoder]:: Quality
$ encoderParams = Systém nových objektov. Kreslenie. Imaging. EncoderParameters (1)
# Nastavte úroveň kvality JPEG tu: 0 - 100 (vrátane limitov)
$ EncoderParams. Param [0] = Systém nových objektov. Kreslenie. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Systém. Kreslenie. Imaging. ImageCodecInfo]:: GetImageEncoders () | kde {$ _. MimeType -eq 'image / jpeg'}
$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Image. Likvidáciu ()
Zápis-výstup „Nastavenie tapety ...“
Set-ItemProperty - cesta "HKCU: Ovládací panel \ Desktop" - názov Tapeta - hodnota ($ outpath + $ outfile)
Set-ItemProperty - cesta "HKCU: Ovládací panel \ Desktop" - meno WallpaperStyle - hodnota 6
Set-ItemProperty - cesta "HKCU: Ovládací panel \ Desktop" - meno TileWallpaper - hodnota 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -name Background -Value "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters
$ setwallpapersource = @ "
pomocou systému. Beh programu. InteropServices;
tapeta pre verejnosť
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll"), SetLastError = true, CharSet = CharSet. Auto)]
súkromný statický externý int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
public static void SetWallpaper (cesta k reťazcu)
{
SystemParametersInfo (SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[tapeta]:: SetWallpaper (($ outpath + $ outfile))
Zápis-výstup „Hotovo“
