在网上查找资料的时候发现好多经典的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…
if(typeof Shadowbox=="undefined"){ throw"Unable to load Shadowbox, no base library adapter found."}(function(){ var version="1.0"; var options={assetURL:context+"/static/style/images/", loadingImage:"loading.gi…