Jag får samma resultat, kan du ge oss en mer detaljerad beskrivning av hur du fixade det, för oss nybörjare. PowerShell i programmet / skriptfältet? var är det exakt? och var finns PS-skriptmapp etc. tack
Fantastiskt, det är bra att veta. Tack så mycket, Dan. :)
Hej kompis Jag får svart tapet. någon lösning?
ts = New-TimeSpan -Timmar -2 -Minutes -30 # Antal timmar och minuter att lägga till / subtrahera till datumet. Justera detta för att kompensera ditt systemdatum till cirka cirka GMT (tror jag?)
$ nu = ((Get-Date-Sekund 00) + $ ts)
$ nu = $ nu. AddMinutes (- ($ now.minute% 10))
$ bredd = 550
$ level = "4d" # Nivå kan vara 4d, 8d, 16d, 20d
$ numblocks = 4 # detta motsvarar tydligen direkt med nivån, håll detta exakt samma som nivå utan 'd'
$ time = $ nu. ToString ( "HHMMSS")
$ år = $ nu. ToString ( "åååå")
$ månad = $ nu. ToString ( "mm")
$ dag = $ nu. ToString ( "dd")
# Skapa mappen Mina bilder \ Himawari \ om den inte finns
$ outpath = [Miljö]:: GetFolderPath ("MyPictures") + "\ Himawari \"
if (! (Test-Path-Path $ outpath))
{
[void] (New-Item -ItemType-katalogen-path $ outpath)
}
#Filnamnet som kommer att sparas:
#Kommentera detta så att filerna ackumuleras i katalogen:
# $ outfile = "$ år $ månad $ dag" + "_" + $ tid + ".jpg"
# Använd detta för att låta skriptet bara lagra den senaste filen:
$ 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. Former ")
[Void] [reflection.assembly]:: LoadWithPartialName ( "System. Teckning")
$ image = New-Object System. Teckning. Bitmapp (($ bredd * $ numblock), ($ bredd * $ numblock))
$ grafik = [System. Teckning. Graphics]:: FromImage ($ bild)
$ grafik. Clear ([System. Teckning. Svart färg)
för ($ y = 0; $ y -lt $ numblocks; $ Y ++)
{
för ($ x = 0; $ x -lt $ numblocks; $ X ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Skrivutgång "Nedladdning: $ thisurl"
Prova
{
$ begäran = [System. Netto. WebRequest]:: skapa ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ svar. Status
If ($ HTTP_Status -ekv. 200)
{
$ imgblock = [System. Teckning. Bild]:: fromStream ($ response.getResponseStream ())
$ grafik. DrawImage ($ imgblock, ($ x * $ bredd), ($ y * $ bredd), $ bredd, $ bredd)
$ Imgblock.dispose ()
$ Svar. Stänga()
}
}
Fånga
{
$ ErrorMessage = $ _. Undantag. Meddelande
$ FailedItem = $ _. Undantag. Föremålsnamn
Skrivutgången "misslyckades! $ ErrorMessage with $ FailedItem "
}
}
}
$ qualityEncoder = [System. Teckning. Imaging. Encoder]:: Kvalitet
$ encoderParams = Nytt-objekt-system. Teckning. Imaging. EncoderParameters (1)
# Ställ in JPEG-kvalitetsnivå här: 0 - 100 (inklusive gränser)
$ encoderParams. Param [0] = Nytt-objekt-system. Teckning. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [System. Teckning. Imaging. ImageCodecInfo]:: GetImageEncoders () | där {$ _. MimeType -eq 'image / jpeg'}
$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ Image. Dispose ()
Skrivutgång "Ställa in bakgrundsbild ..."
Set-ItemProperty-path "HKCU: Control Panel \ Desktop" -namn Bakgrund -värde ($ outpath + $ outfile)
Set-ItemProperty-path "HKCU: Control Panel \ Desktop" -namn WallpaperStyle -value 6
Set-ItemProperty-path "HKCU: Control Panel \ Desktop" -namn TileWallpaper -värde 0
Set-ItemProperty 'HKCU: \ Kontrollpanelen \ Colors' -namn Bakgrund -Värde "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters
$ setwallpapersource = @ "
använder System. Körning. InteropServices;
allmän klass tapeter
{
public const int SetDesktopWallpaper = 20;
public const int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Bil)]
privat statisk extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
offentligt statiskt tomrum SetWallpaper (strängväg)
{
SystemParametersInfo (SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[tapet]:: SetWallpaper (($ outpath + $ outfile))
Skrivutgång "Klart"