电脑桌面背景免费下载VB怎样更改电脑桌面背景为拉伸

dn001 2010-10-07 11:35:52

不更改桌面壁纸，只用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}"

上一篇 请问，有什么方法能让电脑桌面的背景永远不能换？?电脑

下一篇 电脑装机详细流程:电脑装机流程图