一个音乐播放器

wuditom100

set Music= createobject("MCI.mmcontrol")
set Dlg= CreateObject("MSComDlg.CommonDialog")

play

If Dlg.filename<>"" Then
  Do
     c=msgbox("播放---|拨放请按下[是]|暂停请按下[否]|要重新打开一个文件请按下[取消]",64+3+4096,"wuditom100 VBScript")
     
          Music.Command="STOP"
          Music.command="CLOSE"
    Select Case c
       Case 6   '确定
          Music.Command="OPEN"
          Music.command="PLAY"
       Case 2  '取消
       Dlg.FileName=""
          play
    End select
Loop

Else
   MsgBox "没有选择的文件,是否退出?",64
End If

Sub play()

   Dlg.DialogTitle="打开一个文件"
   Dlg.Filter="所有支持的文件(*.avi;*.wav;*.mid;*.mp3)|*.avi;*.wav;*.mid;*.mp3|音乐文件(*.wav;*.mid;*.mp3)|*.wav;*.mid;*.mp3|视频文件(*.avi)|*.avi|所有文件|*.*"
   Dlg.MaxFileSize=260
   Dlg.flags=4
   Dlg.action=1
If Dlg.FileName="" then
    MsgBox "没有选择的文件,是否退出?",64
    WScript.Quit
else
  Music.filename =Dlg.filename
  Music.command="OPEN"
  Music.command="PLAY"
End if  
End sub

youxi01

呵呵，不错,支持原创

xxx3212

你写的代码用不鸟啊
ActiveX  部件不能创建对象: 'MCI.mmcontrol'

youxi01

呵呵，可能你没有相关的控件吧，我没去测试...

wuditom100

发生错误是由于没有注册ＭＣＩ控件，我提供了这个控件，解压后运行相应的批处理就可以了！呵呵

葱头

这是图形界面的不????????????????????

sa3sa3

另存为什么格式啊 ？

BatHome

这个是vbs区，自然后缀名为 ：vbs

yjydncel

很有个性,很喜欢.....

newxso

注册了控件后仍不能，弹出错误信息：

行：  1
字符：1
错误：找不到指定的模块
代码：800700E
源：  (null)