admin 管理员组

文章数量: 1184232


2024年3月19日发(作者：软件开发教学视频)

VBS脚本常用经典代码收集

于 2011年7月2日21:13:37 整理

在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS播放音乐

Dim wmp

Set wmp = CreateObject("")

ate

= "想象之中.mp3"

Do Until ate = 1

1000

Loop

比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)

Set shell=CreateObject("")

"shutdown -s -t 60 -c 系统即将关闭.",0

While InputBox("请输入答案","请回答")<>"123" '密码是123

MsgBox "答案在心中...",16+4096 '4096 是让窗口在最顶层

Wend

"shutdown -a",0

MsgBox "恭喜",64

修改桌面背景图片

Sphoto="d:"'输入你自己的BMP路径

computer="."

Const hkcu=&h80000001

Set wmi=GetObject("winmgmts:"& computer &"rootdefault:stdregprov")

ingvalue hkcu,"Control PanelDesktop","Wallpaper",Spath

ingvalue hkcu,"Control PanelDesktop","TileWallpaper","0"


本文标签： 脚本 代码 经典 收集 时候

版权声明：本文标题：VBS脚本常用代码大全 2011 整理 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1710842126a575808.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。