[分享]我总结的API播放WAV,AVI,MP3,MID

abcd321abcd · 发表于 2007-8-13 10:15

谢谢楼主,谢谢楼主.

xrczld · 发表于 2007-8-13 11:13

QUOTE:

以下是引用zhoujibin1在2007-6-5 8:30:15的发言：
是不是媒体播放也很简单啊? 当初我找这些却花了不少时间精力啊.便宜你们小子啦.

高手,厉害.学习中.呵呵.顶你个高空.谢谢你的好东西.还真的很少有这些...

xrczld · 发表于 2007-8-13 11:13

QUOTE:

以下是引用zhoujibin1在2007-6-5 11:27:57的发言：

自己研究吧, 我为大家奉献太多啦,已经太累了!

MP3是我程序里拷贝出来的公共函数,播放mp3,调用就可以啦. 这些音乐播放都不出来窗口的,只有AVI视频有窗口,难道不出来能看电影吗?

说的很有意思的,你太有才了....

sjzhouah · 发表于 2007-8-13 11:19

在Excel中用VBScript做的播放器： ikCKHMU4.rar (1.25 KB, 下载次数: 97)

源代码（放在记事本中，再把记事本后缀改成*.html即可）

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY>Windows Media Player system of VBScript
<META content="Microsoft Visual Studio" name=GENERATOR>
<SCRIPT language=vbscript id=clientEventHandlersVBS>
Sub Button1_onclick
dim a
CommonDialog1.ShowOpen
a=CommonDialog1.FileName
msgbox "Player: " & a
WMPPlayer41.openPlayer(a)
End Sub
</SCRIPT>

<DIV ms_positioning="GridLayout">
<TABLE height=295 cellSpacing=0 cellPadding=0 width=254 border=0
ms_2d_layout="TRUE">
<TBODY>
<TR vAlign=top>
    <TD width=4 height=5></TD>
    <TD width=4></TD>
    <TD width=85></TD>
    <TD width=161></TD></TR>
<TR vAlign=top>
    <TD height=248></TD>
    <TD colSpan=3>
      <OBJECT id=WMPPlayer41 height=240 width=245
      classid=clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6 VIEWASTEXT><PARAM NAME="URL" VALUE=""><PARAM NAME="rate" VALUE="1"><PARAM NAME="balance" VALUE="0"><PARAM NAME="currentPosition" VALUE="0"><PARAM NAME="defaultFrame" VALUE=""><PARAM NAME="playCount" VALUE="1"><PARAM NAME="autoStart" VALUE="-1"><PARAM NAME="currentMarker" VALUE="0"><PARAM NAME="invokeURLs" VALUE="-1"><PARAM NAME="baseURL" VALUE=""><PARAM NAME="volume" VALUE="50"><PARAM NAME="mute" VALUE="0"><PARAM NAME="uiMode" VALUE="full"><PARAM NAME="stretchToFit" VALUE="0"><PARAM NAME="windowlessVideo" VALUE="0"><PARAM NAME="enabled" VALUE="-1"><PARAM NAME="enableContextMenu" VALUE="-1"><PARAM NAME="fullScreen" VALUE="0"><PARAM NAME="SAMIStyle" VALUE=""><PARAM NAME="SAMILang" VALUE=""><PARAM NAME="SAMIFilename" VALUE=""><PARAM NAME="captioningID" VALUE=""><PARAM NAME="enableErrorDialogs" VALUE="0"><PARAM NAME="_cx" VALUE="6482"><PARAM NAME="_cy" VALUE="6350"></OBJECT></TD></TR>
<TR vAlign=top>
    <TD colSpan=2 height=2></TD>
    <TD rowSpan=2><INPUT id=Button1 type=button value=Select></TD>
    <TD></TD></TR>
<TR vAlign=top>
    <TD colSpan=2 height=40></TD>
    <TD>
      <OBJECT id=CommonDialog1 height=32 width=32
      classid=clsid:F9043C85-F6F2-101A-A3C9-08002B2F49FB><PARAM NAME="_ExtentX" VALUE="847"><PARAM NAME="_ExtentY" VALUE="847"><PARAM NAME="_Version" VALUE="393216"><PARAM NAME="CancelError" VALUE="0"><PARAM NAME="Color" VALUE="0"><PARAM NAME="Copies" VALUE="1"><PARAM NAME="DefaultExt" VALUE=""><PARAM NAME="DialogTitle" VALUE=""><PARAM NAME="FileName" VALUE=""><PARAM NAME="Filter" VALUE=""><PARAM NAME="FilterIndex" VALUE="0"><PARAM NAME="Flags" VALUE="0"><PARAM NAME="FontBold" VALUE="0"><PARAM NAME="FontItalic" VALUE="0"><PARAM NAME="FontName" VALUE=""><PARAM NAME="FontSize" VALUE="8"><PARAM NAME="FontStrikeThru" VALUE="0"><PARAM NAME="FontUnderLine" VALUE="0"><PARAM NAME="FromPage" VALUE="0"><PARAM NAME="HelpCommand" VALUE="0"><PARAM NAME="HelpContext" VALUE="0"><PARAM NAME="HelpFile" VALUE=""><PARAM NAME="HelpKey" VALUE=""><PARAM NAME="InitDir" VALUE=""><PARAM NAME="Max" VALUE="0"><PARAM NAME="Min" VALUE="0"><PARAM NAME="MaxFileSize" VALUE="260"><PARAM NAME="PrinterDefault" VALUE="1"><PARAM NAME="ToPage" VALUE="0"><PARAM NAME="Orientation" VALUE="1"></OBJECT></TD></TR></TBODY></TABLE></DIV></BODY></HTML>

[此贴子已经被作者于2007-8-13 12:09:25编辑过]

xrczld · 发表于 2007-8-13 11:37

锦上添花.

yclotus · 发表于 2007-8-13 13:24

做个标记。。。

bmdsjxyw · 发表于 2011-6-21 20:14

留下学习的印记

ww0000 · 发表于 2011-11-15 20:02

我试了好象不行呀

ww0000 · 发表于 2011-11-15 20:04

不行，出现如图的错误提示

zhouyxh · 发表于 2011-11-15 20:35

不错啊! 先收藏了! 哈哈!

		自动登录	找回密码
密码			免费注册