Mensajes

[N3FISTO]

ok... muchas gracias el problema esta resuelto por " N3FISTO " muy sencillo la solucion .

bueno una recomendacion para los que copy el codigo y lo echen a andar en las siguientes lineas  corrijan para no tener error.. ojo vean que hay un espacio entre el puto.

Lib "winmm. Dll"   no dejen espacio   ...  seria a si       Lib "winmm.Dll" )
"c:\sonido. Mp3"   en todos verifiquen ....seria a si         "c:\sonido.Mp3"

bueno simplemente es porque en la pagina a si se cargo el codigo pero su funcionamiento es muy bueno ... 

Y otra recomendacion seria usar una direccion de usuario %UserData% para que funcione en usuario limitados.. recuerden que en usuarios limitados no se puede guardar un archivo en C:\...

bueno pero de ahí  todo funciona excelente.  lo que necesitamos para adornar nuestro keygen..

hola_____ lo que deseo es poner una musica de fondo en una aplicacion vb 6.0 .

halgo como los keygen, crack, etc...

E utilizado un codigo que llama un archivo de recurso.res.. el problema es que al utilizar call  se debe de esperar a que termine la musica para seguir al siguiente codec. "linea"

por lo tanto no se puede hacer nada en el momento que suena la music.. luego que termina, sigue a la siguientes lineas y se puede controlar otros botones del form..


claro lo que se desea es un codec en vb 6.0 que al ejecutar nuestro form, tenga la musica de fondo y se puede utilizar los demas comnados commandbutton de nuestra aplicacion sin que se afecte la reproduccion de la musica de fondo al = que la musica deve de ser llamada,abierta desde archivos de recursos.. para transportarla dentro del exe de nuestro proyecto ...


cualquier comentario es agradecido....

A qui codigo comun que se encuentra de ejemplos en foros y tutos pero no funciona para lo que se desea

gregar al form1  : 3 command button, y un archivo de recuros .res \\ crear el archivo de recursos de un archivo.wav

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function sndPlaySound
Lib "winmm"
Alias "sndPlaySoundA" (_
lpszSoundName As Any,_
ByVal uFlags As Long) As Long

Const SND_MEMORY = &H4
Const SND_ASYNC = &H1

'Const SND_SYNC = &H1

Private Sub Command1_Click()

Dim Sonido1() As Byte

Sonido1 = LoadResData(101, "CUSTOM")
 'SYNC
Call sndPlaySound(Sonido1(0), SND_ASYNC Or SND_MEMORY)

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

private sub cammand3_Click()
' cualquier codec
msgbox"ejemplo"
end sub

como podran ver al ejecutar nuestro codec no podemos utilizar los demas comman button \\ Ya que la linea call no ha terminado ... este es el problema

por lo tanto no nos sirve para un keygen al que queramos poner musica de fondo

Cualquier persona que desee colaboraranos porfavor deje su comentario
gracias..

....

...

....

...

...

...

...