VBS播放WMP文件

Set wmp = CreateObject("WMPlayer.OCX")
wmp.URL = ""
While wmp.playState<>1
	WSH.Sleep 1000
Wend

startplay ''播放状态
1=停止
2=暂停中
3=正在播放
4=向前搜索
5=向后搜索
6=缓冲中
7=等待中
8=播放完毕
9=转换曲目
10=准备就绪
//取得媒体当前位置,以形如 06:01 的时间形式显示
wmp.controls.currentPositionString
//取得媒体当前位置,以形如 300.001 的秒数形式显示,精确到毫秒  
wmp.controls.currentPosition
//取得媒体总长度,以形如 06:01 的时间形式显示          
wmp.currentMedia.durationString  
//取得媒体总长度,以形如 300.001 的秒数形式显示,精确到毫秒
wmp.currentMedia.duration