Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: DarkStreaM en 22 Diciembre 2008, 20:25 PM

Título: Se puede reproducir archivos .xm en vb6 ??
Publicado por: DarkStreaM en 22 Diciembre 2008, 20:25 PM
 :huh:wenu hola seguro que no me conocen pero no encuentro la sección indicada xD wenu al grano queria saber si es que en vb se pueden reproducir archivos xm o it , esas cancioncillas de los keygens , es que encontre una muy chula , y la tengo que convertir a mp3 , lo que hace que el app se haga mucho mas pesa

PD: un cm pesa alrededor de 200 kb y un mp3 2 a 3 mb
PD2:Cargo el archivo de los recursos
desde ya muchas gracias
;D
Título: Re: Se puede reproducir archivos .xm en vb6 ??
Publicado por: CICOLO_111234 en 22 Diciembre 2008, 21:54 PM
mmmmmmmmmmmm.......................................................

k yo sepa no.....................................................................

aunk no estoy muy seguro
Título: Re: Se puede reproducir archivos .xm en vb6 ??
Publicado por: BlackZeroX en 22 Diciembre 2008, 22:10 PM
Compruebalo lo mismo intenta con esto:

En un proyecto SIN formulario solo un modulo agrega lo siguiente
configura el proyecto para que lo primero que arranque sea el proseso Sub Main()

Código (vb) [Seleccionar]

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

sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub


P.D.: Yo no tengo ningun tipo de archivo de musica o cancion con esa extensión, por ende te pongo esto que si no se reproduce entonces se tendria que convertir a otro formato como no se, desconozco plenamente su extructura xP
Título: Re: Se puede reproducir archivos .xm en vb6 ??
Publicado por: byway en 23 Diciembre 2008, 01:44 AM
Reproducirlos directamente no vi pero si con ayuda de una libreria hecha en otro lenguaje si ...

aki les pongo la libreria necsaria y el codigo fuente... 

Código (vb) [Seleccionar]
' *********************************************************
' EJEMPLO DEL USO DE aRC_XM.DLL v.2.2
' *********************************************************
'
'   * Requiere aRC_XM.dll v.2.2
'       CopyLeft (c) 2004 aRC - aDVANCED rESEARCH cOMMUNITY
'   * Solamente lee módulos Fastracker II (.XM)
'   * Código: Furious Logic [aRC] - División DemoScene
'   * Pista musical: "Ida's hashkaka" por dubmood [Razor1911]
'   * Basado en MiniMod.h Copyright Firelight Multimedia, 1999-2001.
'   * Soporte solo para módulos Fastracker II (.XM)
'   * Utilícese libremente bajo su propia responsabilidad
'
' ********************************************************* }


Descarga : http://www.gigasize.com/get.php/3197813753/c_digo_fuente.rar




Título: Re: Se puede reproducir archivos .xm en vb6 ??
Publicado por: DarkStreaM en 26 Diciembre 2008, 19:28 PM
Cita de: ░▒▓BlackZeroҖ▓▒░ en 22 Diciembre 2008, 22:10 PM
Compruebalo lo mismo intenta con esto:

En un proyecto SIN formulario solo un modulo agrega lo siguiente
configura el proyecto para que lo primero que arranque sea el proseso Sub Main()

Código (vb) [Seleccionar]

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

sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub


P.D.: Yo no tengo ningun tipo de archivo de musica o cancion con esa extensión, por ende te pongo esto que si no se reproduce entonces se tendria que convertir a otro formato como no se, desconozco plenamente su extructura xP

Amigo eso es para mp3,wav y MIDI xD
Título: Re: Se puede reproducir archivos .xm en vb6 ??
Publicado por: DarkStreaM en 26 Diciembre 2008, 19:38 PM
Cita de: byway en 23 Diciembre 2008, 01:44 AM
Reproducirlos directamente no vi pero si con ayuda de una libreria hecha en otro lenguaje si ...

aki les pongo la libreria necsaria y el codigo fuente... 

Código (vb) [Seleccionar]
' *********************************************************
' EJEMPLO DEL USO DE aRC_XM.DLL v.2.2
' *********************************************************
'
'   * Requiere aRC_XM.dll v.2.2
'       CopyLeft (c) 2004 aRC - aDVANCED rESEARCH cOMMUNITY
'   * Solamente lee módulos Fastracker II (.XM)
'   * Código: Furious Logic [aRC] - División DemoScene
'   * Pista musical: "Ida's hashkaka" por dubmood [Razor1911]
'   * Basado en MiniMod.h Copyright Firelight Multimedia, 1999-2001.
'   * Soporte solo para módulos Fastracker II (.XM)
'   * Utilícese libremente bajo su propia responsabilidad
'
' ********************************************************* }


Descarga : http://www.gigasize.com/get.php/3197813753/c_digo_fuente.rar





Gracias tendre que cargar la dll a los recursos .. o con el fusion xD gracias