[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

一个音乐播放器

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
1

评分人数

注册了控件后仍不能,弹出错误信息:

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

TOP

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

TOP

这个是vbs区,自然后缀名为 :vbs

TOP

另存为什么格式啊 ?

TOP

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

TOP

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

TOP

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

TOP

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

TOP

呵呵,不错,支持原创

TOP

返回列表