2017-07-02 55 views
-4

我有一个VBScript文件,每小时更换一次壁纸。 图片位置自动更改为填充,但我需要将其设置为“适合”。我可以每小时手动更改一次,但最好通过命令进行更改,以便将其添加到VBScript中。如何通过命令提示符更改壁纸图片位置?

+6

发布你的代码,无论你尝试到现在为止 –

+0

好吧,它在这里:www.beetxt.com/xd8 – 0x0

+0

[为什么“有人可以帮助我?”不是一个真正的问题?](http:// meta。 stackoverflow.com/q/284236) – EJoshuaS

回答

0

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

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 \控制面板\桌面\壁纸的关键WallpaperStyle有三个值:0 - 中心; 1 - 瓷砖; 2 - 拉伸 根据您希望如何显示图片,您将选择其中一个选项。

+0

是的,它工作。谢谢 – 0x0