从快捷方式更改桌面的Powershell脚本

Question

有关为什么在使用w /在PS中运行时有效的任何想法和建议，但在从定义为：

的快捷方式运行时没有

%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe -File "C:\Users\bin\ChangeDesktop.ps1"

ChangeDesktop.ps1的内容：

set-itemproperty -path "HKCU:Control Panel\Desktop" -name WallPaper -value ""
rundll32.exe user32.dll, UpdatePerUserSystemParameters

如果我在PS“命令提示符”环境中，桌面背景会自动删除并刷新，除此之外我必须手动刷新桌面以实现更改。

系统是Windows Server 2008 R2 - 全新安装。脚本executionpolicy设置为RemoteSigned，我没有看到任何PS错误。我从桌面快捷方式运行时看不到桌面自动刷新。

划伤头

Answer 1

rundll32.exe user32.dll, UpdatePerUserSystemParameters实际上并没有在2008 x64的盒子上为我更改壁纸。虽然这样做...它调用Win32 API来调用更改壁纸。如果将其保存为ChangeDesktop.ps1脚本，它应该可以正常工作。因为它在下面它将删除任何桌面壁纸。但是，如果您确实要设置一个，则可以使用支持的图像文件的路径编辑最后一行，如下所示：

[Wallpaper.Setter]::SetWallpaper( 'C:\Wallpaper.bmp', 0 )

第二个参数是造型：

0：平铺 1：中心 2：伸展 3：没有变化

剧本：

Add-Type @"
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
namespace Wallpaper
{
   public enum Style : int
   {
       Tile, Center, Stretch, NoChange
   }
   public class Setter {
      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, Wallpaper.Style style ) {
         SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
         RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);
         switch( style )
         {
            case Style.Stretch :
               key.SetValue(@"WallpaperStyle", "2") ; 
               key.SetValue(@"TileWallpaper", "0") ;
               break;
            case Style.Center :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "0") ; 
               break;
            case Style.Tile :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "1") ;
               break;
            case Style.NoChange :
               break;
         }
         key.Close();
      }
   }
}
"@

[Wallpaper.Setter]::SetWallpaper( '', 0 )

最初来自PoshCode：http://poshcode.org/491

Answer 2

这可能很奇怪，但对我有用的是使用单引号而不是双引号。所以它看起来像这样：

Set-ItemProperty -path "HKCU:Control Panel\Desktop" -name 'wallpaper' -value 'some value'
rundll32.exe user32.dll, UpdatePerUserSystemParameters

Answer 3

Andy Arismendi 提供的脚本真棒！

我用它做了一个有趣的项目 - 设置从网上抓取的随机壁纸 。

我在这里发帖给任何有兴趣的人。在使用它之前，您需要更改脚本源顶部的一些常量。您还需要下载HtmlAgilityPack.dll库（脚本注释中有说明）。

享受！

P.S。如果我正在使用的壁纸网站关闭或更改其布局，脚本中的抓取将会下地狱，但不过以我的脚本为例，我打赌你将能够构建另一个壁纸刮板。 < / p>

############## CONSTANTS ##############

# add the library for parsing html - HtmlAgilityPack - download it with nuget from https://www.nuget.org/packages/HtmlAgilityPack
# download nuget command line from https://dist.nuget.org/index.html and install HtmlAgilityPack with "nuget install HtmlAgilityPack" from the cmd

# enter the path to HtmlAgilityPack.dll library used for html parsing
$html_parser_path = "C:\Users\username\Documents\htmlagilitypack\HtmlAgilityPack.1.4.9.5\lib\Net20\HtmlAgilityPack.dll"

# choose where your wallpapers will be downloaded
$wallpaper_dir_path = "C:\Users\username\Pictures\"

# get random wallpaper category from wallpaperscraft.com - the ones below are my favourite categories, edit it if you want to get other categories

<#
you can choose your favorite wallpaper categories from the list below
    3D
    Abstract
    Animals
    Anime
    Brands
    Cars
    City
    Fantasy
    Flowers
    Food
    Games
    Girls
    Hi-Tech
    Holidays
    Macro
    Men
    Movies
    Music
    Nature
    Other
    Space
    Sport
    Textures
    TV Series
    Vector
#>

$categories = @("animals","flowers","macro","nature","space") 



# I download my wallpapers from the site below - real quality wallpapers
# don't forget to change your resolution - I'm using a 1920x1080 monitor

<#
A list of resolutions to choose from:

    1600x1200
    1400x1050
    1280x1024
    1280x960
    1152x864
    1024x768
    3840x2400
    3840x2160
    3840x1200
    2560x1600
    2560x1440
    2560x1080
    2560x1024
    2048x1152
    1920x1200
    1920x1080
    1680x1050
    1600x900
    1440x900
    1280x800
    1280x720
    2160x3840
    1440x2560
    1366x768
    1080x1920
    1024x600
    960x544
    800x1280
    800x600
    720x1280
    540x960
    480x854
    480x800
    400x480
    360x640
    320x480
    320x240
    240x400
    240x320
    2732x2732
    2048x2048
    1080x1920
    1024x1024
    750x1334
    640x1136
    640x960
    320x480
    1366x768
    1920x1080
    360x640
    1024x768
    1600x900
    1280x900
    1440x900
    1280x1024
    800x600
    1680x1050
    2560x1440
    320x480
    1920x1200
    480x800
    720x1280
#>

$resolution = "1920x1080" # default resolution
$url = "https://wallpaperscraft.com/catalog/category/$resolution" # category is a placeholder

############## END OF CONSTANT DECLARATIONS ##############

Add-Type @"
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
namespace Wallpaper
{
   public enum Style : int
   {
       Tile, Center, Stretch, NoChange
   }
   public class Setter {
      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, Wallpaper.Style style ) {
         SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );
         RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);
         switch( style )
         {
            case Style.Stretch :
               key.SetValue(@"WallpaperStyle", "2") ; 
               key.SetValue(@"TileWallpaper", "0") ;
               break;
            case Style.Center :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "0") ; 
               break;
            case Style.Tile :
               key.SetValue(@"WallpaperStyle", "1") ; 
               key.SetValue(@"TileWallpaper", "1") ;
               break;
            case Style.NoChange :
               break;
         }
         key.Close();
      }
   }
}
"@





Add-Type -Path $html_parser_path 

$rand_index = Get-Random -minimum 0 -maximum $categories.Length
$random_category = $categories[$rand_index]

# replace the placeholder "category" with the random category chosen above

$url = $url -replace "category", $random_category

$doc = New-Object HtmlAgilityPack.HtmlDocument
$doc.LoadHtml((New-Object System.Net.WebClient).DownloadString($url))

# NOTE: the html parser I'm using locates elements by XPath only
$page_links = $doc.DocumentNode.SelectSingleNode("//div[contains(@class, 'pages')]").SelectNodes("a")

# get last page link
$last_page_link = $page_links[$page_links.Count - 1].GetAttributeValue("href", "")

# get last page number 
$last_page_number = [regex]::match($last_page_link,'.*page(\d+)').Groups[1].Value

$random_page_number = Get-Random -minimum 0 -maximum $last_page_number
$random_page_addr = ""

# page 1 doesn't add anything to the url

if ($random_page_number -gt 0){
    $random_page_addr = "/page$random_page_number"
}

$doc.LoadHtml((New-Object System.Net.WebClient).DownloadString("$url$random_page_addr"))

# get wallpaper divs
$wallpaper_divs = $doc.DocumentNode.SelectNodes("//div[contains(@class, 'wallpaper_pre')]")

$random_wallpaper_div = Get-Random -minimum 0 -maximum 15 # there are 15 wallpapers on a page

# get a sample wallpaper link which has to be substituted later
$sample_wallpaper_link = $wallpaper_divs[$random_wallpaper_div].SelectNodes("a")[0].GetAttributeValue("href", "")

# substitute the above link to get the image link itself

$sample_wallpaper_link = $sample_wallpaper_link -replace "download", "image"
$sample_wallpaper_link = $sample_wallpaper_link -replace "/$resolution", "_$resolution.jpg"
$sample_wallpaper_link = $sample_wallpaper_link -replace "//", "https://"

$wallpaper_image_name = [regex]::match($sample_wallpaper_link,'.*image/(\w+)').Groups[1].Value
$wallpaper_image_name = "$wallpaper_image_name.jpg"

$wc = New-Object System.Net.WebClient

$save_location = "$wallpaper_dir_path$wallpaper_image_name"
$wc.DownloadFile($sample_wallpaper_link, "$save_location")

[Wallpaper.Setter]::SetWallpaper($save_location, 1 )

Answer 4

这个脚本可以创造奇迹。对于域部署，我们不希望每次用户登录时都不断更改后台。

我进行了以下更改，以便检查计算机中所需位置是否存在背景，如果确实存在则退出，如果不继续使用文件副本并设置背景。

它首先映射隐藏的共享，将文件复制到所需的目录，设置壁纸，然后断开隐藏的共享。如果贵公司已使用“X”，请插入另一个驱动器号。 ：d

$strFileName="C:\Users\Public\Pictures\background.jpg"
If (Test-Path $strFileName){
  # // File exists
  Exit-PSSession
}Else{
  # // File does not exist 
New-PSDrive -Name X -PSProvider Filesystem -Root   \\hiddenfileshare\wallpapers
Copy-Item X:\background.jpg C:\Users\Public\Pictures
[Wallpaper.Setter]::SetWallpaper( 'C:\Users\Public\Pictures\background.jpg',       0 )
Remove-PSDrive X
}