this post was submitted on 04 Jul 2023
5 points (100.0% liked)

Magic: The Gathering

1005 readers
1 users here now

/c/mtg

News and discussion about Magic: The Gathering, the tabletop and digital card trading card game! Join us discussing news, tournaments, gameplay, deckbuilding, strategy, lore, and more.

Rules

  1. Please show common courtesy and be kind to all
  2. Please keep posts related to the card game

Resources and Related Communities

/r/magicTCG

Trans MTG Discord Server

/r/traaagicthegathering

founded 4 years ago
MODERATORS
 

Hi all. I developed a PowerShell script a while back to scrape the latest wallpaper from the MTG website and set it as my desktop background. I finally got around to updating it today since it hadn't worked for a while. My background changed to Frodo and I disabled the script.

If you want that though, here you go:

Function Set-WallPaper {
 
<#
 
    .SYNOPSIS
    Applies a specified wallpaper to the current user's desktop
    
    .PARAMETER Image
    Provide the exact path to the image
 
    .PARAMETER Style
    Provide wallpaper style (Example: Fill, Fit, Stretch, Tile, Center, or Span)
  
    .EXAMPLE
    Set-WallPaper -Image "C:\Wallpaper\Default.jpg"
    Set-WallPaper -Image "C:\Wallpaper\Background.jpg" -Style Fit

    https://www.joseespitia.com/2017/09/15/set-wallpaper-powershell-function/
  
#>
 
param (
    [parameter(Mandatory=$True)]
    # Provide path to image
    [string]$Image,
    # Provide wallpaper style that you would like applied
    [parameter(Mandatory=$False)]
    [ValidateSet('Fill', 'Fit', 'Stretch', 'Tile', 'Center', 'Span')]
    [string]$Style
)
 
$WallpaperStyle = Switch ($Style) {
  
    "Fill" {"10"}
    "Fit" {"6"}
    "Stretch" {"2"}
    "Tile" {"0"}
    "Center" {"0"}
    "Span" {"22"}
  
}
 
If($Style -eq "Tile") {
 
    New-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name WallpaperStyle -PropertyType String -Value $WallpaperStyle -Force
    New-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name TileWallpaper -PropertyType String -Value 1 -Force
 
}
Else {
 
    New-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name WallpaperStyle -PropertyType String -Value $WallpaperStyle -Force
    New-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name TileWallpaper -PropertyType String -Value 0 -Force
 
}
 
Add-Type -TypeDefinition @" 
using System; 
using System.Runtime.InteropServices;
  
public class Params
{ 
    [DllImport("User32.dll",CharSet=CharSet.Unicode)] 
    public static extern int SystemParametersInfo (Int32 uAction, 
                                                   Int32 uParam, 
                                                   String lpvParam, 
                                                   Int32 fuWinIni);
}
"@ 
  
    $SPI_SETDESKWALLPAPER = 0x0014
    $UpdateIniFile = 0x01
    $SendChangeEvent = 0x02
  
    $fWinIni = $UpdateIniFile -bor $SendChangeEvent
  
    $ret = [Params]::SystemParametersInfo($SPI_SETDESKWALLPAPER, 0, $Image, $fWinIni)
}

$result = Invoke-RestMethod 'https://magic.wizards.com/en/news#wallpapers'
$result -match "//(.*?)2560(.*?).png"
$wallpaper = $Matches[0]
$picfolder = [Environment]::GetFolderPath([Environment+SpecialFolder]::MyPictures)
$filename = $wallpaper.Split('/')[-1]
$foldername = "MTG Wallpapers"
$savefile = "$picfolder\$foldername\$filename"

If (-not (Test-Path "$picfolder\$foldername")) {
    New-Item -Path $picfolder -name $foldername -ItemType "directory"
}

If (-not (Test-Path $savefile)) {
        Invoke-WebRequest http:$wallpaper -OutFile $savefile
        Set-WallPaper -Image $savefile -Style Fill
}

Paste that into PowerShell ISE and run it and see if it works. If you like it, save it and put a shortcut in your startup folder. By default it downloads the 2560x1600 version but if you want a different one just replace the 2560 in the line $result -match "//(.?)2560(.?).png" with 1920 or 1280. It saves images in a folder under your Pictures folder called MTG Wallpapers. You can change that too if you want by editing the $picfolder and $foldername lines.

Have fun.

no comments (yet)
sorted by: hot top controversial new old
there doesn't seem to be anything here