在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。 VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObject("WScript.Shell") shell.run "shutdown -s -t 60 -c 系统即将关闭.",0 While InputBox("请输入答案","请回答")<>"123" *密码是123 MsgBox "

如申请小吧主、图片小编、视频小编,请发帖 格式为: 【标题:】【申请】XXX申请XXX职务 【内容:】 申请id: 申请职务: 担任过: 申请感言: 请勿匿名申请,否则申请无效,我们会在1-14天内处理,通过会通知

申请id:H_氢 申请职务:小吧主 担任过:H_氢吧大吧主、小吧主,我用帅诠释一切吧大吧主、小吧主,新理吧大吧主、小吧主、图片小编、视频小编,vbscript吧大吧主。 申请感言:我希望管理本吧,为本吧做出贡献(你在申请不能这么简单)

BY某位化吧吧友。

颜色常数 因为这些常数是在 VBScript中设置, 您在应用之前不必定义它们. 您可在代码中任意处应用它们以表明说明值。 常数 值 描述 vbBlack &h00 黑色 vbRed &hFF 红色 vbGreen &hFF00 绿色 vbYellow &hFFFF 黄色 vbBlue &hFF0000 蓝色 vbMagenta &hFF00FF 紫色 vbCyan &hFFFF00 青色 vbWhite &hFFFFFF 白色 比较常数 这些常数在 VBScript 中建立, 因此您在使用时不必定义它们. 您可在代码中任意处使用它们以表示说明值. 常数 值 描述 vbBinaryCompare 0 执行二进制比较。 v