Windows 如何通过命令提示更改墙纸图片位置?

Windows 如何通过命令提示更改墙纸图片位置?,windows,vbscript,cmd,wallpaper,Windows,Vbscript,Cmd,Wallpaper,我有一个VBScript文件,每小时换一次墙纸。 图片位置会自动更改为填充,但我需要将其设置为适合。我可以每小时手动更改一次,但最好是通过命令进行更改,我可以将其添加到VBScript中。从google获得此代码。看看这是否有帮助 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0)

我有一个VBScript文件,每小时换一次墙纸。
图片位置会自动更改为填充,但我需要将其设置为适合。我可以每小时手动更改一次,但最好是通过命令进行更改,我可以将其添加到VBScript中。

从google获得此代码。看看这是否有帮助

Set oShell = CreateObject("WScript.Shell") 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 sWinDir = oFSO.GetSpecialFolder(0)
 sWallPaper = "C:\winnt.bmp"
 ' update in registry oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",sWallPaper 

' let the system know about the change oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,
HKCU\Control Panel\Desktop\Wallpaper中的键WallperStyle有三个值:0–Center;1–瓷砖;2-拉伸
根据您希望图片的显示方式,您可以选择其中一个选项。

将您迄今为止尝试过的代码张贴在这里。确定,它在这里:www.beetxt.com/xd8Yes,它正在工作。谢谢