想回答朋友关于mci
奈何找不到标题了

一个cdplayer的关键语句
打开关闭光驱
mci "status MyCD media present"
if the result = "true" then
mci "set MyCD door open"
else
mci "set MyCD door closed"
end if
监测是否为cd
mci "status MyCD media present"
if the result <> "true" then
end if
第一曲
mci "status MyCD position"
put the result into TMSF
put chars(TMSF,1,2) into Track

歌曲时间
put "status MyCD length track " & Track into MCI_STR
mci MCI_STR
put chars(the result,1,5) into trackLength

已播放时间
put chars(TMSF,4,8) into playtime

播放
mci "play MyCD"
暂停
mci "pause MyCD"

停止
mci "play MyCD from 0"&trackno&":00:00:00"
mci "stop MyCD"
下一首
mci "status MyCD number of tracks"
put value(the result) into numTracks
mci "status MyCD position"
put value(chars(the result,1,2) ) into trackNo
if (trackNo = numTracks) then
set trackNo = 1
else
set trackNo = trackNo + 1
end if
put "play MyCD from " & string(trackNo) & ":00:00:00" into MCI_STR
mci MCI_STR
上一首
mci "status MyCD number of tracks"
put value(the result) into numTracks
mci "status MyCD position"
put value(chars(the result,1,2) ) into trackNo
if (trackNo = 1) then
set trackNo = numTracks
else
set trackNo = trackNo - 1
end if
put "play MyCD from " & string(trackNo) & ":00:00:00" into MCI_STR
mci MCI_STR