2017-07-02 54 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