Write-Host 'Script poop.su loaded'

# Конфигурация папок
$conf = @{ folder="dogs"; max=4 }

# случайная картинка
$n = Get-Random -Minimum 1 -Maximum ($conf.max + 1)

Write-Host "$($conf.folder)/$n.jpg"

$imgUrl = "https://poop.su/$($conf.folder)/$n.jpg"
$imgPath = "$env:TEMP\$($conf.folder)_$n.jpg"

Invoke-WebRequest $imgUrl -OutFile $imgPath

# установка обоев
Add-Type @"
using System;
using System.Runtime.InteropServices;
public class W{
[DllImport("user32.dll")] public static extern bool SystemParametersInfo(int a,int b,string c,int d);
}
"@

Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name WallpaperStyle -Value 10
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name TileWallpaper -Value 0
[W]::SystemParametersInfo(20,0,$imgPath,3)

Write-Host 'Done!'