vbs代码比较简单【挺少写vbs的，代码结构不咋样啊】，主要是下载
至于怎么找到bing壁纸源那就得看bing网站JS源码
压缩文件中包括：
bingWallpaper.vbs --- 主程序
setwallpaper.exe --- 设置桌面壁纸工具
百度网盘

360,报毒了。。。

====================2014.10.27更新===================
现在只需要纯vbs脚本来实现功能
新地址：[无效] http://pan.baidu.com/s/1pJqgdHT

====================2014.10.28更新===================
1.调整结构，更加清晰
2.图片有两种分辨率可选
新地址：[无效] http://pan.baidu.com/s/1sjBaJ0p

很长时间以来大家都是通过 VBS 修改注册表键值来更换壁纸的，但修改注册表键值这个方法有缺陷：还有就是通过命令行工具 WallpaperChanger.exe 和 SetWallpaper.exe 来更换壁纸。今天楼主的代码让我大开眼界，感谢楼主的 setWallpaper(picPath) 函数。如果楼主有什么需要解决的VBS方面的问题，我定帮忙解决。

赞

楼主，建议你这里的代码加上一个 Exit For，意思为当 item.Name = "设置为桌面背景(&B)" 时，设置壁纸并退出 For Each...Next 循环，这样不用继续向下寻找，节约几倍时间，虽然可以忽略不计：
For Each item In items
If item.Name = "设置为桌面背景(&B)" Then
item.DoIt
Exit For
End If
Next