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