如何用VB制作一个自动更换电脑桌面背景的程序？求指导

要用到其它电脑上面，你还得把图片也放过去是吧不过你可以用图片收藏里那几个经典的图片，所有的电脑都有 注册表改背景的键值如下： 在“注册表编辑器”中依次展开 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ 在该注册表项下建立名为 System 的项（如在Policies分支下已有System项，则无须此步骤） 在 System 项下建立名为 Wallpaper 和 WallpaperStyle 的两个“字串符值” 对于字串符值定义的解释： Wallpaper 有两个可以定义的值： 空 或 某图片具体路径位置及文件名（路径可以允许设为本地路径或 UNC 路径） 如果 Wallpaper 字串符值为空，则桌面背景固定为添加该字串符值前所设的图片，且在“显示属性”中的“桌面”选项卡中的“背景”框中呈不可操作状。并且在“资源管理器”中浏览图片时，右键.jpg、.bmp图片文件中的上下文菜单的“设为桌面背景”操作将无效。但是该法有一缺点，使用第三方工具如ACDSee依旧可以更改桌面背景。 （注：此项比“组策略”法中的"阻止更改桌面"策略略强，能使得上下文菜单中的“设为桌面背景”无效） 如果 Wallpaper 字串符值设置为某图片或Html文件的路径及文件名（如F:\abc.jpg或F:\abc.html），那么桌面背景将强制更改为该值中所指定的图片文件或Html文件（F:\abc.jpg或F:\abc.html），且在“显示属性”中的“桌面”选项卡中的“背景”框中仍然呈不可操作状，并且第三方工具的桌面背景设置将无效。但是该法也有一缺点：桌面上的图标将消失“阴影”特效，很是难看。 WallpaperStyle 有三个可以定义的值： 0＝居中 1＝平铺 2＝拉伸 当 WallpaperStyle 设置为上述三个值（数字）中的一个，那么将强制“显示属性”中的“桌面”选项卡中的“位置”下拉菜单为对应值效果，并同样呈不可操作状。 更多信息： · 在上述的注册表项(System 项）中建立名为 NoDispBackgroundPage 的 DWORD 值，且定义键值为 1 （有效，相反设为0为无效），则“显示属性”中将没有“桌面”选项卡。（此项对应“组策略”中的 "本地计算机"策略/用户配置/管理模板/控制面板/显示 中的 隐藏“桌面”选项卡 策略） ·在下面注册表项中新建名为 ActiveDesktop 的项 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ 并在 ActiveDesktop 项中建立名为 NoChangingWallPaper 的DWORD值，定义键值为1（有效，相反设为0为无效），则“显示属性”中的“桌面”选项卡下的“背景”、“浏览”和“位置”下拉菜单呈不可操作状（此键值对应“组策略”的 "本地计算机"策略/用户配置/管理模板/控制面板/显示 列表下的"阻止更改墙纸"策略）。图片文件的上下文菜单中的“设为桌面背景”和第三方工具均可更改桌面背景。 你好，（此内容转载为其它用户的回答） .

创新互联专注于雨城网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供雨城营销型网站建设，雨城网站制作、雨城网页设计、雨城网站官网定制、小程序设计服务，打造雨城网络公司原创品牌,更为您提供雨城网站排名全网营销落地服务。

VB更换桌面壁纸

Private Declare Function SystemParametersInfo Lib "user32" Alias 　"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_SENDWININICHANGE = H2

Const SPIF_UPDATEINIFILE = H1

Private Sub Form_Load()

ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER,

0, "Path+BmpFile", 0)

End Sub

使用这个例程确实能够切换墙纸，但存在以下问题：

1、用鼠标右键点击桌面，会看到【背景】→【墙纸】里面的文件名是空的。

2、重新启动后桌面墙纸消失。

3、没告诉您怎么切换"居中"或"平铺"。

怎么解决这些问题呢？

1、Windows的墙纸必须以BMP格式的文件存放在Windows目录下面，如果您的图片不在该目录或不是BMP文件，那么就会出现第一个问题。因此必须把您的图片转换成BMP文件并复制到Windows目录下面。

2、要使重新启动后需要在注册表里面修改相应的键值，具体位置是 HKEY_CURRENT_USER\Control Panel\desktop中的Wallpaper键，让它的键值等于您的全路径文件名。

3、在更换墙纸以前首先设置是否"居中"，需要修改注册表中HKEY_CURRENT_USER\Control Panel\desktop中的TileWallpaper键，键值"0"表示"居中"，"1"表示"平铺"。

怎么用vb 更换桌面壁纸？

在根目录下放一bmp图片，名称为  壁纸.bmp

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long'设置为墙纸

Private Const SPI_SETDESKWALLPAPER = 20'将新的设置写入用户文件中，H1=1

Private Const SPIF_UPDATEINIFILE = H1

Private Sub Form_Load()

SystemParametersInfo SPI_SETDESKWALLPAPER, True, App.Path  "\壁纸.bmp", SPIF_UPDATEINIFILE

End Sub

dalao如何用vb或bat实现快速切换桌面壁纸(30fps)

VBS的，有两种方法：

1.通过结束Windows资源管理器来实现

隐藏：

set ws=createobject("wscript.shell")

ws.run "taskkill /im explorer.exe /f",0,true

显示：

set ws=createobject("wscript.shell")

ws.run "explorer.exe",0,true

2.通过修改注册表实现

隐藏：

set

ws=createobject("wscript.shell")

ws.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop",1,"REG_DWORD"

显示：

set ws=createobject("wscript.shell")

ws.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop",0,"REG_DWORD"

“隐藏”的代码保存为“隐藏.vbs”，“显示”的代码保存为“显示.vbs”，然后打开就可以了

BAT的代码介绍一种

隐藏：taskkill /im explorer.exe /f

显示：start explorer.exe

同样保存，最后的扩展名改为".bat"即可。

分享名称：vb.net更改桌面壁纸 vbs换壁纸
网页链接：http://scyanting.com/article/hhdedj.html