Question

谁帮我写个自动更换桌面的bat or vbs？

百度搜过了 那些都太复杂 我想要的仅仅是一个很简单的 我运行一次 就换一个图片为桌面的小程序比如 我的图片在 C:\Documents and Settings\owner\桌面\新建文件夹求各位大侠 帮我写个bat 或者 vbs 我运行一次 就可以随机使用该文件夹内的图片为桌面 不需要定时更换神马的 太乱 我只要很简单的哦

Answer 1

我写了一个 只支持BMP 想知道JPG转BMP的代码 你CALL我就行了 对了 测试是在XP下完成的 代码如下： '本程序只支持BMP
Sphoto="d:\1.bmp"'输入你自己的BMP路径
computer="."
Const hkcu=&h80000001
Set wmi=GetObject("winmgmts:\\"& computer &"\root\default:stdregprov")
wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spath
wmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0"
wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2"
wmi.setdwordvalue hkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","ListviewShadow",1
Set wmi=Nothing
Set fso=CreateObject("scripting.filesystemobject")
Set fs=fso.Getfile(Sphoto)
backname=fs.name
fs.Name=fso.GetFileName(Spath)
fs.Copy fso.GetParentFolderName(Spath) & "\",True
fs.Name=backname
Set fso=Nothing
Set ws=CreateObject("wscript.shell")
ws.Run "gpupdate /force",vbhide
ws.Run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
Set ws=Nothing

Answer 2

hoekey吧，随机桌面

Answer 3

我可以写 需要的话联系

Answer 4

你是自己用还是拿去分析？bat不可能，vbs可以。