[VB6] - seting volume micro with mciSendString()

[joaquim]

can i control the micro volume with mciSendString() API function?
(i need these because i have 1 problem on system micro volume and maybe i can resolve it with an hidden program on startup)

[joaquim]

i build these code:

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Dim blnActivate As Boolean

Private Sub Command1_Click()
    Dim nReturn As Long
    blnActivate = True
    Do While blnActivate = True
        nReturn = mciSendString("input volume to " & 255, "", 0, 0)
        Debug.Print nReturn
        DoEvents
    Loop
End Sub

but seems not working

[Nightwalker83]

I'm not sure if this would help?

[joaquim]

I'm not sure if this would help?

sorry but don't helps but thanks

[joaquim]

i found these code:http://translate.google.pt/translate...%2Fkb%2F178456
but the microphone code isn't right, i have tested