通过vb修改windows桌面背景

碰到一个需要修改桌面背景的需求，将解决方案分享，下面是通过vb写的（可以将如下代码放入一个html页面执行即可）

<script language=vbscript>
        document.write("22222")
        Sub changeWallPaper
           set ws = createobject("wscript.shell")
            document.write("2222")
           ws.regwrite "HKCUControl PanelDesktopwallpaper","d:deskTest4.jpg","REG_SZ"
           ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters" 
           ws.run "D:deskTestrefresh.bat"   
            document.write("3333")
        End Sub
        changeWallPaper
            document.write("4444")  
</script>

 
<img id=bgimg border="0" src="d:deskTest4.jpg">
<button id="btn" value="改变桌面背景" onclick="changeWallPaper">

D:deskTestrefresh.bat这个文件是用来刷新桌面的批处理文件，由于修改注册表后不刷新桌面没法及时显示更新桌面图片，代码如下：

@echo off
if exist D:deskTestbak.jpg (del/q  D:deskTestbak.jpg)
if exist D:deskTest7.bmp (rename D:deskTest7.bmp bak.jpg)
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
ASSOC .AV=AVFILE>NUL 2>NUL

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!