用VBS播放音乐

昨天我们院赢了，晚上一起吃饭，喝了好多酒，一觉睡到下午2点才醒。头痛欲裂，想到好久没有听过音乐了，于是听听音乐，都是些很久以前的歌曲，会让我想起那些很久以前的事的歌曲。

也想到我很久以前用VBS写的播放器。（当然没有下面的那么简单，有GUI界面）

Dim wmp
Set wmp = CreateObject("WMPlayer.OCX")
wmp.URL = "just one last dance.mp3"
Do Until wmp.playState = 1
    WScript.Sleep 1000
Loop

随机文章:

1. 使用Scripting.Encoder加密VBS脚本
2. 工行网银使用U盾时提示“请选择您要用的证书”
3. 利用WMI打造完美“三无”后门-The Core
4. PHP & JavaScript: UTF-16 to UTF-8
5. PT流量作弊工具之mRatio

这篇文章发布于 2010年10月23日，星期六，17:08，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。