wmplayer_wmplayer总是重复播_media player播放器(2)

<!--播放器显示模式:Full显示全部;mini最简化;None不显示播放控制,只显示视频窗口;invisible全部不显示-->

<param name="windowlessVideo" value="0">

<!--如果是0可以允许全屏,否则只能在窗口中查看-->

<param name="fullScreen" value="0">

<!--开始播放是否自动全屏-->

<param name="enableErrorDialogs" value="-1">

<!--是否启用错误提示报告-->

<param name="SAMIStyle" value>

<!--SAMI样式-->

<param name="SAMILang" value>

<!--SAMI语言-->

<param name="SAMIFilename" value>

<!--字幕ID-->

二、示例之打开光驱

VBS实现弹出光驱一例：

Set wmp = CreateObject("WMPlayer.OCX.7")

Set cdrom = wmp.cdromCollection

cdrom.Item(0).Eject ''弹出

cdrom.Item(0).Eject ''关闭

再扩展一下，将其添加到右键菜单：

@echo off

echo Set wmp=CreateObject("WMPlayer.OCX.7")>%windir%\closecdrom.vbs

echo Set cdrom=wmp.cdromCollection>>%windir%\closecdrom.vbs

echo If cdrom.Count>=1 then>>%windir%\closecdrom.vbs

echo For z=0 to cdrom.Count-1>>%windir%\closecdrom.vbs

echo cdrom.Item(z).Eject>>%windir%\closecdrom.vbs

echo Next>>%windir%\closecdrom.vbs

echo For z=0 to cdrom.Count-1>>%windir%\closecdrom.vbs

echo cdrom.Item(z).Eject>>%windir%\closecdrom.vbs

echo Next>>%windir%\closecdrom.vbs

echo End If>>%windir%\closecdrom.vbs

echo y|reg add HKLM\SOFTWARE\Classes\Drive\shell\CloseCDROM /ve /d "关闭所有光驱(&C)"

echo y|reg add HKLM\SOFTWARE\Classes\Drive\shell\CloseCDROM\Command /ve /d "%windir%\System32\WScript.exe %windir%\closecdrom.vbs"

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-51295-2.html