用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. 用VBS处理二进制文件的实例
  2. VBS普通青年 vs 文艺青年 vs 2B青年
  3. Windows 7关闭共享后怎样去掉图标上的小锁
  4. 在InternetExplorer.Application中显示本地图片
  5. 用Python脚本查询纯真IP库QQWry.dat(Demon修改版)

留下回复