[已解决] 窗口调用WMP播放音频，如何显示波形
本帖最后由 yhxhappy 于 2019-6-18 20:36 编辑各位好，
我想实现下面的效果
我想应该是调整HTML里面的参数，不知道该如何实现。
借用bing614代码
http://www.autoitx.com/forum.php ... 11109&highlight=wmp
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
$MTV = _IECreateEmbedded ()
Dim $text = "", $Dir = ""
Dim $message = "请选择视频文件"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("au3加载wmplayer例子", 530, 460, -1,-1)
$GUIActive = GUICtrlCreateObj($MTV, 0, 0, 530,420)
$Button1 = GUICtrlCreateButton("打开文件", 80, 430, 75, 25)
$Button2 = GUICtrlCreateButton("退出", 400, 430, 75, 25)
_IENavigate ($MTV, "about:blank")
_IEBodyWriteHTML ($MTV, _Html(""))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button2
Exit
Case $Button1
$text = FileOpenDialog($message, $Dir & "", "文件 (*.avi;*.mpg)", 4)
_IEBodyWriteHTML ($MTV, _Html($text))
EndSwitch
WEnd
Func _Html($_FileName)
$_html_String='<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="480" height="385"> ' & _
'<param name="AudioStream" value="-1" /> ' & _
'<param name="AutoSize" value="-1" /> ' & _
'<!--是否自动调整播放大小--> ' & _
'<param name="AutoStart" value="-1" /> ' & _
'<!--是否自动播放--> ' & _
'<param name="AnimationAtStart" value="-1" /> ' & _
'<param name="AllowScan" value="-1" /> ' & _
'<param name="AllowChangeDisplaySize" value="-1" /> ' & _
'<param name="AutoRewind" value="0" /> ' & _
'<param name="Balance" value="0" /> ' & _
'<!--左右声道平衡,最左-9640,最右9640--> ' & _
'<param name="BaseURL" value /> ' & _
'<param name="BufferingTime" value="15" /> ' & _
'<!--缓冲时间--> ' & _
'<param name="CaptioningID" value /> ' & _
'<param name="ClickToPlay" value="-1" /> ' & _
'<param name="CursorType" value="0" /> ' & _
'<param name="CurrentPosition" value="0" /> ' & _
'<!--当前播放进度 -1 表示不变,0表示开头 单位是秒,比如10表示从第10秒处开始播放,值必须是-1.0或大于等于0--> ' & _
'<param name="CurrentMarker" value="0" /> ' & _
'<param name="DefaultFrame" value /> ' & _
'<param name="DisplayBackColor" value="0" /> ' & _
'<param name="DisplayForeColor" value="16777215" /> ' & _
'<param name="DisplayMode" value="2" /> ' & _
'<param name="DisplaySize" value="2" /> ' & _
'<!--视频1-50%, 0-100%, 2-200%,3-全屏 其它的值作0处理,小数则采用四舍五入然后按前的处理--> ' & _
'<param name="Enabled" value="-1" /> ' & _
'<param name="EnableContextMenu" value="0" /> ' & _
'<!-是否用右键弹出菜单控制--> ' & _
'<param name="EnablePositionControls" value="-1" /> ' & _
'<param name="EnableFullScreenControls" value="-1" /> ' & _
'<param name="EnableTracker" value="0" /> ' & _
'<!--是否允许拉动播放进度条到任意地方播放--> ' & _
'<param name="Filename" value="' & $_FileName & '" valuetype="ref" />' & _
'<!--播放文件地址 --> ' & _
'<param name="InvokeURLs" value="-1" /> ' & _
'<param name="Language" value="-1" /> ' & _
'<param name="Mute" value="0" /> ' & _
'<!--是否静音--> ' & _
'<param name="PlayCount" value="10" /> ' & _
'<!--重复播放次数,0为始终重复--> ' & _
'<param name="PreviewMode" value="-1" /> ' & _
'<param name="Rate" value="1" /> ' & _
'<!--播放速度1.0-2.0倍的速度播放--> ' & _
'<param name="SAMILang" value /> ' & _
'<param name="SAMIStyle" value /> ' & _
'<param name="SAMIFileName" value /> ' & _
'<!--选择同时播放(伴音)的歌曲--> ' & _
'<param name="SelectionStart" value="-1" /> ' & _
'<param name="SelectionEnd" value="-1" /> ' & _
'<param name="SendOpenStateChangeEvents" value="-1" /> ' & _
'<param name="SendWarningEvents" value="-1" /> ' & _
'<param name="SendErrorEvents" value="-1" /> ' & _
'<param name="SendKeyboardEvents" value="0" /> ' & _
'<param name="SendMouseClickEvents" value="0" /> ' & _
'<param name="SendMouseMoveEvents" value="0" /> ' & _
'<param name="SendPlayStateChangeEvents" value="-1" /> ' & _
'<param name="ShowCaptioning" value="0" /> ' & _
'<!--是否显示字幕,为一块黑色,下面会有一大块黑色,一般不显示--> ' & _
'<param name="ShowControls" value="-1" /> ' & _
'<!--是否显示控制,比如播放,停止,暂停--> ' & _
'<param name="ShowAudioControls" value="-1" /> ' & _
'<!--是否显示音量控制--> ' & _
'<param name="ShowDisplay" value="0" /> ' & _
'<!--显示节目信息,比如版权等--> ' & _
'<param name="ShowGotoBar" value="0" /> ' & _
'<!--一条框,在下面,有往下箭头--> ' & _
'<param name="ShowPositionControls" value="-1" /> ' & _
'<!--是否显示往前往后及列表,如果显示一般也都是灰色不可控制--> ' & _
'<param name="ShowStatusBar" value="-1" /> ' & _
'<!--当前播放信息,显示是否正在播放,及总播放时间和当前播放到的时间--> ' & _
'<param name="ShowTracker" value="-1" /> ' & _
'<!--是否显示当前播放跟踪条,即当前的播放进度条--> ' & _
'<param name="TransparentAtStart" value="-1" /> ' & _
'<param name="VideoBorderWidth" value="0" /> ' & _
'<!--显示部的宽部,如果小于视频宽,则最小为视频宽,或者加大到指定值,并自动加大高度.此改变只改变四周的黑框大小,不改变视频大小--> ' & _
'<param name="VideoBorderColor" value="0" /> ' & _
'<!--显示黑色框的颜色, 为RGB值,比如ffff00为黄色--> ' & _
'<param name="VideoBorder3D" value="0" /> ' & _
'<param name="Volume" value="0" /> ' & _
'<!--音量大小,负值表示是当前音量的减值,值自动会取绝对值,最大为0,最小为-9640,最大0--> ' & _
'<param name="WindowlessVideo" value="0" /> ' & _
'<!--如果是0可以允许全屏,否则只能在窗口中查看--> ' & _
'</object> <br />' & _
'<script language=vbscript>for each obj in document.MediaPlayer1.all ' & _
'messagebox(obj) ' & _
'next ' & _
'</script> '
Return $_html_String
EndFunc
不知道为什么不能回复。一附上代码就提交失败
页:
[1]