+ Responder ao Tópico
Página 1 de 2 1 2 ÚltimoÚltimo
Resultados 1 a 30 de 55

Tópico: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

  1. #1
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Agreguei mais uma função ao script que faz o corte do microfone e limita o volume por horário no PsRockola. Agora ele também tira foto do usuário que conseguir nota 6 ou maior, e exibe na área destinada a publicidade.

    Os 10 arquivos de imagem que o script cria dentro da pasta PUBLICIDAD, nomeados "img0.bmp" , "img1.bmp" até "img9.bmp" serão substituídos pelas fotos batidas. Quando todas as posições estão preenchidas e uma nova foto é capturada, a mais antiga é eliminada. Imagens de publicidade ainda podem ser colocadas nesta pasta.

    Inclui a opção de ligar iluminação para foto, caso seja necessário. No cabeçario do script há indicação de quais pinos da porta da impressora você deve usar para controlar o microfone e a iluminação.

    Pelo arquivo config.ini da para alterar alguns parâmetros do script. Se a webcam der imagem preta experimente trocar o número em driver_cam no config.ini. O padrão é zero. Eu testei aqui com uma webcam bem "podre" marca CREATY (deve ter um 5 anos) e funcionou bem.

    Link: http://1drv.ms/1mEhOdn
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  2. #2
    Detonador de games sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar Avatar de sr p
    Data de Ingresso
    12/2011
    Posts
    1.166
    Mentioned
    276 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    135

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval

    Que isso meu camarada ???? Vc tá fera nisso hein !!! Se superou de novo !!!!
    Vou comprar a webcam para fazer os testes ! Novamente dando uma p*** ajuda para todos !
    Muito obrigado e + um UP para vc !
    imagem ASSINATURA 3

  3. #3
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Excelente joaocadaval vejo que cada vez vc evolui mais, parabéns.
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  4. #4
    Mestre dos Arcades Caseiros Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Avatar de Fábio iGames
    Data de Ingresso
    03/2013
    Localização
    São Paulo / Sp - Zona Sul
    Posts
    628
    Mentioned
    162 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    195

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval Cara vc é mais um que tiro o Chapéu aqui.
    Tô com a Vida super corrida, mas espero eu poder contribuir com algo aqui em termos de programação.
    Você escreve em outra linguagem além de Autoit?
    Parabéns João.

  5. #5
    Mestre dos Arcades Caseiros kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar kayser2008 É esplêndido para se contemplar Avatar de kayser2008
    Data de Ingresso
    10/2010
    Posts
    730
    Mentioned
    62 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    113

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Realmente muito bom antigamente havia umas maquinas tactil (Europlay) que fazia precisamente o mesmo guardava com foto e nome as 10 melhores scores de cada jogo ,pena as jukebox aqui nao terem grande aceitaçao.
    MODO COPA DO MUNDO

  6. #6
    Detonador de games Aldo tem uma aura espetacular. Aldo tem uma aura espetacular. Aldo tem uma aura espetacular. Avatar de Aldo
    Data de Ingresso
    05/2009
    Posts
    1.111
    Mentioned
    8 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    115

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @ joaocadaval
    Poderia dar mais detalhes do sistema de ligação dos pinos, quais os pinos utilizados é necessário ligar algum relé?

    Tem muitas formas, de se fazer uma mesma coisa!!!!!!

  7. #7
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @Aldo
    Os pinos do microfone são: 2,3,4 e 5 pode usar qualquer um ou todos juntos para acionar o circuito de controle do microfone.
    Os pinos 6,7,8,e 9 são para ativação da iluminação para foto, e também pode usar qualquer um.
    Certamente precisa de relê ou algo parecido para controlar cargas pela porta da impressora. Vou fazer um circuito para esta função e posto aqui.

    @Belini
    Você é o mestre, tenho aprendido mais contigo, analisando teus scripts, do que em qualquer outro lugar. Obrigado!


    @Fábio iGames
    Sou da época do microprocessador Z80. Já fiz muito programa em assembly Z80 e micro controladores. E é o tipo de programação que mais gosto de fazer, pois mexe com hardware e lógica digital, gosto d + de eletrônica digital.

    Espero que este script seja realmente útil a todos.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  8. #8
    Detonador de games sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar Avatar de sr p
    Data de Ingresso
    12/2011
    Posts
    1.166
    Mentioned
    276 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    135

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval

    Acho que é uma boa atitude de sua parte compartilhar (ou como outros diriamAR MOLE) e o fórum é para isso mesmo !!!

    Obrigado novamente pela boa iniciativa e o que vc depender de mim,estarei a sua disposição !
    Muito obrigado !

    PSosso repetir o UP ? Vou te upar de novo ! Rs rs rs rs...Vc merece....
    Última edição por Belini; 02/06/2014 às 09:32.
    imagem ASSINATURA 3

  9. #9
    Jogador de God of War (2005) Rocfield É um farol de luz gloriosa Rocfield É um farol de luz gloriosa Rocfield É um farol de luz gloriosa Rocfield É um farol de luz gloriosa Rocfield É um farol de luz gloriosa Rocfield É um farol de luz gloriosa
    Data de Ingresso
    08/2012
    Posts
    75
    Mentioned
    8 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    66

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Parabéns irmão! Que Deus conserve sua inteligência sempre! +1

  10. #10
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval o programa microkê controla o som dos microfones vc sabe em Autoit qual comando faz isto?
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  11. #11
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Estou pesquisando e testando algumas opções, assim que tiver algo positivo te respondo.


    EDITADO: @Belini , consegui coisa muito boa. Agora é 1:40... eu estou pregado... de manhã te passo.
    Última edição por joaocadaval; 03/06/2014 às 01:45.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  12. #12
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Blz, estou curioso prá ver o que vc encontrou!
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  13. #13
    Mestre dos Arcades Caseiros Fernando de lima É realmente muito bom. Fernando de lima É realmente muito bom. Fernando de lima É realmente muito bom. Fernando de lima É realmente muito bom. Avatar de Fernando de lima
    Data de Ingresso
    05/2009
    Localização
    Vila Formosa - SP
    Posts
    529
    Mentioned
    45 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    99

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Muito boa a sua iniciativa, a um tempo atrás eu estava precisando usar a câmera para um outro programa e não tinha conseguido, vou dar uma olhada .. abraços e obrigado ..

    Citação Postado originalmente por joaocadaval Ver Post
    Agreguei mais uma função ao script que faz o corte do microfone e limita o volume por horário no PsRockola. Agora ele também tira foto do usuário que conseguir nota 6 ou maior, e exibe na área destinada a publicidade.

    Os 10 arquivos de imagem que o script cria dentro da pasta PUBLICIDAD, nomeados "img0.bmp" , "img1.bmp" até "img9.bmp" serão substituídos pelas fotos batidas. Quando todas as posições estão preenchidas e uma nova foto é capturada, a mais antiga é eliminada. Imagens de publicidade ainda podem ser colocadas nesta pasta.

    Inclui a opção de ligar iluminação para foto, caso seja necessário. No cabeçario do script há indicação de quais pinos da porta da impressora você deve usar para controlar o microfone e a iluminação.

    Pelo arquivo config.ini da para alterar alguns parâmetros do script. Se a webcam der imagem preta experimente trocar o número em driver_cam no config.ini. O padrão é zero. Eu testei aqui com uma webcam bem "podre" marca CREATY (deve ter um 5 anos) e funcionou bem.

    Link: http://1drv.ms/1mEhOdn

  14. #14
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @Belini

    Encontrei muita coisa sobre o assunto na internet, porém, quase nada funciona. Esbarrei em uma UDF muito boa "audio.au3" mas também não funcionou, pelo menos pra mim, (coloquei no link caso queira testar).
    Dando uma "penerada" no material encontrado deu para tirar duas funções _MixerGet() e _MixerSet(). Da para ler e alterar todos os controles do mixer, inclusive microfone. Junto tem um teste de exemplo.

    http://1drv.ms/1mNrlPB

    Os gringos são fera na manipulação de DLL.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  15. #15
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    O "dSpeakers" funcionou mais com o "sMicrophone" não deu certo, meu teste foi no XP e vc testou em qual windows?
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  16. #16
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Testei no XP sp3.
    Vai na função e muda os valores $iMixerID e $iComponentInstance, muda um por vez nas duas funções.


    Func _MixerGet($sComponentType, $sControlType)
    $iMixerID = 0 <<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $iComponentInstance = 1 <<<<<<<<<<<<<<<<<<
    Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, False, 0)
    SetError(@error)
    Return $iRet
    EndFunc


    Func _MixerSet($sComponentType, $sControlType, $iNewParamValue)
    $iMixerID = 0 <<<<<<<<<<<<<<<<<
    $iComponentInstance = 1 <<<<<<<<<<<<<<<<<<<<<
    Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, True, $iNewParamValue)
    SetError(@error)
    Return $iRet
    EndFunc ;==>_MixerSet
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  17. #17
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Testei deixando os dois em "0" e depois os dois em "1" e ambos só mostraram "0" no console já deixando da forma original vai de "0" a "100" mais o volume do microfone não altera.
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  18. #18
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Roda esta rotina e faz alteração manual no controle do mixer.

    #include"MixerGetSet.au3"

    While 1
    ConsoleWrite (_MixerGet("sMicrophone","Volume") & @CRLF)
    sleep(100)
    WEnd

    se o valor variar é porque a função está Ok.
    Por descargo de consciência coloquei no onedrive a dll que usei, pode experimentar colocar ela junto com o script.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  19. #19
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Fiz o teste e só fica em 24, o estranho é que escolhendo Audio rear input não altera o volume em microfone nem em mixer só consigo aumentar e diminuir o microfone escolhendo Audio rear output 2 que no caso seria saída de áudio mais mesmo nesta opção que consigo mudar o volume fica mostrando 24 no console.

    Spoiler!
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  20. #20
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    É, realmente, eu também consegui o controle no output. O meu audio fica assim:
    Realtek HD Audio output

    Esse HD Audio rear output 2 que aparece no teu se deve a que ???

    No meu as saídas dianteiras e traseiras ficam no mesmo mixer.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  21. #21
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Não sei o porquê deste 2 no final pois não tem o número 1 dele só tem as 3 opções:
    - HD audio front mic
    - HD audio rear input
    - HD Audio rear output 2

    Este último deve corresponder ao mesmo seu.
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  22. #22
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Talvez tenha algum outro driver instalado e pode estar atrapalhando. Eu tentaria uma reinstalação do aúdio, claro que limpando tudo antes.
    Testei o script no Win 7 e não funcionou. O mixer é bem diferente.

    tu já tentou assim:
    $iMixerID = 0
    $iComponentInstance = 2

    Ou assim:
    $iMixerID = 1
    $iComponentInstance = 1
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  23. #23
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.471
    Mentioned
    771 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Grande @joaocadaval , agora funcionou inclusive a barra do microfone desliza quando coloco o script de teste prá rodar agora precisamos saber como fazer no Win 7 pois infelizmente o XP já está em fim de carreira.

    EDITADO: Adicionei no início da UDF um pequeno código prá verificar com qual valor está funcionando, primeiro tenta mudar o volume para "5" e depois para "0" usando o valor "1" se um deles não alterar é porque vai ser preciso usar o valor "2", neste caso se funcionar com o valor "1" o volume sempre iniciará em "0" que foi o último valor setado.

    No início da UDF:
    Código:
    Global $vol_mic = 1, $iComponentInstance = 1; inicia as variáveis com o valor "1"
    
    _MixerSet("sMicrophone", "volume", 5); tenta mudar o volume para "5"
    Local $vol1 = _MixerGet("sMicrophone", "Volume"); verifica se o volume mudou
    
    _MixerSet("sMicrophone", "volume", 0); tenta mudar o volume para "0"
    Local $vol2 = _MixerGet("sMicrophone", "Volume"); verifica se o volume mudou
    
    If $vol1 <> 0 or $vol2 <> 5 Then $vol_mic = 2; se 1 dos testes falhou muda para "2"
    Nas funções _MixerSet() e _MixerGet() estas alterações:
    Código:
    Func _MixerGet($sComponentType, $sControlType)
    	If $sComponentType = "dSpeakers" Then
    		$iComponentInstance = 1; se for alto falante usa o valor "1"
    	Else
    		$iComponentInstance = $vol_mic; se for microfone usa o valor que passou no teste
    	EndIf
    	$iMixerID = 0
    	Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, False, 0)
    	SetError(@error)
    	Return $iRet
    EndFunc   ;==>_MixerGet
    
    Func _MixerSet($sComponentType, $sControlType, $iNewParamValue)
    	If $sComponentType = "dSpeakers" Then
    		$iComponentInstance = 1; se for alto falante usa o valor "1"
    	Else
    		$iComponentInstance = $vol_mic; se for microfone usa o valor que passou no teste
    	EndIf
    	$iMixerID = 0
    	Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, True, $iNewParamValue)
    	SetError(@error)
    	Return $iRet
    EndFunc   ;==>_MixerSet
    UDF alterada:
    Código:
    ;_MixerGet
    ;_MixerSet
    
    #include <GUIConstants.au3>
    
    Const $MCA_WMID = 1
    Const $MCA_WPID = 2
    Const $MCA_VDRIVERVERSION = 3
    Const $MCA_SZPNAME = 4
    Const $MCA_FDWSUPPORT = 5
    Const $MCA_CDESTINATIONS = 6
    Const $MCA_STRUCT_DEF = "ushort;ushort;uint;char[32];dword;dword"
    Const $ML_CBSTRUCT = 1
    Const $ML_DWDESTINATION = 2
    Const $ML_DWSOURCE = 3
    Const $ML_DWLINEID = 4
    Const $ML_FDWLINE = 5
    Const $ML_DWUSER = 6
    Const $ML_DWCOMPONENTTYPE = 7
    Const $ML_CCHANNELS = 8
    Const $ML_CCONNECTIONS = 9
    Const $ML_CCONTROLS = 10
    Const $ML_SZSHORTNAME = 11
    Const $ML_SZNAME = 12
    Const $ML_DWTYPE = 13
    Const $ML_DWDEVICEID = 14
    Const $ML_WMID = 15
    Const $ML_WPID = 16
    Const $ML_VDRIVERVERSION = 17
    Const $ML_SZPNAME = 18
    Const $ML_STRUCT_DEF = "dword;dword;dword;dword;dword;dword;dword;dword;dword;dword;char[16];char[64];dword;dword;ushort;ushort;uint;char[32]"
    Const $MCO_CBSTRUCT = 1
    Const $MCO_DWCONTROLID = 2
    Const $MCO_DWCONTROLTYPE = 3
    Const $MCO_FDWCONTROL = 4
    Const $MCO_CMULTIPLEITEMS = 5
    Const $MCO_SZSHORTNAME = 6
    Const $MCO_SZNAME = 7
    Const $MCO_LMINIMUM = 8
    Const $MCO_LMAXIMUM = 9
    Const $MCO_DWMINIMUM = 8
    Const $MCO_DWMAXIMUM = 9
    Const $MCO_DWRESERVED_1 = 10
    Const $MCO_CSTEPS = 11
    Const $MCO_CBCUSTOMDATA = 11
    Const $MCO_DWRESERVED_2 = 12
    Const $MCO_STRUCT_DEF = "dword;dword;dword;dword;dword;char[16];char[64];dword;dword;dword[4];dword;dword[5]"
    Const $MLC_CBSTRUCT = 1
    Const $MLC_DWLINEID = 2
    Const $MLC_DWCONTROLID = 3
    Const $MLC_DWCONTROLTYPE = 3
    Const $MLC_CCONTROLS = 4
    Const $MLC_CBMXCTRL = 5
    Const $MLC_PAMXCTRL = 6
    Const $MLC_STRUCT_DEF = "dword;dword;dword;dword;dword;ptr"
    Const $MCD_CBSTRUCT = 1
    Const $MCD_DWCONTROLID = 2
    Const $MCD_CCHANNELS = 3
    Const $MCD_HWNDOWNER = 4
    Const $MCD_CMULTIPLEITEMS = 4
    Const $MCD_CBDETAILS = 5
    Const $MCD_PADETAILS = 6
    Const $MCD_STRUCT_DEF = "dword;dword;dword;dword;dword;ptr"
    Const $MCDU_DWVALUE = 1
    Const $MCDU_STRUCT_DEF = "dword"
    
    Const $MIXERLINE_COMPONENTTYPE_DST_FIRST = 0x00000000
    Const $MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 0
    Const $MIXERLINE_COMPONENTTYPE_DST_DIGITAL = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 1
    Const $MIXERLINE_COMPONENTTYPE_DST_LINE = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 2
    Const $MIXERLINE_COMPONENTTYPE_DST_MONITOR = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 3
    Const $MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 4
    Const $MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 5
    Const $MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 6
    Const $MIXERLINE_COMPONENTTYPE_DST_WAVEIN = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 7
    Const $MIXERLINE_COMPONENTTYPE_DST_VOICEIN = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 8
    Const $MIXERLINE_COMPONENTTYPE_DST_LAST = $MIXERLINE_COMPONENTTYPE_DST_FIRST + 8
    Const $MIXERLINE_COMPONENTTYPE_SRC_FIRST = 0x00001000
    Const $MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0
    Const $MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1
    Const $MIXERLINE_COMPONENTTYPE_SRC_LINE = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2
    Const $MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3
    Const $MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4
    Const $MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5
    Const $MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6
    Const $MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7
    Const $MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8
    Const $MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9
    Const $MIXERLINE_COMPONENTTYPE_SRC_ANALOG = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10
    Const $MIXERLINE_COMPONENTTYPE_SRC_LAST = $MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10
    
    Global $aiComponentTypes[20]
    Global $asComponentTypes[20]
    
    $aiComponentTypes[0] = $MIXERLINE_COMPONENTTYPE_DST_UNDEFINED
    $aiComponentTypes[1] = $MIXERLINE_COMPONENTTYPE_DST_DIGITAL
    $aiComponentTypes[2] = $MIXERLINE_COMPONENTTYPE_DST_LINE
    $aiComponentTypes[3] = $MIXERLINE_COMPONENTTYPE_DST_MONITOR
    $aiComponentTypes[4] = $MIXERLINE_COMPONENTTYPE_DST_SPEAKERS
    $aiComponentTypes[5] = $MIXERLINE_COMPONENTTYPE_DST_HEADPHONES
    $aiComponentTypes[6] = $MIXERLINE_COMPONENTTYPE_DST_TELEPHONE
    $aiComponentTypes[7] = $MIXERLINE_COMPONENTTYPE_DST_WAVEIN
    $aiComponentTypes[8] = $MIXERLINE_COMPONENTTYPE_DST_VOICEIN
    $aiComponentTypes[9] = $MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED
    $aiComponentTypes[10] = $MIXERLINE_COMPONENTTYPE_SRC_DIGITAL
    $aiComponentTypes[11] = $MIXERLINE_COMPONENTTYPE_SRC_LINE
    $aiComponentTypes[12] = $MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE
    $aiComponentTypes[13] = $MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER
    $aiComponentTypes[14] = $MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC
    $aiComponentTypes[15] = $MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE
    $aiComponentTypes[16] = $MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER
    $aiComponentTypes[17] = $MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT
    $aiComponentTypes[18] = $MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY
    $aiComponentTypes[19] = $MIXERLINE_COMPONENTTYPE_SRC_ANALOG
    
    $asComponentTypes[0] = "dUndefined"
    $asComponentTypes[1] = "dDigital"
    $asComponentTypes[2] = "dLine"
    $asComponentTypes[3] = "dMonitor"
    $asComponentTypes[4] = "dSpeakers"
    $asComponentTypes[5] = "dHeadphones"
    $asComponentTypes[6] = "dTelephone"
    $asComponentTypes[7] = "dWave"
    $asComponentTypes[8] = "dVoice"
    $asComponentTypes[9] = "sUndefined"
    $asComponentTypes[10] = "sDigital"
    $asComponentTypes[11] = "sLine"
    $asComponentTypes[12] = "sMicrophone"
    $asComponentTypes[13] = "sSynthesizer"
    $asComponentTypes[14] = "sCompactDisc"
    $asComponentTypes[15] = "sTelephone"
    $asComponentTypes[16] = "sPCSpeaker"
    $asComponentTypes[17] = "sWave"
    $asComponentTypes[18] = "sAuxiliary"
    $asComponentTypes[19] = "sAnalog"
    
    Const $MIXERCONTROL_CT_CLASS_CUSTOM = 0x00000000
    Const $MIXERCONTROL_CT_CLASS_METER = 0x10000000
    Const $MIXERCONTROL_CT_CLASS_SWITCH = 0x20000000
    Const $MIXERCONTROL_CT_CLASS_NUMBER = 0x30000000
    Const $MIXERCONTROL_CT_CLASS_SLIDER = 0x40000000
    Const $MIXERCONTROL_CT_CLASS_FADER = 0x50000000
    Const $MIXERCONTROL_CT_CLASS_TIME = 0x60000000
    Const $MIXERCONTROL_CT_CLASS_LIST = 0x70000000
    
    Const $MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = 0x00000000
    Const $MIXERCONTROL_CT_SC_SWITCH_BUTTON = 0x01000000
    
    Const $MIXERCONTROL_CT_SC_METER_POLLED = 0x00000000
    
    Const $MIXERCONTROL_CT_SC_TIME_MICROSECS = 0x00000000
    Const $MIXERCONTROL_CT_SC_TIME_MILLISECS = 0x01000000
    
    Const $MIXERCONTROL_CT_SC_LIST_SINGLE = 0x00000000
    Const $MIXERCONTROL_CT_SC_LIST_MULTIPLE = 0x01000000
    
    Const $MIXERCONTROL_CT_UNITS_CUSTOM = 0x00000000
    Const $MIXERCONTROL_CT_UNITS_BOOLEAN = 0x00010000
    Const $MIXERCONTROL_CT_UNITS_SIGNED = 0x00020000
    Const $MIXERCONTROL_CT_UNITS_UNSIGNED = 0x00030000
    Const $MIXERCONTROL_CT_UNITS_DECIBELS = 0x00040000
    Const $MIXERCONTROL_CT_UNITS_PERCENT = 0x00050000
    
    Const $MIXERCONTROL_CONTROLTYPE_CUSTOM = BitOR($MIXERCONTROL_CT_CLASS_CUSTOM, $MIXERCONTROL_CT_UNITS_CUSTOM)
    Const $MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = BitOR($MIXERCONTROL_CT_CLASS_METER, $MIXERCONTROL_CT_SC_METER_POLLED, $MIXERCONTROL_CT_UNITS_BOOLEAN)
    Const $MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = BitOR($MIXERCONTROL_CT_CLASS_METER, $MIXERCONTROL_CT_SC_METER_POLLED, $MIXERCONTROL_CT_UNITS_SIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_PEAKMETER = $MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1
    Const $MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = BitOR($MIXERCONTROL_CT_CLASS_METER, $MIXERCONTROL_CT_SC_METER_POLLED, $MIXERCONTROL_CT_UNITS_UNSIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_BOOLEAN = BitOR($MIXERCONTROL_CT_CLASS_SWITCH, $MIXERCONTROL_CT_SC_SWITCH_BOOLEAN, $MIXERCONTROL_CT_UNITS_BOOLEAN)
    Const $MIXERCONTROL_CONTROLTYPE_ONOFF = $MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1
    Const $MIXERCONTROL_CONTROLTYPE_MUTE = $MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2
    Const $MIXERCONTROL_CONTROLTYPE_MONO = $MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3
    Const $MIXERCONTROL_CONTROLTYPE_LOUDNESS = $MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4
    Const $MIXERCONTROL_CONTROLTYPE_STEREOENH = $MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5
    Const $MIXERCONTROL_CONTROLTYPE_BUTTON = BitOR($MIXERCONTROL_CT_CLASS_SWITCH, $MIXERCONTROL_CT_SC_SWITCH_BUTTON, $MIXERCONTROL_CT_UNITS_BOOLEAN)
    Const $MIXERCONTROL_CONTROLTYPE_DECIBELS = BitOR($MIXERCONTROL_CT_CLASS_NUMBER, $MIXERCONTROL_CT_UNITS_DECIBELS)
    Const $MIXERCONTROL_CONTROLTYPE_SIGNED = BitOR($MIXERCONTROL_CT_CLASS_NUMBER, $MIXERCONTROL_CT_UNITS_SIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_UNSIGNED = BitOR($MIXERCONTROL_CT_CLASS_NUMBER, $MIXERCONTROL_CT_UNITS_UNSIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_PERCENT = BitOR($MIXERCONTROL_CT_CLASS_NUMBER, $MIXERCONTROL_CT_UNITS_PERCENT)
    Const $MIXERCONTROL_CONTROLTYPE_SLIDER = BitOR($MIXERCONTROL_CT_CLASS_SLIDER, $MIXERCONTROL_CT_UNITS_SIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_PAN = $MIXERCONTROL_CONTROLTYPE_SLIDER + 1
    Const $MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = $MIXERCONTROL_CONTROLTYPE_SLIDER + 2
    Const $MIXERCONTROL_CONTROLTYPE_FADER = BitOR($MIXERCONTROL_CT_CLASS_FADER, $MIXERCONTROL_CT_UNITS_UNSIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_VOLUME = $MIXERCONTROL_CONTROLTYPE_FADER + 1
    Const $MIXERCONTROL_CONTROLTYPE_BASS = $MIXERCONTROL_CONTROLTYPE_FADER + 2
    Const $MIXERCONTROL_CONTROLTYPE_TREBLE = $MIXERCONTROL_CONTROLTYPE_FADER + 3
    Const $MIXERCONTROL_CONTROLTYPE_EQUALIZER = $MIXERCONTROL_CONTROLTYPE_FADER + 4
    Const $MIXERCONTROL_CONTROLTYPE_SINGLESELECT = BitOR($MIXERCONTROL_CT_CLASS_LIST, $MIXERCONTROL_CT_SC_LIST_SINGLE, $MIXERCONTROL_CT_UNITS_BOOLEAN)
    Const $MIXERCONTROL_CONTROLTYPE_MUX = $MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1
    Const $MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = BitOR($MIXERCONTROL_CT_CLASS_LIST, $MIXERCONTROL_CT_SC_LIST_MULTIPLE, $MIXERCONTROL_CT_UNITS_BOOLEAN)
    Const $MIXERCONTROL_CONTROLTYPE_MIXER = $MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1
    Const $MIXERCONTROL_CONTROLTYPE_MICROTIME = BitOR($MIXERCONTROL_CT_CLASS_TIME, $MIXERCONTROL_CT_SC_TIME_MICROSECS, $MIXERCONTROL_CT_UNITS_UNSIGNED)
    Const $MIXERCONTROL_CONTROLTYPE_MILLITIME = BitOR($MIXERCONTROL_CT_CLASS_TIME, $MIXERCONTROL_CT_SC_TIME_MILLISECS, $MIXERCONTROL_CT_UNITS_UNSIGNED)
    
    Global $aiControlTypes[30]
    Global $asControlTypes[30]
    
    $aiControlTypes[0] = $MIXERCONTROL_CONTROLTYPE_CUSTOM
    $aiControlTypes[1] = $MIXERCONTROL_CONTROLTYPE_BOOLEANMETER
    $aiControlTypes[2] = $MIXERCONTROL_CONTROLTYPE_SIGNEDMETER
    $aiControlTypes[3] = $MIXERCONTROL_CONTROLTYPE_PEAKMETER
    $aiControlTypes[4] = $MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER
    $aiControlTypes[5] = $MIXERCONTROL_CONTROLTYPE_BOOLEAN
    $aiControlTypes[6] = $MIXERCONTROL_CONTROLTYPE_ONOFF
    $aiControlTypes[7] = $MIXERCONTROL_CONTROLTYPE_MUTE
    $aiControlTypes[8] = $MIXERCONTROL_CONTROLTYPE_MONO
    $aiControlTypes[9] = $MIXERCONTROL_CONTROLTYPE_LOUDNESS
    $aiControlTypes[10] = $MIXERCONTROL_CONTROLTYPE_STEREOENH
    $aiControlTypes[11] = $MIXERCONTROL_CONTROLTYPE_BUTTON
    $aiControlTypes[12] = $MIXERCONTROL_CONTROLTYPE_DECIBELS
    $aiControlTypes[13] = $MIXERCONTROL_CONTROLTYPE_SIGNED
    $aiControlTypes[14] = $MIXERCONTROL_CONTROLTYPE_UNSIGNED
    $aiControlTypes[15] = $MIXERCONTROL_CONTROLTYPE_PERCENT
    $aiControlTypes[16] = $MIXERCONTROL_CONTROLTYPE_SLIDER
    $aiControlTypes[17] = $MIXERCONTROL_CONTROLTYPE_PAN
    $aiControlTypes[18] = $MIXERCONTROL_CONTROLTYPE_QSOUNDPAN
    $aiControlTypes[19] = $MIXERCONTROL_CONTROLTYPE_FADER
    $aiControlTypes[20] = $MIXERCONTROL_CONTROLTYPE_VOLUME
    $aiControlTypes[21] = $MIXERCONTROL_CONTROLTYPE_BASS
    $aiControlTypes[22] = $MIXERCONTROL_CONTROLTYPE_TREBLE
    $aiControlTypes[23] = $MIXERCONTROL_CONTROLTYPE_EQUALIZER
    $aiControlTypes[24] = $MIXERCONTROL_CONTROLTYPE_SINGLESELECT
    $aiControlTypes[25] = $MIXERCONTROL_CONTROLTYPE_MUX
    $aiControlTypes[26] = $MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT
    $aiControlTypes[27] = $MIXERCONTROL_CONTROLTYPE_MIXER
    $aiControlTypes[28] = $MIXERCONTROL_CONTROLTYPE_MICROTIME
    $aiControlTypes[29] = $MIXERCONTROL_CONTROLTYPE_MILLITIME
    
    $asControlTypes[0] = "Custom"
    $asControlTypes[1] = "BooleanMeter"
    $asControlTypes[2] = "SignedMeter"
    $asControlTypes[3] = "PeakMeter"
    $asControlTypes[4] = "UnsignedMeter"
    $asControlTypes[5] = "Boolean"
    $asControlTypes[6] = "OnOff"
    $asControlTypes[7] = "Mute"
    $asControlTypes[8] = "Mono"
    $asControlTypes[9] = "Loudness"
    $asControlTypes[10] = "StereoEnh"
    $asControlTypes[11] = "Button"
    $asControlTypes[12] = "Decibels"
    $asControlTypes[13] = "Signed"
    $asControlTypes[14] = "Unsigned"
    $asControlTypes[15] = "Percent"
    $asControlTypes[16] = "Slider"
    $asControlTypes[17] = "Pan"
    $asControlTypes[18] = "QSoundPan"
    $asControlTypes[19] = "Fader"
    $asControlTypes[20] = "Volume"
    $asControlTypes[21] = "Bass"
    $asControlTypes[22] = "Treble"
    $asControlTypes[23] = "Equalizer"
    $asControlTypes[24] = "SingleSelect"
    $asControlTypes[25] = "Mux"
    $asControlTypes[26] = "MultipleSelect"
    $asControlTypes[27] = "Mixer"
    $asControlTypes[28] = "Microtime"
    $asControlTypes[29] = "Millitime"
    
    Const $MIXER_GETLINEINFOF_DESTINATION = 0x00000000
    Const $MIXER_GETLINEINFOF_SOURCE = 0x00000001
    Const $MIXER_GETLINEINFOF_LINEID = 0x00000002
    Const $MIXER_GETLINEINFOF_COMPONENTTYPE = 0x00000003
    Const $MIXER_GETLINEINFOF_TARGETTYPE = 0x00000004
    
    Const $MIXER_GETLINECONTROLSF_ALL = 0x00000000
    Const $MIXER_GETLINECONTROLSF_ONEBYID = 0x00000001
    Const $MIXER_GETLINECONTROLSF_ONEBYTYPE = 0x00000002
    
    Const $MIXER_GETCONTROLDETAILSF_VALUE = 0x00000000
    Const $MIXER_GETCONTROLDETAILSF_LISTTEXT = 0x00000001
    
    Const $MIXER_SETCONTROLDETAILSF_VALUE = 0x00000000
    Const $MIXER_SETCONTROLDETAILSF_CUSTOM = 0x00000001
    
    Global $vol_mic = 1, $iComponentInstance = 1; inicia as variáveis com o valor "1"
    
    _MixerSet("sMicrophone", "volume", 5); tenta mudar o volume para "5"
    Local $vol1 = _MixerGet("sMicrophone", "Volume"); verifica se o volume mudou
    
    _MixerSet("sMicrophone", "volume", 0); tenta mudar o volume para "0"
    Local $vol2 = _MixerGet("sMicrophone", "Volume"); verifica se o volume mudou
    
    If $vol1 <> 0 or $vol2 <> 5 Then $vol_mic = 2; se 1 dos testes falhou muda para "2"
    
    ;CÓDIGOS DE ERRO RETORNADOS
    
    ; 1 - ID do Mixer é inválido
    ; 2 - tipo de componente inválido
    ; 3 - instancia de componente invalida
    ; 4 - tipo de Controle inválido
    ; 5 - Não é possível abrir o Mixer especificado
    ; 6 - Mixer não suporta o componente especificado
    ; 7 - Mixer não tem o tipo de componente especificado
    ; 8 - componente não suporta o tipo de controle especificado
    ; 9 - Não é possível obter a configuração atual
    ; 10 - Não é possível alterar a configuração
    
    ;----------------------------------------------------------
    
    ;
    ; Nome:             _MixerGet
    ; Descrição:      Retorna o valor do controle solicitado
    ; Sintese           _MixerGet($sComponentType, $sControlType)
    ; Parametros:
    ;                   $sComponentType - Nome do componente
    ;
    ;                       - dUndefined
    ;                       - dDigital
    ;                       - dLine
    ;                       - dMonitor
    ;                       - dSpeakers
    ;                       - dHeadphones
    ;                       - dTelephone
    ;                       - dWave
    ;                       - dVoice
    ;                       - sUndefined
    ;                       - sDigital
    ;                       - sLine
    ;                       - sMicrophone
    ;                       - sSynthesizer
    ;                       - sCompactDisc
    ;                       - sTelephone
    ;                       - sPCSpeaker
    ;                       - sWave
    ;                       - sAuxiliary
    ;                       - sAnalog
    ;
    ;           $sControlType - Tipo de Controle
    ;
    ;                       - Custom
    ;                       - BooleanMeter
    ;                       - SignedMeter
    ;                       - PeakMeter
    ;                       - UnsignedMeter
    ;                       - Boolean
    ;                       - OnOff
    ;                       - Mute
    ;                       - Mono
    ;                       - Loudness
    ;                       - StereoEnh
    ;                       - Button
    ;                       - Decibels
    ;                       - Signed
    ;                       - Unsigned
    ;                       - Percent
    ;                       - Slider
    ;                       - Pan
    ;                       - QSoundPan
    ;                       - Fader
    ;                       - Volume
    ;                       - Bass
    ;                       - Treble
    ;                       - Equalizer
    ;                       - SingleSelect
    ;                       - Mux
    ;                       - MultipleSelect
    ;                       - Mixer
    ;                       - Microtime
    ;                       - Millitime
    ;
    ; Valor Retornado:    Sucesso - retorna @error = 0 e o valor do controle acessado
    ;                       caixa de seleção retorna 0 or 1.
    ;
    ;                   Falha - Retorna 0 e código do @error :
    ;
    ; 1 - ID do Mixer é inválido
    ; 2 - tipo de componente inválido
    ; 3 - instancia de componente invalida
    ; 4 - tipo de Controle inválido
    ; 5 - Não é possível abrir o Mixer especificado
    ; 6 - Mixer não suporta o componente especificado
    ; 7 - Mixer não tem o tipo de componente especificado
    ; 8 - componente não suporta o tipo de controle especificado
    ; 9 - Não é possível obter a configuração atual
    ; 10 - Não é possível alterar a configuração
    ;
    ;
    ;
    ;-------------------------------------------------------------
    
    Func _MixerGet($sComponentType, $sControlType)
    	If $sComponentType = "dSpeakers" Then
    		$iComponentInstance = 1; se for alto falante usa o valor "1"
    	Else
    		$iComponentInstance = $vol_mic; se for microfone usa o valor que passou no teste
    	EndIf
    	$iMixerID = 0
    	Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, False, 0)
    	SetError(@error)
    	Return $iRet
    EndFunc   ;==>_MixerGet
    
    ;----------------------------
    ;
    ; Nome:        _MixerSet
    ; Descrição:      Grava o valor no controle especificado
    ;
    ; Síntese:      _MixerSet($sComponentType, $sControlType, $iNewParamValue)
    ;
    ; Parametros:   $sComponentType = Nome do componente   (os mesmos da lista de _MixerGet)
    ;
    ;               $sControlType - Tipo de Controle (os mesmos da lista de _MixerGet)
    ;
    ;
    ;
    ;   $iNewParamValue = Novo valor
    ;                   Para controles (caixa de seleção) zero é igual Off e 1 é igual On.
    ;                   Para outros controles este é um percentual de 0 a 100
    ;
    ; Valores Retornados:   Successo Retorna @error = 0 e o valor fixado no controle
    ;
    ;                   Falha - Retorna 0 e código do @error (os mesmos da lista de _MixerGet)
    ;
    ;-----------------------------------------------------------------------------------------------
    Func _MixerSet($sComponentType, $sControlType, $iNewParamValue)
    	If $sComponentType = "dSpeakers" Then
    		$iComponentInstance = 1; se for alto falante usa o valor "1"
    	Else
    		$iComponentInstance = $vol_mic; se for microfone usa o valor que passou no teste
    	EndIf
    	$iMixerID = 0
    	Local $iRet = MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, True, $iNewParamValue)
    	SetError(@error)
    	Return $iRet
    EndFunc   ;==>_MixerSet
    
    
    ; Funções Internas
    
    Func MixerOpen(ByRef $hMixer, $iMixerID, $hCallback, $iInstance, $iFlags)
    	Local $hStruct = DllStructCreate("ptr")
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerOpen", "ptr", DllStructGetPtr($hStruct), "uint", $iMixerID, "dword", $hCallback, "dword", $iInstance, "dword", $iFlags)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		$hMixer = DllStructGetData($hStruct, 1)
    		Return True
    	EndIf
    EndFunc   ;==>MixerOpen
    
    Func MixerClose($hMixer)
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerClose", "uint", $hMixer)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerClose
    
    Func MixerGetDevCaps($hMixer, ByRef $hMxCaps)
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerGetDevCaps", "uint", $hMixer, "ptr", DllStructGetPtr($hMxCaps), "uint", DllStructGetSize($hMxCaps))
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerGetDevCaps
    
    Func MixerGetLineInfo($hMixer, ByRef $hMxLine, $iFlags)
    	DllStructSetData($hMxLine, $ML_CBSTRUCT, DllStructGetSize($hMxLine))
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerGetLineInfo", "uint", $hMixer, "ptr", DllStructGetPtr($hMxLine), "dword", $iFlags)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerGetLineInfo
    
    Func MixerGetLineControls($hMixer, ByRef $hMxLineCtrls, $iFlags)
    	DllStructSetData($hMxLineCtrls, $MLC_CBSTRUCT, DllStructGetSize($hMxLineCtrls))
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerGetLineControls", "uint", $hMixer, "ptr", DllStructGetPtr($hMxLineCtrls), "dword", $iFlags)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerGetLineControls
    
    Func MixerGetControlDetails($hMixer, ByRef $hMxCtrlDetails, $iFlags)
    	DllStructSetData($hMxCtrlDetails, $MCD_CBSTRUCT, DllStructGetSize($hMxCtrlDetails))
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerGetControlDetails", "uint", $hMixer, "ptr", DllStructGetPtr($hMxCtrlDetails), "dword", $iFlags)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerGetControlDetails
    
    Func MixerSetControlDetails($hMixer, ByRef $hMxCtrlDetails, $iFlags)
    	DllStructSetData($hMxCtrlDetails, $MCD_CBSTRUCT, DllStructGetSize($hMxCtrlDetails))
    	Local $iRet = DllCall("winmm.dll", "uint", "mixerSetControlDetails", "uint", $hMixer, "ptr", DllStructGetPtr($hMxCtrlDetails), "dword", $iFlags)
    	If @error Or $iRet[0] Then
    		Return False
    	Else
    		Return True
    	EndIf
    EndFunc   ;==>MixerSetControlDetails
    
    
    Func MixerSetGet($iMixerID, $sComponentType, $iComponentInstance, $sControlType, $fIsSet, $iNewParamValue)
    
    	;verifica Id
    	If Not IsInt($iMixerID) Or $iMixerID < 0 Then
    		SetError(1)
    		Return 0
    	EndIf
    
    	;determina o tipo de componente
    	Local $iComponentType = -1
    	For $iIndex = 0 To UBound($asComponentTypes) - 1
    		If StringCompare($sComponentType, $asComponentTypes[$iIndex]) = 0 Then
    			$iComponentType = $aiComponentTypes[$iIndex]
    			ExitLoop
    		EndIf
    	Next
    
    	; verifica tipo de componente
    	If $iComponentType = -1 Then
    		SetError(2)
    		Return 0
    	EndIf
    
    	; verifica instância do componente
    	If Not IsInt($iComponentInstance) Or $iComponentInstance <= 0 Then
    		SetError(3)
    		Return 0
    	EndIf
    
    	; Determina o tipo de controle
    	Local $iControlType = -1
    	For $iIndex = 0 To UBound($asControlTypes) - 1
    		If StringCompare($sControlType, $asControlTypes[$iIndex]) = 0 Then
    			$iControlType = $aiControlTypes[$iIndex]
    			ExitLoop
    		EndIf
    	Next
    
    	If $iControlType = -1 Then
    		SetError(4)
    		Return 0
    	EndIf
    
    	;abre o Mixer especificado
    	Local $hMixer
    	If Not MixerOpen($hMixer, $iMixerID, 0, 0, 0) Then
    		SetError(5)
    		Return 0
    	EndIf
    
    
    	Local $iDestCount
    	Local $hMxCaps = DllStructCreate($MCA_STRUCT_DEF)
    	If MixerGetDevCaps($hMixer, $hMxCaps) Then
    		$iDestCount = DllStructGetData($hMxCaps, $MCA_CDESTINATIONS)
    	Else
    		$iDestCount = 1
    	EndIf
    
    
    	Local $hMxLine = DllStructCreate($ML_STRUCT_DEF)
    	If $iComponentInstance = 1 Then
    		DllStructSetData($hMxLine, $ML_DWCOMPONENTTYPE, $iComponentType)
    		If Not MixerGetLineInfo($hMixer, $hMxLine, $MIXER_GETLINEINFOF_COMPONENTTYPE) Then
    			MixerClose($hMixer)
    			SetError(6)
    			Return 0
    		EndIf
    	Else
    
    		Local $fFound = False
    		Local $iCurDest = 0
    		Local $iInstanceFound = 0
    		While $iCurDest < $iDestCount And Not $fFound
    			DllStructSetData($hMxLine, $ML_DWDESTINATION, $iCurDest)
    			If Not MixerGetLineInfo($hMixer, $hMxLine, $MIXER_GETLINEINFOF_DESTINATION) Then
    				$iCurDest = $iCurDest + 1
    				ContinueLoop
    			EndIf
    			Local $iSrcCount = DllStructGetData($hMxLine, $ML_CCONNECTIONS)
    			Local $iCurSrc = 0
    			While $iCurSrc < $iSrcCount And Not $fFound
    				DllStructSetData($hMxLine, $ML_DWDESTINATION, $iCurDest)
    				DllStructSetData($hMxLine, $ML_DWSOURCE, $iCurSrc)
    				If Not MixerGetLineInfo($hMixer, $hMxLine, $MIXER_GETLINEINFOF_SOURCE) Then
    					$iCurSrc = $iCurSrc + 1
    					ContinueLoop
    				EndIf
    				If DllStructGetData($hMxLine, $ML_DWCOMPONENTTYPE) = $iComponentType Then
    					$iInstanceFound = $iInstanceFound + 1
    					If $iInstanceFound = $iComponentInstance Then
    						$fFound = True
    					EndIf
    				EndIf
    				$iCurSrc = $iCurSrc + 1
    			WEnd
    			$iCurDest = $iCurDest + 1
    		WEnd
    		If Not $fFound Then
    			MixerClose($hMixer)
    			SetError(7)
    			Return 0
    		EndIf
    	EndIf
    
    	Local $hMxLineCtrls = DllStructCreate($MLC_STRUCT_DEF)
    	Local $hMxCtrl = DllStructCreate($MCO_STRUCT_DEF)
    	DllStructSetData($hMxLineCtrls, $MLC_CBSTRUCT, DllStructGetSize($hMxLineCtrls))
    	DllStructSetData($hMxLineCtrls, $MLC_DWLINEID, DllStructGetData($hMxLine, $ML_DWLINEID))
    	DllStructSetData($hMxLineCtrls, $MLC_DWCONTROLTYPE, $iControlType)
    	DllStructSetData($hMxLineCtrls, $MLC_CCONTROLS, 1)
    	DllStructSetData($hMxLineCtrls, $MLC_CBMXCTRL, DllStructGetSize($hMxCtrl))
    	DllStructSetData($hMxLineCtrls, $MLC_PAMXCTRL, DllStructGetPtr($hMxCtrl))
    	If Not MixerGetLineControls($hMixer, $hMxLineCtrls, $MIXER_GETLINECONTROLSF_ONEBYTYPE) Then
    		MixerClose($hMixer)
    		SetError(8)
    		Return 0
    	EndIf
    
    	Local $iMin = DllStructGetData($hMxCtrl, $MCO_DWMINIMUM)
    	Local $iMax = DllStructGetData($hMxCtrl, $MCO_DWMAXIMUM)
    
    	Local $fControlTypeIsBoolean
    	Switch $iControlType
    		Case $MIXERCONTROL_CONTROLTYPE_ONOFF
    			$fControlTypeIsBoolean = True
    		Case $MIXERCONTROL_CONTROLTYPE_MUTE
    			$fControlTypeIsBoolean = True
    		Case $MIXERCONTROL_CONTROLTYPE_MONO
    			$fControlTypeIsBoolean = True
    		Case $MIXERCONTROL_CONTROLTYPE_LOUDNESS
    			$fControlTypeIsBoolean = True
    		Case $MIXERCONTROL_CONTROLTYPE_STEREOENH
    			$fControlTypeIsBoolean = True
    		Case Else
    			$fControlTypeIsBoolean = False
    	EndSwitch
    
    	Local $fAdjustCurrentSettings = False
    	If $fIsSet And (StringLeft($iNewParamValue, 1) = "+" Or StringLeft($iNewParamValue, 1) = "-") Then
    		$fAdjustCurrentSettings = True
    	EndIf
    
    
    	Local $hMxCtrlDetails = DllStructCreate($MCD_STRUCT_DEF)
    	Local $hMxCtrlValue = DllStructCreate($MCDU_STRUCT_DEF)
    	DllStructSetData($hMxCtrlDetails, $MCD_CBSTRUCT, DllStructGetSize($hMxCtrlDetails))
    	DllStructSetData($hMxCtrlDetails, $MCD_DWCONTROLID, DllStructGetData($hMxCtrl, $MCO_DWCONTROLID))
    	DllStructSetData($hMxCtrlDetails, $MCD_CCHANNELS, 1)
    	DllStructSetData($hMxCtrlDetails, $MCD_CBDETAILS, DllStructGetSize($hMxCtrlValue))
    	DllStructSetData($hMxCtrlDetails, $MCD_PADETAILS, DllStructGetPtr($hMxCtrlValue))
    
    	Local $iCurValue = 0
    	If $fAdjustCurrentSettings Then
    		If Not MixerGetControlDetails($hMixer, $hMxCtrlDetails, $MIXER_GETCONTROLDETAILSF_VALUE) Then
    			MixerClose($hMixer)
    			SetError(9)
    			Return 0
    		EndIf
    		$iCurValue = DllStructGetData($hMxCtrlValue, $MCDU_DWVALUE)
    	EndIf
    
    	If $fIsSet Then
    		If $fControlTypeIsBoolean Then
    			If $fAdjustCurrentSettings Then
    				If $iCurValue > $iMin Then
    					DllStructSetData($hMxCtrlValue, $MCDU_DWVALUE, $iMin)
    				Else
    					DllStructSetData($hMxCtrlValue, $MCDU_DWVALUE, $iMax)
    				EndIf
    			Else
    				If $iNewParamValue > 0 Then
    					DllStructSetData($hMxCtrlValue, $MCDU_DWVALUE, $iMax)
    				Else
    					DllStructSetData($hMxCtrlValue, $MCDU_DWVALUE, $iMin)
    				EndIf
    			EndIf
    		Else
    			Local $iNewActualValue = ($iMax - $iMin) * ($iNewParamValue / 100.0)
    			If $fAdjustCurrentSettings Then
    				$iNewActualValue = $iNewActualValue + $iCurValue
    			EndIf
    			If $iNewActualValue < $iMin Then
    				$iNewActualValue = $iMin
    			ElseIf $iNewActualValue > $iMax Then
    				$iNewActualValue = $iMax
    			EndIf
    			DllStructSetData($hMxCtrlValue, $MCDU_DWVALUE, $iNewActualValue)
    		EndIf
    
    		If Not MixerSetControlDetails($hMixer, $hMxCtrlDetails, $MIXER_SETCONTROLDETAILSF_VALUE) Then
    			MixerClose($hMixer)
    			SetError(10)
    			Return 0
    		EndIf
    	EndIf
    
    	If Not MixerGetControlDetails($hMixer, $hMxCtrlDetails, $MIXER_GETCONTROLDETAILSF_VALUE) Then
    		MixerClose($hMixer)
    		SetError(9)
    		Return 0
    	EndIf
    	$iCurValue = DllStructGetData($hMxCtrlValue, $MCDU_DWVALUE)
    	MixerClose($hMixer)
    	SetError(0)
    
    	If $fControlTypeIsBoolean Then
    		If $iCurValue Then
    			Return 1
    		Else
    			Return 0
    		EndIf
    	Else
    		Return Round(100.0 * ($iCurValue - $iMin) / ($iMax - $iMin), 2)
    	EndIf
    
    EndFunc   ;==>MixerSetGet
    Baixar UDF alterada + teste: https://www.dropbox.com/s/8sk59cyas0...ixerGetSet.rar
    Última edição por Belini; 04/06/2014 às 08:48.
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  24. #24
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Bem pensado @Belini , quando se trabalha em equipe o resultado é sempre melhor que o esperado. Cada um faz uma parte e temos algo completo.


    EDITADO: @Belini , na linha 284 acredito que deva ser usado um "And" no lugar do "Or", para mudar o valor somente se passar nos 2 testes. E, no segundo teste, seria melhor usar um valor diferente de zero, um (1) seria o ideal. Pois, zero já é retornado quando da erro.


    Estou buscando as diferenças entre o XP e o 7, nesta área. Talvez de para usar Dll do XP.


    ATENÇÃO correção no SCRIPT do PsRockola. Ele apresentava problema com a leitura de memória caso o PsRockola fosse instalado em pasta diferente de "C:\Arquivos de programas". Está corrigido e inclui comentários para ajudar no entendimento.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  25. #25
    Jogador de Winning Eleven (2005) Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Avatar de Aguardando moderação
    Data de Ingresso
    10/2013
    Posts
    61
    Mentioned
    14 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    54

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval

    Amigo,pode me fazer um favor??? Não é muito importante mas apenas para ficar bem estético: Queria que as fotos batidas pela webcam tivessem a dimensão de 535 X 480 ou equivalente,para que preencha todo o espaço de publicidade que no qual eu modifiquei (aumentei o tamanho). Sei que as fotos batidas ficam na dimensão de 640 X 480 e assim,fica com uma faixa preta em cima e em baixo.Tem como fazer essa modificação???
    Será que tem como fazer essa modificação em alguma linha no Script?

    Agradeço desde já e um up na sua reputação pelo excelente trabalho!!!

    Ah...Sua caixa de MP está cheia !

  26. #26
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Para quem quiser mudar a resolução de captura.

    No Script original (v3.1 que fiz correções a 2 dias) colocar a linha a 388:

    DllCall($dll_user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DLG_VIDEOFORMAT, "int", 0, "int", 0)

    Executar.
    Quando for bater a foto vai abrir uma janela com opção de alterar a resolução. O máximo é 640x480, isso é limitação da DLL avicap32.
    Faça isso e aguarde bater a foto, feche o scrip e elimine ou transforme em comentário a linha 388. Isso só precisa ser feito uma vez, os valor ficam gravados.

    @ROBDIV , no script que fiz para você é a linha 461. E a resolução disponível que vai ficar mais próxima do que tu quer, ao ser redimensiona para exibição, é a 352x288
    Última edição por joaocadaval; 06/06/2014 às 16:22.
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  27. #27
    Jogador de Winning Eleven (2005) Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Aguardando moderação É realmente muito bom. Avatar de Aguardando moderação
    Data de Ingresso
    10/2013
    Posts
    61
    Mentioned
    14 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    54

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Desculpa...Agora que entendi a sua explicação !!!! Era para incluir essa linha para que ela se transformasse na linha 461.
    Muito bom isso que vc fez ! Mas,no meu caso,acho que a qualidade das fotos batidas nessa resolução 352x288 deixam um pouco a desejar !!!
    Vou comprar uma webcam de boa qualidade para os testes. Pena que meu note (que tem webcam) está com defeito ! kkkkk

    Mais uma vez vc se superou. Obrigado e mais um up na sua reputação.

  28. #28
    > Usuário VIP joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar joaocadaval Tem muito do que se orgulhar Avatar de joaocadaval
    Data de Ingresso
    01/2010
    Localização
    Porto Alegre - RS - Brasil
    Posts
    382
    Mentioned
    95 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    124

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Atualização no Script do PsRockola.
    Inclui uma função chama pela tecla F2 que permite ajustar a resolução, a cor e outras configurações da WebCam.

    Agora também tem a opção de full Screen para bater a foto (ajusta no arquivo config.ini).

    Novo link:

    http://1drv.ms/1sd09kb
    O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada.

  29. #29
    Iniciante nos Arcades Caseiros billygames Se tornará famoso em breve
    Data de Ingresso
    10/2009
    Localização
    são paulo
    Posts
    382
    Mentioned
    24 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    81

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    @joaocadaval

    já que vc se familiarizou com o programa vamos lá será que vc conseguiria fazer um esquema tipo pontuação ...

    exemplo logo abaixo ..

    abaixo de 5 da uma mensagem tipo=>>>>"VAI CANTAR NO CHUVEIRO VC É RUIM MESMO" e junto uma mensagem de voz
    nota 6 até 8 ==================>>>"VOCÊ É UM OTIMO CANTOR MAS PRECISA TREINAR MAIS" e junto uma mensagem elogiando
    nota 9 ======================>>>"VOCÊ É CANTOR PROFISSIONAL" e uma mensagem elogiando seu desenpenho
    nota 10 =====================>>>"VOCÊ SE SUPEROU É CANTOR PROFISSIONAL PARABENS" e uma mensagem topi

    acho que deu pra entender o que eu disse seria atraente para o publico nota com mensagem de voz e escrita e acima de 6 ainda tirar foto ai sim o pessoal ia se enpolgar mais ainda até mais e até agora otimo trabalho parabens !!!!!!!!!!
    Última edição por billygames; 14/06/2014 às 22:50.

  30. #30
    Detonador de games sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar sr p Tem muito do que se orgulhar Avatar de sr p
    Data de Ingresso
    12/2011
    Posts
    1.166
    Mentioned
    276 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    135

    Re: PsRockola Fotos dos 10 melhores, corta microfone e censura volume

    Citação Postado originalmente por billygames Ver Post

    já que vc se familiarizou com o programa vamos lá será que vc conseguiria fazer um esquema tipo pontuação ...

    exemplo logo abaixo ..

    abaixo de 5 da uma mensagem tipo=>>>>"VAI CANTAR NO CHUVEIRO VC É RUIM MESMO" e junto uma mensagem de voz
    nota 6 até 8 ==================>>>"VOCÊ É UM OTIMO CANTOR MAS PRECISA TREINAR MAIS" e junto uma mensagem elogiando
    nota 9 ======================>>>"VOCÊ É CANTOR PROFISSIONAL" e uma mensagem elogiando seu desenpenho
    nota 10 =====================>>>"VOCÊ SE SUPEROU É CANTOR PROFISSIONAL PARABENS" e uma mensagem topi

    acho que deu pra entender o que eu disse seria atraente para o publico nota com mensagem de voz e escrita e acima de 6 ainda tirar foto ai sim o pessoal ia se enpolgar mais ainda até mais e até agora otimo trabalho parabens !!!!!!!!!!
    Simples de fazer isso ! O meu já está com mensagem de texto padrão personalizada (opção do próprio programa) e tmb fiz a mensagem de voz (.wav) personalizada ! Eu inclui o número 10 no programa e então o meu ficou assim:

    3 & 4 = VC NÃO FOI BEM ! PRATIQUE MAIS UM POUCO !
    5 & 6 = MUITO BOM ! MAS AINDA PODE MELHORAR !
    7,8,9 & 10 = PERFEITO ! AGORA PREPARE-SE PARA A FOTO !
    Obs: Pontuação em 7,8,9 & 10 já bate a foto !

    Todas com mensagem de texto (criadas no programa) junto com a mensagem sonora (mensagem de som .wav) com fundo musical ! O que está na mensagem de texto é a mesma coisa que está na mensagem sonora !

    O que vc precisa é apenas fazer a mensagem sonora pq o texto é no programa mesmo ! Use o programa Portable TextAloud para criar as mensagens sonoras e para acrescentar um fundo musical nas sonoras,use o audacity !
    imagem ASSINATURA 3

+ Responder ao Tópico
Página 1 de 2 1 2 ÚltimoÚltimo

Tópicos Similares

  1. Cortar microfone no PsRockola 4.4 full
    Por joaocadaval no fórum Videokê, montagem e programas usados.
    Respostas: 26
    Último Post: 27/01/2018, 14:23
  2. Fotos e Perfil dos Membros do Arcadebr.
    Por ulsangelo no fórum Apresentação / Introdução dos Novos Membros (Por favor Leiam)
    Respostas: 14
    Último Post: 29/03/2016, 07:54
  3. Ativar microfone no Rokobox 8.6
    Por Tehuan no fórum Videokê, montagem e programas usados.
    Respostas: 8
    Último Post: 16/05/2013, 15:49
  4. Lista dos melhores jogos!
    Por linkfsc no fórum Dúvidas em Geral
    Respostas: 0
    Último Post: 25/07/2011, 14:53
  5. Ranking das melhores ROMS de todos os tempos
    Por Flavio G. Antunes no fórum Jogos Diversos.
    Respostas: 26
    Último Post: 09/11/2010, 20:14

Tags para este Tópico

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  • BB Code está Ligado
  • Smilies estão Ligados
  • Código [IMG] está Ligado
  • Código HTML está Desligado