DESATIVAR E ATIVAR O SOM DO PC

JORGESALES 02/08/2015 21:10:36
#449481
Preciso de um código para deixar o pc mudo e depois
ativar o som novamente, se possível que detecte se ele
já está ativo antes de deixar mudo.

Grato a todos que possam ajudar
TUNUSAT 03/08/2015 08:05:50
#449484 Resposta escolhida
JORGESALES,

O VB6 basicamente faz tudo, mas é especificamente feito para trabalhar com Sistemas Transacionais.
Eu estava fuçando na internet e achei uma API ... mas é preciso entender:

====================================================
How to play a sound in VB6 with PlaySound() [closed]

Public Declare Function PlaySound Lib [Ô]winmm.dll[Ô] Alias [Ô]PlaySoundA[Ô] _
    (ByVal lpszName As String,                                       _
     ByVal hModule As Long,                                          _
     ByVal dwFlags As Long) As Long


Private Const SND_APPLICATION As Long = &H80
Private Const SND_ALIAS As Long       = &H10000
Private Const SND_ALIAS_ID As Long    = &H110000
Private Const SND_ASYNC As Long       = &H1
Private Const SND_FILENAME As Long    = &H20000
Private Const SND_LOOP As Long        = &H8
Private Const SND_MEMORY As Long      = &H4
Private Const SND_NODEFAULT As Long   = &H2
Private Const SND_NOSTOP As Long      = &H10
Private Const SND_NOWAIT As Long      = &H2000
Private Const SND_PURGE As Long       = &H40
Private Const SND_RESOURCE As Long    = &H40004
Private Const SND_SYNC As Long        = &H0


PlaySound [Ô]X:\Sounds    rumpet.wav[Ô], 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP


Veja também:

====================================================
Practical Sound Recorder with Sound Activation
http://www.codeproject.com/Articles/814903/Practical-Sound-Recorder-with-Sound-Activation
====================================================
VB6.0 – Sound and DirectXSound Tutorial
http://www.vbforums.com/showthread.php?388562-VB6-0-–-Sound-and-DirectXSound-Tutorial
====================================================
Multimedia Player Class Engine using the winmm.dll
http://www.a1vbcode.com/app-4510.asp
====================================================
Tocando SOM com VB.NET
http://www.macoratti.net/colab6.htm
====================================================

[][ô]s,
Tunusat.
JORGESALES 03/08/2015 23:34:45
#449516
Não sei se é bem isso que preciso, vou testar aqui pra ver.
Desde já muito obrigado por [txt-color=#0000f0]mais esta[/txt-color] grande ajuda.
TUNUSAT 04/08/2015 08:25:02
#449519
JORGESALES,

é que o VB6 não é feito para som, vídeos e jogos... mas é não é impossível, somente mais difícil de trabalhar com estes pontos, pois não é especialidade do VB6.
Abaixo achei um código interessante:

=================================================
Volume.exe: Set volume control levels using Visual Basic
https://support.microsoft.com/en-us/kb/178456
=================================================

Acho que vou montar um exemplo com este código e postar aqui.

[][ô]s,
Tunusat.
TUNUSAT 04/08/2015 09:34:24
#449525
JORGESALES,

Você viu os exemplos aqui no site? Digite [Ô]SOM[Ô] na busca acima.

==================================================
CONTROLE DE SOM/MIXER
http://www.vbmania.com.br/index.php?modulo=detalhe&id=6834
==================================================
...

[][ô]s,
Tunusat.
TUNUSAT 04/08/2015 13:30:29
#449540
JORGESALES,

Outro interessante:

================================================================

Read and Set the Systems Master Volume Settings
http://www.freevbcode.com/ShowCode.asp?ID=2358

================================================================
Read and Set the Systems Master Volume Settings
Category: Multimedia/Games
Type: Modules
Difficulty: Advanced
Author: Dean Dusenbery
Version Compatibility: Visual Basic 6

More information:
This module allows you to read or set system volume settings such as WaveOut, CD, Microphone, etc. To use it, call its OpenMixer function passing the number of the mixer you want to access (usually 0). Then you can read or set the volume and mute values.

Instructions: Click the link below to download the code. Select [ô]Save[ô] from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.

Download mixermodule.zip
================================================================

[][ô]s,
Tunusat.
JORGESALES 05/08/2015 12:35:42
#449599
Tunusat,
muito obrigado pela ajuda, mas o que preciso era que ao clicar no botão
[Ô]Enter[Ô] ele fizesse o papel do TAB (isso já estou fazendo) só que faz um
barulho irritante toda vez, então achei que poderia fazer um código simples
para que ao precionar a tecla ele colocasse o PC no mudo, fizesse o que
desejo e, ao final restaurasse o som novamente.
A ideia é boa, mas a execução é difícil.
TUNUSAT 05/08/2015 13:40:11
#449611
JORGESALES,

Se é dentro do código VB6, existe uma função [Ô]BEEP[Ô] ... será que já não está no código?!?

=====================================
Função de bipe
https://msdn.microsoft.com/pt-br/library/kz27k38z(v=VS.90).aspx

Dim I As Integer

For I = 1 To 100   [ô] Loop 100 times.
   Beep   [ô] Sound a tone.
Next I

=====================================
Change Frequency of Beep Sound in VB
http://www.freevbcode.com/ShowCode.asp?ID=3812
=====================================

Se for no Windows:

=====================================
Desative os Beeps do Windows XP
http://www.baboo.com.br/tutorial/tutorial-de-windows/tutorial-windows-xp/desative-os-beeps-do-windows-xp/
=====================================
Desative os beeps de alerta do Windows 7
http://www.youtube.com/watch?v=DXKzXqjAMP4
=====================================
Chega de barulho! Desative os sons do Windows
http://www.tecmundo.com.br/musica/2017-chega-de-barulho-desative-os-sons-do-windows.htm
=====================================
Windows - Desativar o bip do alto falante interno (Win 2000/XP/V
http://br.ccm.net/faq/7091-windows-desativar-o-bip-do-alto-falante-interno-win-2000-xp-v
=====================================


[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar