Windows Powershell Script to download the latest image from the Himawari-8 satelite, combine the tiles into a single image, convert to jpg and then set as the desktop background.

himawari.ps1

#
# Himawari-8 Downloader
#
#
#
# This script will scrape the latest image from the Himawari-8 satellite, recombining the tiled image,
# converting it to a JPG which is saved in My Pictures\Himawari\ and then set as the desktop background.
#
# http://himawari8.nict.go.jp/himawari8-image.htm
#
#

function CreateWallpaperByDateTime($targetTime, $saveOnlyRecentFile = $true)
{
    $width = 550
    $level = "4d" #Level can be 4d, 8d, 16d, 20d 
    $numblocks = 4 #this apparently corresponds directly with the level, keep this exactly the same as level without the 'd'

    #if image file doesn't exist, find this recent image (-1 hour every try)
    Do
    {
        $tmpTime = $targetTime.ToString("HHmmss")
        $tmpYear = $targetTime.ToString("yyyy")
        $tmpMonth = $targetTime.ToString("MM")
        $tmpDay = $targetTime.ToString("dd")

        $testurl = "http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$tmpYear/$tmpMonth/$tmpDay/$tmpTime" + "_0_0.png"
        Write-Output "[TEST] Downloading: $testurl"
    
        $testResult = $false
        try 
        {
            $request = [System.Net.WebRequest]::create($testurl)
            $response = $request.getResponse()
            $HTTP_Status = [int]$response.StatusCode

            if ($HTTP_Status -eq 200)
            {
                $testResult = $true
            }
        }
        Catch
        {
            #$ErrorMessage = $_.Exception.Message
            #$FailedItem = $_.Exception.ItemName
            #Write-Output "Failed! $ErrorMessage with $FailedItem"

            $testResult = $false
        }

        If ($testResult -eq $true)
        {
            Write-Output "SUCCESS! : " $targetTime.ToString("yyyy-mm-dd HH:mm:ss")
            break
        }
        else {
            Write-Output "Failed to download image file. Back 1 hour and retrying..."
            $targetTime = $targetTime.AddHours(-1)
        }
    } While (1)

    $time = $targetTime.ToString("HHmmss")
    $year = $targetTime.ToString("yyyy")
    $month = $targetTime.ToString("MM")
    $day = $targetTime.ToString("dd")

    #Create the folder My Pictures\Himawari\ if it doesnt exist
    $outpath = [Environment]::GetFolderPath("MyPictures") + "\Himawari\"
    if(!(Test-Path -Path $outpath ))
    {
        [void](New-Item -ItemType directory -Path $outpath)
    }

    If ($saveOnlyRecentFile -eq $true)
    {
        $outfile = "latest.jpg"
    }
    else 
    {
        $outfile = "$year$month$day"+"_" + $time + ".jpg"
    }


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

    [void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")

    $image = New-Object System.Drawing.Bitmap(($width * $numblocks), ($width * $numblocks))
    $graphics = [System.Drawing.Graphics]::FromImage($image)
    $graphics.Clear([System.Drawing.Color]::Black)
    

    for ($y = 0; $y -lt $numblocks; $y++)
    {
        for ($x = 0; $x -lt $numblocks; $x++)
        {
            $thisurl = $url + "_" + [String]$x + "_" + [String]$y + ".png"
            Write-Output "Downloading: $thisurl"

            try
            {

                $request = [System.Net.WebRequest]::create($thisurl)
                $response = $request.getResponse()
                $HTTP_Status = [int]$response.StatusCode
                If ($HTTP_Status -eq 200)
                { 
                    $imgblock = [System.Drawing.Image]::fromStream($response.getResponseStream())
                    $graphics.DrawImage($imgblock,($x*$width),($y*$width) , $width, $width)   
                    $imgblock.dispose()
                    $response.Close()
                }
            }
            Catch
            {
                $ErrorMessage = $_.Exception.Message
                $FailedItem = $_.Exception.ItemName
                Write-Output "Failed! $ErrorMessage with $FailedItem"
            }
        }
    }


    $qualityEncoder = [System.Drawing.Imaging.Encoder]::Quality
    $encoderParams = New-Object System.Drawing.Imaging.EncoderParameters(1)

    # Set JPEG quality level here: 0 - 100 (inclusive bounds)
    $encoderParams.Param[0] = New-Object System.Drawing.Imaging.EncoderParameter($qualityEncoder, 90)
    $jpegCodecInfo = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | where {$_.MimeType -eq 'image/jpeg'}

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

<#
 Different settings for the wallpaper:
 
                            Tile :
                                key.SetValue(@"WallpaperStyle", "0") ; 
                                key.SetValue(@"TileWallpaper", "1") ; 
                                break;
                            Center :
                                key.SetValue(@"WallpaperStyle", "0") ; 
                                key.SetValue(@"TileWallpaper", "0") ; 
                                break;
                            Stretch :
                                key.SetValue(@"WallpaperStyle", "2") ; 
                                key.SetValue(@"TileWallpaper", "0") ;
                                break;
                            Fill :
                                key.SetValue(@"WallpaperStyle", "10") ; 
                                key.SetValue(@"TileWallpaper", "0") ; 
                                break;
                            Fit :
                                key.SetValue(@"WallpaperStyle", "6") ; 
                                key.SetValue(@"TileWallpaper", "0") ; 
                                break;
#>

    Write-Output "Setting Wallpaper..."
    Set-ItemProperty -path "HKCU:Control Panel\Desktop" -name Wallpaper -value ($outpath + $outfile)
    Set-ItemProperty -path "HKCU:Control Panel\Desktop" -name WallpaperStyle -value 6
    Set-ItemProperty -path "HKCU:Control Panel\Desktop" -name TileWallpaper -value 0
    Set-ItemProperty 'HKCU:\Control Panel\Colors' -name Background -Value "0 0 0"
    #rundll32.exe user32.dll, UpdatePerUserSystemParameters


    $setwallpapersource = @"
    using System.Runtime.InteropServices;
    public class wallpaper
    {
        public const int SetDesktopWallpaper = 20;
        public const int UpdateIniFile = 0x01;
        public const int SendWinIniChange = 0x02;
        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
        public static void SetWallpaper ( string path )
        {
            SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
        }
    }
"@
    Add-Type -TypeDefinition $setwallpapersource
    [wallpaper]::SetWallpaper(($outpath + $outfile))


    Write-Output "Done"
}

$ts = New-TimeSpan -Minutes -30 #Number of minutes to add/subtract to the date.
$now = ((Get-Date -Second 00) + $ts)

$now = $now.ToUniversalTime().AddMinutes(-($now.minute % 10)) # download recent file
#$now = $now.AddMinutes(-($now.minute % 10)).AddDays(-1) # if recent file code is not work or viewing 'No Image', use this.

CreateWallpaperByDateTime $now

수정사항

• 파일 다운로드 실패시 한시간전 데이터를 찾아 다운로드 받도록 수정
• 시간대역 UTC 기준으로 모두 맞추도록 수정
• 최신 파일만 저장할지 안할지에 대한 인자 추가