Archivos MIDI en Proyecto de VB6 Hola a toda la comunidad, tengo un problema desde hace 14 horas consecutivas, y 2 meses no consecutvios.
Quiero poner un archivo MIDI dentro de mi proyecto de VB6. y Que se reproduzca DENTRO DEL EXE. --como un keygen-- Mas alla de que lo que tengo en mente no es un keygen
Tengo estos 2 codigos, que estuvieron cerca de lograr lo que queria, pero no lo pude, ya sea x q los codigos no son, o yo soy muy cuadrado.
codigo 1:
En general:
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
' Modify the value of the constant "Song" with your path
' to "canyon.mid".
Private Const Song As String = "c:\eva.midi"
En Timer, Boton, Forum load o lo que mas le guste:
Dim ret As Integer
ret = mciSendString("open ""c:\eva.midi"" type sequencer alias cancion", 0&, 0, 0)
ret = mciSendString("play cancion", 0&, 0, 0)
Con eso se reproduce el midi, se traba cuando inicia, pero luego se escucha bien y se puede usar el programa y no se traba mas durante toda su reprioduccion. Supongo que para hacerlo constante lo meto en un ciclo for y ya fue. Pero igualmente. Esto requiere PATCH y la idea es que este metido dentro del exe que voy a ejecutar -.-.
Esta otra:
Codigo 2:
EN Geneal:
' Api sndPlaySound
Private Declare Function sndPlaySound _
Lib "winmm" _
Alias "sndPlaySoundA" ( _
lpszSoundName As Any, _
ByVal uFlags As Long) As Long
'constantes para el api sndPlaySound
Private Const SND_SYNC = &H0
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
En lo que mas les guste, como un botoncito:
Dim Sonido1() As Byte
Sonido1 = LoadResData(101, "CUSTOM")
Call sndPlaySound(Sonido1(0), SND_SYNC Or SND_MEMORY)
En esta 2da instancia, fui a ---complementos, adminsitador de complementos, y puse VB6 Recurse Editor, con eso pude poner un pequeño WAV dentro del EXE, y con el codigo correspondiente, lo llamaba y lo reproducia, pero:
-No Reproduce MIDI
-Se traba el programa durante toda la ejecuciion del sonido. Osea no puedo usar elprograma durante la reproduccion del sonido.
Que podria hacer para lograr lo que quiero????
Insertar un MIDI dentro del EXE, y que se escuche cuando se reproduce el EXE.
Saludos a todo, y gracias x su atencion
