Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade
Script:
' Script para tocar um som de pássaros no Windows
' Caminho para o arquivo de som
Dim caminhoSom
caminhoSom = "C:\caminho\para\seu\arquivo\sompassaros.wav"
' Cria um objeto de som
Dim somObjeto
Set somObjeto = CreateObject("WMPlayer.OCX")
' Configura o arquivo de som
somObjeto.URL = caminhoSom
' Toca o som
somObjeto.controls.play
' Mantém o script ativo até que o som termine
Do While somObjeto.playState <> 1
WScript.Sleep 100
Loop
' Libera o objeto de som
Set somObjeto = Nothing
Como Executar o Script:
.vbs
, por exemplo, tocarSomPassaros.vbs
.