通过vb修改windows桌面背景

概述碰到一个需要修改桌面背景的需求，将解决方案分享，下面是通过vb写的（可以将如下代码放入一个html页面执行即可） <script language=vbscript> document.write("11111") Sub changeWallPaper set ws = createobject("wscript.shell")

碰到一个需要修改桌面背景的需求，将解决方案分享，下面是通过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.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.jpg"><button ID="btn" value="改变桌面背景" onclick="changeWallPaper">

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

@echo offif exist D:\deskTest\bak.jpg (del/q  D:\deskTest\bak.jpg)if exist D:\deskTest.bmp (rename D:\deskTest.bmp bak.jpg)rundll32.exe USER32.DLL,UpdatePerUserSystemParametersASSOC .AV=AVfile>Nul 2>Nul

总结

以上是内存溢出为你收集整理的通过vb修改windows桌面背景全部内容，希望文章能够帮你解决通过vb修改windows桌面背景所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。