everest79

参考fastslz在另一贴内的示例扩展一下

Dim Wmp
Set Wmp=CreateObject("WMPlayer.OCX")
Wmp.Url="file:///E:/魔兽世界/Sound/Music/ZoneMusic/F1.mp3"
Wmp.controls.play
Wscript.Sleep 500
Msgbox Wmp.currentMedia.DurationString
Msgbox Wmp.currentMedia.getItemInfo("Duration")
复制代码