[VB6] - seting volume micro with mciSendString()

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;))

i build these code:

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:(

I'm not sure if this would help?

Quote:

---

Originally Posted by Nightwalker83

I'm not sure if this would help?

---

sorry but don't helps but thanks:(

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