电脑桌面背景免费下载VB怎样更改电脑桌面背景为拉伸
时间：2023-11-17 10:46:45
来源：网络
浏览：10次
不更改桌面壁纸，只用VB把桌面-属性里的平铺变成拉伸，请写下详细代码.
Set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKCU/Control Panel/Desktop/TileWallpaper", "0"
ws.RegWrite "HKCU/Control Panel/Desktop/WallpaperStyle", "2"
Shell "rundll32 shell32,Control_RunDLL desk.cpl", vbNormalFocus
SendKeys "{enter}"
Set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKCU/Control Panel/Desktop/TileWallpaper", "0"
ws.RegWrite "HKCU/Control Panel/Desktop/WallpaperStyle", "2"
Shell "rundll32 shell32,Control_RunDLL desk.cpl", vbNormalFocus
SendKeys "{enter}"
