Questão VBScript do Windows MediaPlayer


Estou tentando aprender VBScript e não consigo entender o que está errado com esse código. É suposto reproduzir um arquivo midi e definir o volume para 100 no computador. Isso está no Windows 7 VBScript no bloco de notas. O problema é que o arquivo é executado e não apresenta uma mensagem de erro, mas não altera o volume nem reproduz o midi.

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

0


origem


Então, como você está rodando? Qual é o erro? - DavidPostill♦
Não pense que haveria um erro. Se este for todo o seu script, ele será encerrado rapidamente e, como o objeto Com WMPlayer será destruído, nada acontece. - Syberdoor


Respostas:


O objeto COM do WMPlayer que supostamente deve reproduzir o arquivo midi é destruído assim que o script é concluído. Então você precisa aguardar enquanto o arquivo midi estiver com:

Wscript.Sleep 10000

onde isntead de 10000 você coloca (<3 segundos para inicializar> +) * 1000 (por milissegundos)

Ou se você quiser dar ao usuário controle sobre quando pará-lo:

MsgBox "Press OK to stop playback"

Quanto ao volume eu acho que isso só vai definir o volume do aplicativo WMPlayer para 100% não o do sistema. Se você quiser alterar o volume do sistema, provavelmente precisará de uma ferramenta adicional como nircmd (mais veja Aqui)


0