在网上查找资料的时候发现好多经典的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=CreateObje
上一个随笔说了一些关于vbs变量类型的内容,这一篇我们继续说说变量类型相关的内容. 一.NULL补充内容 '需要注意的是,NULL不能简单通过 = 来进行比较,而必须通过 'IsNull函数来实现 '下面用 = 进行比较,不会执行IF子句 Dim varTest varTest = Null If varTest = Null Then MsgBox "The variable varTest has NULL value." End If '下面用IsNull检测,会执行语句 If
可以编一个VBS文件调用BAT文件,使运行BAT文件时不显示命令窗口. 新建一个记事本文件,保存为abc.vbs,在文件中加入如下代码: Set shell = Wscript.createobject("wscript.shell") a = shell.run ("BAT文件所在文件夹\要运行的BAT文件.bat",0)