前端之家收集整理的这篇文章主要介绍了
通过vb修改windows桌面背景，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_
301_0@碰到一个需要
修改桌面背景的需求，将
解决方案
分享，下面是通过vb写的（可以将如下
代码放入一个html
页面执行即可）
<script language=vbscript>
document.write("11111")
Sub changeWallPaper
set ws = createobject("wscript.shell")
document.write("2222")
ws.regwrite "HKCU\Control Panel\Desktop\wallpaper","d:\deskTest\4.jpg","REG_SZ"
ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
ws.run "D:\deskTest\refresh.bat"
document.write("3333")
End Sub
changeWallPaper
document.write("4444")
</script>
<img id=bgimg border="0" src="d:\deskTest\4.jpg">
<button id="btn" value="改变桌面背景" onclick="changeWallPaper">
@H_
301_0@D:\deskTest\refresh.bat这个
文件是用来刷新桌面的批处理
文件，由于
修改注册表后不刷新桌面没法及时
显示更新桌面
图片，
代码如下：
@echo off
if exist D:\deskTest\bak.jpg (del/q D:\deskTest\bak.jpg)
if exist D:\deskTest\7.bmp (rename D:\deskTest\7.bmp bak.jpg)
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
ASSOC .AV=AVFILE>NUL 2>NUL
原文链接：https://www.f2er.com/vb/258913.html
