VBScript do Windows MediaPlayer

Question

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:\Users09895\Downloads\test.mid")

    

Answer 1

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

em que a posição inicial de 10000 você coloca (< 3 segundos para inicializar > +) * 1000 (por milissegundos)

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

MsgBox "Press OK to stop playback"

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