BingWallpaper

1.1.5

BingWallpaper.psm1

                                # https://github.com/Jaykul/MultiMonitorHelper

# Requires -Assembly MultiMonitorHelper.dll

Add-Type -Name Windows -Namespace System -MemberDefinition '

    [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

    public static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);

'

$urlbase = "http://www.bing.com/"

# A few resolutions of these wallpapers exist, as far as I know ...

$KnownAvailable = [Ordered]@{

    0.56 = @('1080x1920','768x1366')

    0.6  = @('240x400','480x800','768x1280')

    0.75 = @('240x320','360x480','480x640','768x1024')

    0.8  = @('176x220')

    1.0  = @('240x240','320x320')

    1.25 = @('220x176')

    1.33 = @('1024x768','320x240','480x360','640x480','800x600')

    1.6  = @('1920x1200')

    1.67 = @('1280x768','400x240','800x480')

    1.78 = @('1280x720','1366x768','1920x1080')

}

$Sizes = @($KnownAvailable.Values | % { $_ })

$Ratios = @($knownAvailable.Keys)

function Get-Size {

    param($Size)

    if($Sizes -Contains $Size) {

        return $Size

    }

    [int]$Width, [int]$Height = $Size -split 'x'

    $Ratio = [Math]::Round(($Width / $Height), 2)

    Write-Debug ("{0}x{1} = {2}" -f $Width, $Height, $Ratio)

    $r = [array]::BinarySearch( $Ratios, $Ratio )

    Write-Debug "Index of $Ratio = $r in $Ratios"

    if($r -ge 0) {

       $Key = $Ratios[$r]

    } else {

        $r = [Math]::Abs($r+2)

        if(($Ratios[$r] - $Ratio) -gt ($Ratio - $Ratios[($r-1)])) {

           $Key = $Ratios[($r-1)]

        } else {

           $Key = $Ratios[$r]

        }

    }

    foreach($Sz in $KnownAvailable[$Key]) {

        $W = [int]($Sz -split 'x')[0]

        Write-Debug ("Can't match {0}x{1}, try {2}" -f $Width, $Height, $W)

        if($W -ge $Width) {

            return $Sz

        }

    }

    return $KnownAvailable[$Key][-1]

}

function Get-ActiveDisplays {

    #.Synopsis

    #  Get the currently available displays

    #.Notes

    # Windows.Forms.Screen alters the size of low-DPI monitors in mixed-DPI systems

    # System.Windows.SystemParameters alters the size of hight-DPI monitors in mixed-DPI systems

    # # For example, the following code proved buggy on my systems:

    # [System.Windows.Forms.Screen]::AllScreens | Select DeviceName -Expand Bounds

    # # Given a 3200x1800 high DPI laptop screen and two 1080p screens (one rotated):

    # # It produces this information:

    # Name             X    Y Width Height

    # ----             -    - ----- ------

    # \\.\DISPLAY1     0    0  3200   1800

    # \\.\DISPLAY2 -3840 1448  3840   2160

    # \\.\DISPLAY3 -6000  330  2160   3840

    # # The code below, using https://github.com/ChrisEelmaa/MultiMonitorHelper

    # # Produces the following correct information on my system:

    # Name             X   Y Height Width  Rotation

    # ----             -   - ------ -----  --------

    # \\.\DISPLAY1     0   0   1800  3200   Default

    # \\.\DISPLAY2 -1920 724   1080  1920   Default

    # \\.\DISPLAY3 -3000 165   1920  1080 Rotated90

    if(!("MultiMonitorHelper.DisplayFactory" -As [Type])) {

        Add-Type -AssemblyName System.Windows.Forms

        # This should work on "simple" systems without mixed DPI displays

        @([System.Windows.Forms.Screen]::AllScreens | Select DeviceName -Expand Bounds)

    } else {

        @(@([MultiMonitorHelper.DisplayFactory]::GetDisplayModel().GetActiveDisplays()) |

                Select Name,

                       @{Name = "X"; Expr = { $_.Origin.X }},

                       @{Name = "Y"; Expr = { $_.Origin.Y }},

                       @{Name = "Height"; Expr = { if($_.Rotation -in "Default", "Rotated180") { $_.Resolution.Height } else { $_.Resolution.Width } }},

                       @{Name = "Width"; Expr = { if($_.Rotation -in "Default", "Rotated180") { $_.Resolution.Width } else { $_.Resolution.Height } }},

                       Rotatione, IsPrimary, IsActive)

    }

}

function Set-BingWallpaper {

    #.Synopsis

    #  Fetches Bing Homepage images and generates a WallPaper

    #.Description

    #  With support for mixed-DPI multi-display configurations, this command will download one or more Bing homepage images from the last several days and generate a custom wallpaper for all your connected screens.

    #.Example

    #  Set-BingWallpaper

    #  Sets the wallpaper on each of your displays to a different recent Bing homepage image

    #.Example

    #  Set-BingWallpaper -Offset 1

    #  Sets the wallpaper on each of your displays using the image(s) from yesterday

    #.Notes

    #  Uses the CCD APIs which are new in Windows 7 and requires WDDM with display miniport drivers.

    #  https://msdn.microsoft.com/en-us/library/windows/hardware/hh406259%28v=vs.85%29.aspx

    [CmdletBinding()]

    param(

        # If you want to try the bing images from other countries, fiddle around with this.

        # As far as I know, the valid values are: en-US, zh-CN, ja-JP, en-AU, en-UK, de-DE, en-NZ, en-CA

        # NOTE: as far as I can tell, the images are usually the same, except offset by a day or two in some locales.

        [ValidateSet('es-AR','en-AU','de-AT','nl-BE','fr-BE','pt-BR','en-CA','fr-CA','fr-FR','de-DE','zh-HK','en-IN','en-ID','it-IT','ja-JP','ko-KR','en-MY','es-MX','nl-NL','nb-NO','zh-CN','pl-PL','ru-RU','ar-SA','en-ZA','es-ES','sv-SE','fr-CH','de-CH','zh-TW','tr-TR','en-GB','en-US','es-US')]

        [System.Globalization.CultureInfo]$Culture,

        # If you want to (re)use yesterday's wallpapers, fiddle around with this

        [Int]$Offset = 0,

        # Force re-downloading and creating the wallpaper even if none of the files have changed

        [Switch]$Force

    )

    begin {

    }

    end {

        # Figure out how many wallpapers we need

        $Screens = @(Get-ActiveDisplays)

        # Use THAT information to calculate our virtual wallpaper size.

        # NOTE: See .Notes in Get-ActiveDisplays as to why we can't use SystemParameters here

        $count = $screens.Count

        $MinX, $MaxX = $Screens | % { $_.X, ($_.X + $_.Width) } | sort | select -first 1 -last 1

        $MinY, $MaxY = $Screens | % { $_.Y, ($_.Y + $_.Height) } | sort | select -first 1 -last 1

        $Width = $MaxX - $MinX

        $Height = $MaxY - $MinY

        $Top = $MinY

        $Left = $MinX

        # Fetch Bing's Image Archive information

        # It would be fun to tell you about these images, right?

        # TODO: We should do a notification with the details about the new wallpaper

        $APIUrl = "http://www.bing.com/HPImageArchive.aspx?format=js&idx=${Offset}&n=${count}"

        if($Culture) {

            $APIUrl += "&mkt=${Culture}"

        }

        $BingImages = Invoke-RestMethod $APIUrl

        $datespan = $Culture + $BingImages.images[-1].startdate + "-" + $BingImages.images[0].enddate

        $TempPath = [System.IO.Path]::GetTempPath()

        $WallPaperPath = Join-Path $TempPath "${datespan}.jpg"

        if(-not $Force -and (Test-Path $WallPaperPath)) {

            Write-Verbose "Update wallpaper from cached image file $WallPaperPath"

        } else {

            $ErrorActionPreference = "Stop"

            Write-Verbose ("Create {0}x{1} Wallpaper from Bing images" -f $Width, $Height)

            try {

                Write-Debug ("Full Wallpaper Size {0}x{1} offset to {2},{3}" -f $Width, $Height, $Left, $Top)

                $Wallpaper = New-Object System.Drawing.Bitmap ([int[]]($Width, $Height))

                $Graphics = [System.Drawing.Graphics]::FromImage($Wallpaper)

                for($i = 0; $i -lt $Count; $i++) {

                    $Size = "{0}x{1}" -f $Screens[$i].Width, $Screens[$i].Height

                    # Figure out the best image size available ...

                    Write-Debug "Actual Size $Size"

                    $Size = Get-Size $Size

                    Write-Debug "Image Size $Size"

                    # # I wanted to use ProjectOxford to trim the wallpaper, but it's output is grainy

                    # $OCPKey = (BetterCredentials\Get-Credential ComputerVisionApis@api.ProjectOxford.ai -Store).GetNetworkCredential().Password

                    # Invoke-WebRequest -OutFile $WallPaperPath -Method "POST" -ContentType "application/json" `

                    #     -Headers @{ "Ocp-Apim-Subscription-Key" = $OCPKey } `

                    #     -Body (ConvertTo-Json @{ Url = "http://www.bing.com/iod/1920/1200/{0:yyyyMMdd}" -f (get-date) }) `

                    #     -Uri "https://api.projectoxford.ai/vision/v1/thumbnails?width=1024&height=768&smartCropping=true"

                    $File = (Join-Path $TempPath $BingImages.Images[$i].fullstartdate) + "_" + $Size + ".jpg"

                    if(-not $Force -and (Test-Path $File)){

                        Write-Verbose "Using cached image file $File"

                    } else {

                        $ImageUrl = $urlbase + $BingImages.Images[$i].UrlBase + "_" + $Size + ".jpg"

                        Write-Verbose "Download Image $ImageUrl to $File"

                        Invoke-WebRequest $ImageUrl -OutFile $File

                    }

                    Write-Debug ("Place $(Split-Path $File -Leaf) at {0}, {1} for ({2},{3})" -f ($Screens[$i].X - $Left), ($Screens[$i].Y - $Top), $Screens[$i].Width, $Screens[$i].Height)

                    try {

                        $Source = [System.Drawing.Image]::FromFile($File)

                        # Putting the wallpaper in the right place, relatively speaking, is the tricky bit

                        $Graphics.DrawImage($Source, $Screens[$i].X - $Left, $Screens[$i].Y - $Top, $Screens[$i].Width, $Screens[$i].Height)

                    } finally {

                        $Source.Dispose()

                    }

                }

            } finally {

                $Graphics.Dispose()

                # Save as jpeg to save a little disk space

                $Wallpaper.Save($WallPaperPath, [System.Drawing.Imaging.ImageFormat]::Jpeg)

            }

        }

        # Tell windows about our new wallpaper ...

        Set-ItemProperty "HKCU:\Control Panel\Desktop" WallpaperStyle 1

        Set-ItemProperty "HKCU:\Control Panel\Desktop" TileWallpaper 1

        # Please excuse the magic numbers, I can't remember the constants anymore

        # $Result should be 1, but we're not checking it, because what would we do about it?

        $Result = [Windows]::SystemParametersInfo( 20, 0, $WallPaperPath, 3 )

    }

}

# SIG # Begin signature block

# MIIXzgYJKoZIhvcNAQcCoIIXvzCCF7sCAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB

# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR

# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUkbb2AEI09aYFy4sQHRGZdV9R

# 5IigghMBMIID7jCCA1egAwIBAgIQfpPr+3zGTlnqS5p31Ab8OzANBgkqhkiG9w0B

# AQUFADCBizELMAkGA1UEBhMCWkExFTATBgNVBAgTDFdlc3Rlcm4gQ2FwZTEUMBIG

# A1UEBxMLRHVyYmFudmlsbGUxDzANBgNVBAoTBlRoYXd0ZTEdMBsGA1UECxMUVGhh

# d3RlIENlcnRpZmljYXRpb24xHzAdBgNVBAMTFlRoYXd0ZSBUaW1lc3RhbXBpbmcg

# Q0EwHhcNMTIxMjIxMDAwMDAwWhcNMjAxMjMwMjM1OTU5WjBeMQswCQYDVQQGEwJV

# UzEdMBsGA1UEChMUU3ltYW50ZWMgQ29ycG9yYXRpb24xMDAuBgNVBAMTJ1N5bWFu

# dGVjIFRpbWUgU3RhbXBpbmcgU2VydmljZXMgQ0EgLSBHMjCCASIwDQYJKoZIhvcN

# AQEBBQADggEPADCCAQoCggEBALGss0lUS5ccEgrYJXmRIlcqb9y4JsRDc2vCvy5Q

# WvsUwnaOQwElQ7Sh4kX06Ld7w3TMIte0lAAC903tv7S3RCRrzV9FO9FEzkMScxeC

# i2m0K8uZHqxyGyZNcR+xMd37UWECU6aq9UksBXhFpS+JzueZ5/6M4lc/PcaS3Er4

# ezPkeQr78HWIQZz/xQNRmarXbJ+TaYdlKYOFwmAUxMjJOxTawIHwHw103pIiq8r3

# +3R8J+b3Sht/p8OeLa6K6qbmqicWfWH3mHERvOJQoUvlXfrlDqcsn6plINPYlujI

# fKVOSET/GeJEB5IL12iEgF1qeGRFzWBGflTBE3zFefHJwXECAwEAAaOB+jCB9zAd

# BgNVHQ4EFgQUX5r1blzMzHSa1N197z/b7EyALt0wMgYIKwYBBQUHAQEEJjAkMCIG

# CCsGAQUFBzABhhZodHRwOi8vb2NzcC50aGF3dGUuY29tMBIGA1UdEwEB/wQIMAYB

# Af8CAQAwPwYDVR0fBDgwNjA0oDKgMIYuaHR0cDovL2NybC50aGF3dGUuY29tL1Ro

# YXd0ZVRpbWVzdGFtcGluZ0NBLmNybDATBgNVHSUEDDAKBggrBgEFBQcDCDAOBgNV

# HQ8BAf8EBAMCAQYwKAYDVR0RBCEwH6QdMBsxGTAXBgNVBAMTEFRpbWVTdGFtcC0y

# MDQ4LTEwDQYJKoZIhvcNAQEFBQADgYEAAwmbj3nvf1kwqu9otfrjCR27T4IGXTdf

# plKfFo3qHJIJRG71betYfDDo+WmNI3MLEm9Hqa45EfgqsZuwGsOO61mWAK3ODE2y

# 0DGmCFwqevzieh1XTKhlGOl5QGIllm7HxzdqgyEIjkHq3dlXPx13SYcqFgZepjhq

# IhKjURmDfrYwggSjMIIDi6ADAgECAhAOz/Q4yP6/NW4E2GqYGxpQMA0GCSqGSIb3

# DQEBBQUAMF4xCzAJBgNVBAYTAlVTMR0wGwYDVQQKExRTeW1hbnRlYyBDb3Jwb3Jh

# dGlvbjEwMC4GA1UEAxMnU3ltYW50ZWMgVGltZSBTdGFtcGluZyBTZXJ2aWNlcyBD

# QSAtIEcyMB4XDTEyMTAxODAwMDAwMFoXDTIwMTIyOTIzNTk1OVowYjELMAkGA1UE

# BhMCVVMxHTAbBgNVBAoTFFN5bWFudGVjIENvcnBvcmF0aW9uMTQwMgYDVQQDEytT

# eW1hbnRlYyBUaW1lIFN0YW1waW5nIFNlcnZpY2VzIFNpZ25lciAtIEc0MIIBIjAN

# BgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAomMLOUS4uyOnREm7Dv+h8GEKU5Ow

# mNutLA9KxW7/hjxTVQ8VzgQ/K/2plpbZvmF5C1vJTIZ25eBDSyKV7sIrQ8Gf2Gi0

# jkBP7oU4uRHFI/JkWPAVMm9OV6GuiKQC1yoezUvh3WPVF4kyW7BemVqonShQDhfu

# ltthO0VRHc8SVguSR/yrrvZmPUescHLnkudfzRC5xINklBm9JYDh6NIipdC6Anqh

# d5NbZcPuF3S8QYYq3AhMjJKMkS2ed0QfaNaodHfbDlsyi1aLM73ZY8hJnTrFxeoz

# C9Lxoxv0i77Zs1eLO94Ep3oisiSuLsdwxb5OgyYI+wu9qU+ZCOEQKHKqzQIDAQAB

# o4IBVzCCAVMwDAYDVR0TAQH/BAIwADAWBgNVHSUBAf8EDDAKBggrBgEFBQcDCDAO

# BgNVHQ8BAf8EBAMCB4AwcwYIKwYBBQUHAQEEZzBlMCoGCCsGAQUFBzABhh5odHRw

# Oi8vdHMtb2NzcC53cy5zeW1hbnRlYy5jb20wNwYIKwYBBQUHMAKGK2h0dHA6Ly90

# cy1haWEud3Muc3ltYW50ZWMuY29tL3Rzcy1jYS1nMi5jZXIwPAYDVR0fBDUwMzAx

# oC+gLYYraHR0cDovL3RzLWNybC53cy5zeW1hbnRlYy5jb20vdHNzLWNhLWcyLmNy

# bDAoBgNVHREEITAfpB0wGzEZMBcGA1UEAxMQVGltZVN0YW1wLTIwNDgtMjAdBgNV

# HQ4EFgQURsZpow5KFB7VTNpSYxc/Xja8DeYwHwYDVR0jBBgwFoAUX5r1blzMzHSa

# 1N197z/b7EyALt0wDQYJKoZIhvcNAQEFBQADggEBAHg7tJEqAEzwj2IwN3ijhCcH

# bxiy3iXcoNSUA6qGTiWfmkADHN3O43nLIWgG2rYytG2/9CwmYzPkSWRtDebDZw73

# BaQ1bHyJFsbpst+y6d0gxnEPzZV03LZc3r03H0N45ni1zSgEIKOq8UvEiCmRDoDR

# EfzdXHZuT14ORUZBbg2w6jiasTraCXEQ/Bx5tIB7rGn0/Zy2DBYr8X9bCT2bW+IW

# yhOBbQAuOA2oKY8s4bL0WqkBrxWcLC9JG9siu8P+eJRRw4axgohd8D20UaF5Mysu

# e7ncIAkTcetqGVvP6KUwVyyJST+5z3/Jvz4iaGNTmr1pdKzFHTx/kuDDvBzYBHUw

# ggUwMIIEGKADAgECAhAECRgbX9W7ZnVTQ7VvlVAIMA0GCSqGSIb3DQEBCwUAMGUx

# CzAJBgNVBAYTAlVTMRUwEwYDVQQKEwxEaWdpQ2VydCBJbmMxGTAXBgNVBAsTEHd3

# dy5kaWdpY2VydC5jb20xJDAiBgNVBAMTG0RpZ2lDZXJ0IEFzc3VyZWQgSUQgUm9v

# dCBDQTAeFw0xMzEwMjIxMjAwMDBaFw0yODEwMjIxMjAwMDBaMHIxCzAJBgNVBAYT

# AlVTMRUwEwYDVQQKEwxEaWdpQ2VydCBJbmMxGTAXBgNVBAsTEHd3dy5kaWdpY2Vy

# dC5jb20xMTAvBgNVBAMTKERpZ2lDZXJ0IFNIQTIgQXNzdXJlZCBJRCBDb2RlIFNp

# Z25pbmcgQ0EwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQD407Mcfw4R

# r2d3B9MLMUkZz9D7RZmxOttE9X/lqJ3bMtdx6nadBS63j/qSQ8Cl+YnUNxnXtqrw

# nIal2CWsDnkoOn7p0WfTxvspJ8fTeyOU5JEjlpB3gvmhhCNmElQzUHSxKCa7JGnC

# wlLyFGeKiUXULaGj6YgsIJWuHEqHCN8M9eJNYBi+qsSyrnAxZjNxPqxwoqvOf+l8

# y5Kh5TsxHM/q8grkV7tKtel05iv+bMt+dDk2DZDv5LVOpKnqagqrhPOsZ061xPeM

# 0SAlI+sIZD5SlsHyDxL0xY4PwaLoLFH3c7y9hbFig3NBggfkOItqcyDQD2RzPJ6f

# pjOp/RnfJZPRAgMBAAGjggHNMIIByTASBgNVHRMBAf8ECDAGAQH/AgEAMA4GA1Ud

# DwEB/wQEAwIBhjATBgNVHSUEDDAKBggrBgEFBQcDAzB5BggrBgEFBQcBAQRtMGsw

# JAYIKwYBBQUHMAGGGGh0dHA6Ly9vY3NwLmRpZ2ljZXJ0LmNvbTBDBggrBgEFBQcw

# AoY3aHR0cDovL2NhY2VydHMuZGlnaWNlcnQuY29tL0RpZ2lDZXJ0QXNzdXJlZElE

# Um9vdENBLmNydDCBgQYDVR0fBHoweDA6oDigNoY0aHR0cDovL2NybDQuZGlnaWNl

# cnQuY29tL0RpZ2lDZXJ0QXNzdXJlZElEUm9vdENBLmNybDA6oDigNoY0aHR0cDov

# L2NybDMuZGlnaWNlcnQuY29tL0RpZ2lDZXJ0QXNzdXJlZElEUm9vdENBLmNybDBP

# BgNVHSAESDBGMDgGCmCGSAGG/WwAAgQwKjAoBggrBgEFBQcCARYcaHR0cHM6Ly93

# d3cuZGlnaWNlcnQuY29tL0NQUzAKBghghkgBhv1sAzAdBgNVHQ4EFgQUWsS5eyoK

# o6XqcQPAYPkt9mV1DlgwHwYDVR0jBBgwFoAUReuir/SSy4IxLVGLp6chnfNtyA8w

# DQYJKoZIhvcNAQELBQADggEBAD7sDVoks/Mi0RXILHwlKXaoHV0cLToaxO8wYdd+

# C2D9wz0PxK+L/e8q3yBVN7Dh9tGSdQ9RtG6ljlriXiSBThCk7j9xjmMOE0ut119E

# efM2FAaK95xGTlz/kLEbBw6RFfu6r7VRwo0kriTGxycqoSkoGjpxKAI8LpGjwCUR

# 4pwUR6F6aGivm6dcIFzZcbEMj7uo+MUSaJ/PQMtARKUT8OZkDCUIQjKyNookAv4v

# cn4c10lFluhZHen6dGRrsutmQ9qzsIzV6Q3d9gEgzpkxYz0IGhizgZtPxpMQBvwH

# gfqL2vmCSfdibqFT+hKUGIUukpHqaGxEMrJmoecYpJpkUe8wggUwMIIEGKADAgEC

# AhALDZkX0sdOvwJhwzQTbV+7MA0GCSqGSIb3DQEBCwUAMHIxCzAJBgNVBAYTAlVT

# MRUwEwYDVQQKEwxEaWdpQ2VydCBJbmMxGTAXBgNVBAsTEHd3dy5kaWdpY2VydC5j

# b20xMTAvBgNVBAMTKERpZ2lDZXJ0IFNIQTIgQXNzdXJlZCBJRCBDb2RlIFNpZ25p

# bmcgQ0EwHhcNMTgwNzEyMDAwMDAwWhcNMTkwNzE2MTIwMDAwWjBtMQswCQYDVQQG

# EwJVUzERMA8GA1UECBMITmV3IFlvcmsxFzAVBgNVBAcTDldlc3QgSGVucmlldHRh

# MRgwFgYDVQQKEw9Kb2VsIEguIEJlbm5ldHQxGDAWBgNVBAMTD0pvZWwgSC4gQmVu

# bmV0dDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMJb3Cf3n+/pFJiO

# hQqN5m54FpyIktMRWe5VyF8465BnAtzw3ivMyN+3k8IoXQhMxpCsY1TJbLyydNR2

# QzwEEtGfcTVnlAJdFFlBsgIdK43waaML5EG7tzNJKhHQDiN9bVhLPTXrit80eCTI

# RpOA7435oVG8erDpxhJUK364myUrmSyF9SbUX7uE09CJJgtB7vqetl4G+1j+iFDN

# Xi3bu1BFMWJp+TtICM+Zc5Wb+ZaYAE6V8t5GCyH1nlAI3cPjqVm8y5NoynZTfOhV

# bHiV0QI2K5WrBBboR0q6nd4cy6NJ8u5axi6CdUhnDMH20NN2I0v+2MBkgLAzxPrX

# kjnaEGECAwEAAaOCAcUwggHBMB8GA1UdIwQYMBaAFFrEuXsqCqOl6nEDwGD5LfZl

# dQ5YMB0GA1UdDgQWBBTiwur/NVanABEKwjZDB3g6SZN1mTAOBgNVHQ8BAf8EBAMC

# B4AwEwYDVR0lBAwwCgYIKwYBBQUHAwMwdwYDVR0fBHAwbjA1oDOgMYYvaHR0cDov

# L2NybDMuZGlnaWNlcnQuY29tL3NoYTItYXNzdXJlZC1jcy1nMS5jcmwwNaAzoDGG

# L2h0dHA6Ly9jcmw0LmRpZ2ljZXJ0LmNvbS9zaGEyLWFzc3VyZWQtY3MtZzEuY3Js

# MEwGA1UdIARFMEMwNwYJYIZIAYb9bAMBMCowKAYIKwYBBQUHAgEWHGh0dHBzOi8v

# d3d3LmRpZ2ljZXJ0LmNvbS9DUFMwCAYGZ4EMAQQBMIGEBggrBgEFBQcBAQR4MHYw

# JAYIKwYBBQUHMAGGGGh0dHA6Ly9vY3NwLmRpZ2ljZXJ0LmNvbTBOBggrBgEFBQcw

# AoZCaHR0cDovL2NhY2VydHMuZGlnaWNlcnQuY29tL0RpZ2lDZXJ0U0hBMkFzc3Vy

# ZWRJRENvZGVTaWduaW5nQ0EuY3J0MAwGA1UdEwEB/wQCMAAwDQYJKoZIhvcNAQEL

# BQADggEBADNNHuRAdX0ddONqaUf3H3pwa1K016C02P90xDIyMvw+hiUb4Z/xewnY

# jyplspD0NQB9ca2pnNIy1KwjJryRgq8gl3epSiWTbViVn6VDK2h0JXm54H6hczQ8

# sEshCW53znNVUUUfxGsVM9kMcwITHYftciW0J+SsGcfuuAIuF1g47KQXKWOMcUQl

# yrP5t0ywotTVcg/1HWAPFE0V0sFy+Or4n81+BWXOLaCXIeeryLYncAVUBT1DI6lk

# peRUj/99kkn+hz1q4hHTtfNpMTOApP64EEFGKICKkJdvhs1PjtGa+QdAkhcInTxk

# t/hIJPUb1nO4CsKp1gaVsRkkbcStJ2kxggQ3MIIEMwIBATCBhjByMQswCQYDVQQG

# EwJVUzEVMBMGA1UEChMMRGlnaUNlcnQgSW5jMRkwFwYDVQQLExB3d3cuZGlnaWNl

# cnQuY29tMTEwLwYDVQQDEyhEaWdpQ2VydCBTSEEyIEFzc3VyZWQgSUQgQ29kZSBT

# aWduaW5nIENBAhALDZkX0sdOvwJhwzQTbV+7MAkGBSsOAwIaBQCgeDAYBgorBgEE

# AYI3AgEMMQowCKACgAChAoAAMBkGCSqGSIb3DQEJAzEMBgorBgEEAYI3AgEEMBwG

# CisGAQQBgjcCAQsxDjAMBgorBgEEAYI3AgEVMCMGCSqGSIb3DQEJBDEWBBRbM0BL

# 23rSTmnVXc1p5UqD8JBHvzANBgkqhkiG9w0BAQEFAASCAQCv/hF8beLkKbo9Y4K+

# Uw+Soc7POKgQ8A/uJ6EyZlEA1AKvLp6yDItXrKmZ1FXpww9PCfBDEroIAIxzVOvH

# jJWlhgtsBDJwXiDKxS4bVcZ3Ycc9owvM756Z2+TNAyUbI5PjV+p//MRQFTtmWBcg

# eLlUHUrk9Q8W2PaaBEYu1uQGRqKCuRSK5gdq1t+0fxkBGt0FEuqopyKW6nyYGicU

# 1ZoGO5W3LnUuwnoUHMAxcCLUb7k5hxRGwdfmsc8WUflp50PxAZoqKhfRibQTOB3n

# KVJTLZJrW8a+FL/unaxMsSMze5pM52+XW7+oe5NluPAFCUHoGDvvs0ct65F7nP9X

# I72VoYICCzCCAgcGCSqGSIb3DQEJBjGCAfgwggH0AgEBMHIwXjELMAkGA1UEBhMC

# VVMxHTAbBgNVBAoTFFN5bWFudGVjIENvcnBvcmF0aW9uMTAwLgYDVQQDEydTeW1h

# bnRlYyBUaW1lIFN0YW1waW5nIFNlcnZpY2VzIENBIC0gRzICEA7P9DjI/r81bgTY

# apgbGlAwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJ

# KoZIhvcNAQkFMQ8XDTE5MDMxMDAzMjEzNFowIwYJKoZIhvcNAQkEMRYEFLjhFkYq

# I6GYYcqGSUTDfxVTjnYNMA0GCSqGSIb3DQEBAQUABIIBAHzYIyKuIpNEraPwuLxr

# Tv06Vi9v6L/Hdee04Q8NVSja1C23sCtoSCBsF/lf1oNphSugZbFKi25gKkgz7vHK

# /rWW9mgu8zEHeqkLDM52zu0td8nrtOO/by/VKDluPBvhwCXQPFZX4FYQYxuOQjWY

# 8/3vBU5BeSt3DHrVc2JebRVDz06aS8xEPe5kGSuaQpZStXURXsaXdmZivML15icg

# hPa8fP+tt/00l8FvuKhX/f285Aj/5znUZf5nPW5qMr/iOlbEZotK3bRUVnPS7tc3

# K02+jClrQhGjPXVaakz7dI8n7H8GVikMRI0tQsRsB7k31th6/n2Td/LPNpU5PBxh

# s68=

# SIG # End signature block