Grabadora de voz

[DanX03]

bueno esto es parte del codigo que estoy utilizando

Const DI_MASK = &H1
Const DI_IMAGE = &H2
Const DI_NORMAL = DI_MASK Or DI_IMAGE

Const MP3_NAME As String = "mensaje.mp3" ' valores para las rutas del wav y el mp3
Const WAV_TEMP As String = "temp.wav"

' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
' UDts
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''

' Para extraer el ícono de los adjuntos
Private Type IconType
cbSize As Long
picType As PictureTypeConstants
hIcon As Long
End Type

Private Type CLSIdType
id(16) As Byte
End Type

Private Type ShellFileInfoType
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * 260
szTypeName As String * 80
End Type

' para el cuadro de diálogo de win para abrir archivo
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type


' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
' Apis
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Declare Sub InitCommonControls Lib "Comctl32" ()
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As ShellFileInfoType, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib "oleaut32.dll" (pDicDesc As IconType, riid As CLSIdType, ByVal fown As Long, lpUnk As Object) As Long

' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
'Eunms
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
Private Enum eQual
[BR8] = 1
[BR16] = 2
[BR32] = 4
End Enum
' tamaño de íconos
Private Enum eSizeIcon
[Small] = 257
[Normal] = 256
End Enum


' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
' Miembros, vars
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''

Private INI_PATH As String
Private mQual As eQual ' bitrate
Private WithEvents mcEmailCDO As clsCDOmail ' mail
Private WithEvents mcEncoder As cLameEncoder ' Wav a Mp3
Private WithEvents mcRec As clsRec ' crear el wav
Private mcIni As clsIni ' guardar los datos en un archivo .ini

Private mScreenIndex As Integer ' índice actual de la pantalla de opción

' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
' Combobox para Indicar el valor del bit rate
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
Private Sub cboQual_Click()
With mcEncoder
Select Case cboQual.ListIndex
Case 0
.BitRate = eLameBitRate8
mQual = BR8
Case 1
.BitRate = eLameBitRate16
mQual = BR16
Case 2
.BitRate = eLameBitRate32
mQual = BR32
End Select
End With
' valor aproximado del tamaño del mp3 de acuerdo al bit Rate utilizado
lblFileSize.Caption = CStr(mcRec.Second * mQual) & " KB"
End Sub

' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''
' Abrir diálogo de propiedades de dispositivos de Audio de windows
' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''
Private Sub cmdDlgWinVoz_Click()
Shell "RunDll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3"
End Sub