Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade

Script para Tocar Som de Pássaros no Windows

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:

  1. Abra o Bloco de Notas no Windows.
  2. Copie e cole o código acima no Bloco de Notas.
  3. Altere o caminho do arquivo de som para o local onde seu arquivo de som de pássaros está armazenado.
  4. Salve o arquivo com a extensão .vbs, por exemplo, tocarSomPassaros.vbs.
  5. Dê um duplo clique no arquivo salvo para executar o script e ouvir o som de pássaros.

To share Download PDF

Gostou do artigo? Deixe sua avaliação!
Sua opinião é muito importante para nós. Clique em um dos botões abaixo para nos dizer o que achou deste conteúdo.