☰

VBScript Windows 媒体播放器

tag-icon • tag-icon windows-media-player vbscript code
VBScript Windows 媒体播放器

我正在尝试学习 VBScript，但我不明白这段代码有什么问题。它应该在计算机上播放一个 midi 文件并将音量设置为 100。这是记事本上的 Windows 7 VBScript。问题是该文件运行后没有给出错误消息，但不会改变音量或播放 midi。

set bob= wscript.CreateObject("WMPlayer.OCX.7")                      
bob.settings.autoStart= True                                                     
bob.settings.volume= 100                      
bob.URL= ("C:\Users\9009895\Downloads\test.mid")

答案1

脚本完成后，用于播放 midi 文件的 WMPlayer COM 对象就会被销毁。因此，您需要等待 midi 文件：

Wscript.Sleep 10000

其中不是 10000，而是 (<3 秒初始化> + ) * 1000 （毫秒）

或者如果你想让用户控制何时停止它：

MsgBox "Press OK to stop playback"

至于音量，我认为这只会将 WMPlayer 应用程序的音量设置为 100%，而不是系统音量。如果你想更改系统音量，你可能需要一个额外的工具，例如nircmd（更多内容请参见这里）

相关内容