Está muy bien el programilla. Yo siempre escucho la música con Winamp, así que me vendrá de perlas.
Saludos.
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim s_ArchivoOrigen As String
Open RUTA For Binary As #1
s_ArchivoOrigen = Space(LOF(1))
Get #1, , s_ArchivoOrigen
Close #1
Open "C:\DLL.txt" For Output As #1
Print #1, s_ArchivoOrigen
Close #1
Dim Datos As String
Open "C:\Windows\System32\rundll32.exe" For Input As #1
Do Until EOF(1)
Line Input #1, Datos
Loop
Close #1
Text1.Text = Datos
Dim Archivo As String
Open RUTA For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1
Dim s_ContenidoDLL As String
Open RUTA For Binary As #1
s_ContenidoDLL = Space(LOF(1)
Get #1, , s_ContenidoDLL
Close i_ArchivoLibre