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"


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