不更改桌面壁纸,只用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}"
推荐阅读
- 桌面文件夹不见了恢复方法 桌面文件夹路径被删了怎么办
- 电脑主题下载 卡通_?谁能给我一个电脑主题包HP541的
- 硬件原因 电脑重启故障:电脑重启故障
- 设置电脑护眼模式操作方法 电脑的护眼模式在哪里设置
- 电脑蓝屏的原因及解决方法 电脑启动蓝屏怎么解决方法
- 笔记本电脑的维护问题,请帮助!;笔记本电脑维护与故障
- 电脑灯有哪些作用
- 判别性能高低技巧 笔记本电脑怎么看显卡配置
- Mac上截屏4种简单的方法 苹果电脑截屏怎么截一部分
- 电脑连接的外接音箱没声音处理方法 笔记本电脑外置扬声器没声音怎么办