Windows 如何通过命令提示更改墙纸图片位置?
我有一个VBScript文件,每小时换一次墙纸。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中。从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,它正在工作。谢谢