Script:

# Caminho da pasta onde os wallpapers estão armazenados

$caminhoWallpapers = "C:\Caminho\Para\Seus\Wallpapers"



# Obtém todos os arquivos de imagem na pasta especificada

$imagens = Get-ChildItem -Path $caminhoWallpapers -Include *.jpg, *.png, *.bmp -File



# Seleciona uma imagem aleatória da lista

$imagemAleatoria = Get-Random -InputObject $imagens



# Define o caminho completo da imagem selecionada

$caminhoImagem = $imagemAleatoria.FullName



# Define o wallpaper usando a API do Windows

Add-Type -TypeDefinition @"

using System;

using System.Runtime.InteropServices;

public class Wallpaper {

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

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

}

"@



# Constante para definir o wallpaper

$SPI_SETDESKWALLPAPER = 0x0014

$SPIF_UPDATEINIFILE = 0x01

$SPIF_SENDCHANGE = 0x02



# Altera o wallpaper

[Wallpaper]::SystemParametersInfo($SPI_SETDESKWALLPAPER, 0, $caminhoImagem, $SPIF_UPDATEINIFILE -bor $SPIF_SENDCHANGE)

Como Executar o Script:

1. Abra o PowerShell com privilégios de administrador.
2. Copie o script acima e cole em um arquivo com extensão .ps1, por exemplo, AlterarWallpaper.ps1.
3. Edite o caminho da variável $caminhoWallpapers para apontar para a pasta onde suas imagens de wallpaper estão armazenadas.
4. Salve o arquivo.
5. No PowerShell, navegue até o diretório onde o arquivo .ps1 está salvo.
6. Execute o script digitando .\AlterarWallpaper.ps1 e pressionando Enter.