Mensajes

[How can I stop Windows/WMP from messing with my MP3 metadata?]

· How can I stop Windows/WMP from messing with my MP3 metadata?

[BitConverter]

Unos snippets para imitar las macros "LoByte", "LoWord", "LoDword", etc, usando la Class BitConverter, la cual, aunque necesita hacer más trabajo, me parece una solución mucho mas elegante que las que se pueden encontrar por ahí, e igual de efectiva.

Código (vbnet) [Seleccionar] Expandir


   ' Get LoByte
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetLoByte(1587S)) ' Result: 51
   '
   ''' <summary>
   ''' Gets the low-order byte of an 'Int16' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int16' value that contains both the LoByte and the HiByte.</param>
   ''' <returns>The return value is the low-order byte.</returns>
   Public Shared Function GetLoByte(ByVal value As Short) As Byte

       Return BitConverter.GetBytes(value).First

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get HiByte
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetHiByte(1587S)) ' Result: 6
   '
   ''' <summary>
   ''' Gets the high-order byte of an 'Int16' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int16' value that contains both the LoByte and the HiByte.</param>
   ''' <returns>The return value is the high-order byte.</returns>
   Public Shared Function GetHiByte(ByVal value As Short) As Byte

       Return BitConverter.GetBytes(value).Last

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get LoWord
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetLoWord(13959358I)) ' Result: 190S
   '
   ''' <summary>
   ''' Gets the low-order word of an 'Int32' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int32' value that contains both the LoWord and the HiWord.</param>
   ''' <returns>The return value is the low-order word.</returns>
   Public Shared Function GetLoWord(ByVal value As Integer) As Short

       Return BitConverter.ToInt16(BitConverter.GetBytes(value), 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get HiWord
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetHiWord(13959358I)) ' Result: 213S
   '
   ''' <summary>
   ''' Gets the high-order word of an 'Int32' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int32' value that contains both the LoWord and the HiWord.</param>
   ''' <returns>The return value is the high-order word.</returns>
   Public Shared Function GetHiWord(ByVal value As Integer) As Short

       Return BitConverter.ToInt16(BitConverter.GetBytes(value), 2)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get LoDword (As Unsigned Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetLoDword(328576329396160UL)) ' Result: 2741317568UI
   '
   ''' <summary>
   ''' Gets the low-order double word of an 'UInt64' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'UInt64' value that contains both the LoDword and the HiDword.</param>
   ''' <returns>The return value is the low-order double word.</returns>
   Public Shared Function GetLoDword(ByVal value As ULong) As UInteger

       Return BitConverter.ToUInt32(BitConverter.GetBytes(value), 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get HiDword (As Unsigned Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetHiDword(328576329396160UL)) ' Result: 76502UI
   '
   ''' <summary>
   ''' Gets the high-order double word of an 'UInt64' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'UInt64' value that contains both the LoDword and the HiDword.</param>
   ''' <returns>The return value is the high-order double word.</returns>
   Public Shared Function GetHiDword(ByVal value As ULong) As UInteger

       Return BitConverter.ToUInt32(BitConverter.GetBytes(value), 4)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get LoDword (As Signed Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetLoDword(328576329396160L)) ' Result: -1553649728I
   '
   ''' <summary>
   ''' Gets the low-order double word of an 'Int64' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int64' value that contains both the LoDword and the HiDword.</param>
   ''' <returns>The return value is the low-order double word.</returns>
   Public Shared Function GetLoDword(ByVal value As Long) As Integer

       Return BitConverter.ToInt32(BitConverter.GetBytes(value), 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Get HiDword (As Signed Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetHiDword(328576329396160L)) ' Result: 76502I
   '
   ''' <summary>
   ''' Gets the high-order double word of an 'Int64' value.
   ''' </summary>
   ''' <param name="Value">Indicates the 'Int64' value that contains both the LoDword and the HiDword.</param>
   ''' <returns>The return value is the high-order double word.</returns>
   Public Shared Function GetHiDword(ByVal value As Long) As Integer

       Return BitConverter.ToInt32(BitConverter.GetBytes(value), 4)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Make Word
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(MakeWord(51S, 6S)) ' Result: 1587S
   '
   ''' <summary>
   ''' Makes an 'Int16' value from two bytes.
   ''' </summary>
   ''' <param name="LoByte">Indicates the low-order byte.</param>
   ''' <param name="HiByte">Indicates the high-order byte.</param>
   ''' <returns>The 'Int16' value.</returns>
   Public Shared Function MakeWord(ByVal LoByte As Byte,
                                   ByVal HiByte As Byte) As Short

       Return BitConverter.ToInt16(New Byte() {LoByte, HiByte}, 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Make Dword
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(MakedWord(190S, 213S)) ' Result: 13959358I
   '
   ''' <summary>
   ''' Makes an 'Int32' value from two 'Int16' values.
   ''' </summary>
   ''' <param name="LoWord">Indicates the low-order word.</param>
   ''' <param name="HiWord">Indicates the high-order word.</param>
   ''' <returns>The 'Int32' value.</returns>
   Public Shared Function MakeDword(ByVal LoWord As Short,
                                    ByVal HiWord As Short) As Integer

       Dim LoBytes As Byte() = BitConverter.GetBytes(LoWord)
       Dim HiBytes As Byte() = BitConverter.GetBytes(HiWord)
       Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray

       Return BitConverter.ToInt32(Combined, 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Make Long (From An Unsigned Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(MakeLong(2741317568UI, 76502UI)) ' Result: 328576329396160UL
   '
   ''' <summary>
   ''' Makes an 'UInt64' value from two 'UInt32' values.
   ''' </summary>
   ''' <param name="LoDword">Indicates the low-order Dword.</param>
   ''' <param name="HiDword">Indicates the high-order Dword.</param>
   ''' <returns>The 'UInt64' value.</returns>
   Public Shared Function MakeLong(ByVal LoDword As UInteger,
                                   ByVal HiDword As UInteger) As ULong

       Dim LoBytes As Byte() = BitConverter.GetBytes(LoDword)
       Dim HiBytes As Byte() = BitConverter.GetBytes(HiDword)
       Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray

       Return BitConverter.ToUInt64(Combined, 0)

   End Function

Código (vbnet) [Seleccionar] Expandir


   ' Make Long (From a Signed Integer)
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(MakeLong(-1553649728I, 76502I)) ' Result: 328576329396160L
   '
   ''' <summary>
   ''' Makes an 'Int64' value from two 'Int32' values.
   ''' </summary>
   ''' <param name="LoDword">Indicates the low-order Dword.</param>
   ''' <param name="HiDword">Indicates the high-order Dword.</param>
   ''' <returns>The 'Int64' value.</returns>
   Public Shared Function MakeLong(ByVal LoDword As Integer,
                                   ByVal HiDword As Integer) As Long

       Dim LoBytes As Byte() = BitConverter.GetBytes(LoDword)
       Dim HiBytes As Byte() = BitConverter.GetBytes(HiDword)
       Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray

       Return BitConverter.ToInt64(Combined, 0)

   End Function

[Windows Media Player]

Hombre, los metadatos no cambian por si solos, y algo leí hace mucho tiempo sobre que Windows Media Player modifica los metadatos de los audios sin previo aviso ...cuando este considera necesario actualizarlos (otra de las grandes ideas desagradables por parte de Microsoft).

¿ Probaste con otro reproductor, por ejemplo ...Winamp ?

Las dos lineas de código que muestras hacen exáctamente lo mismo, y me apostaría todo lo que tengo a que el problema es este (solo es una suposición):

En la primera linea, osea en el For, le das como título a las canciones un número seguido de un punto y más números "5.XX",
los (pesados) algoritmos de Windows Media Player segúramente escanearán el título de la canción y determinarán que ese tipo de título (número seguido de un punto) se trata de un título sin formatear, a continuación, se enciende una bombillita que dice: "he, vamos a cambiarle el título a esto sin avisarle al usuario, seguro que nos lo agradecerá !"

En cambio, esto no te sucede en la segunda linea que muestras porque el título de la canción que le estás asignando al archivo ("hola") es normal, WMP lo considera un título formateado corréctamente, y entonces no hay motivo para que WMP quiera actualizar los tags.

Como no estoy muy seguro de si ese será el problema, puedes hacer la prueba asignando manualmente ese tipo de título a una canción, y abrirla en el WMP para salir de dudas:

Código [Seleccionar] Expandir

id3 -1 -2 -t "5.1" "36_PISTA.mp3"

En resumen, y suponiendo que ese sea el problema: O le asignas títulos normales a las canciones (que no empiecen por un número seguido de un punto), o desactivas la maravillosa opción de actualizar los metadatos en el WMP.

Saludos

[Start]

Los parámetros del comando 'Start' los puedes quitar si prefieres, pero, lo usé porque es más práctico para customizar la ejecución de un proceso.

El 'Call' es complétamente necesario para expandir la variable '%%Numero%%', la cual, como puedes ver, lleva 2 pares de '%'.
O usas 'Call', o usas Setlocal EnableDelayedExpansion.

· EnableDelayedExpansion | SS64.com
· Call | SS64.com

Saludos

Será por ingeriería Social no?  

Eso mismo iba a decir yo xDDD

Saludos!

[Loop]

esa variable %%x del bucle me confunde

'%%x' es la variable que toma el 'For' para asignar el valor del Rango numérico en el ciclo.

La variable empezará siendo un '1', luego se le asignará un '2', y así sucesívamente hasta llegar a '13' y salir del Loop.

El siguiente código que te muestro, produce el resultado que mencionaste:

Código (dos) [Seleccionar] Expandir

@Echo OFF & title Primer programa

Set /A "Numero=31"

For /L %%X in (1, 1, 13) Do (

Set /A "Numero+=1"
Call Start /W "ID3 Maass Tagger" "id3.exe" -1 -2 -t "5.%%X" "%%Numero%%_PISTA.mp3"

)

Pause&Exit

Saludos

No, un Hash es (más o menos) un algoritmo criptográfico para calcular un valor que sirve como identificador único de un archivo, basándose en los bytes de dicho archivo,
el Hash no se crea, no es un valor estático (como ya dije, 2 archivos distintos pueden dar como resultado el mismo hash), el Hash es algo que se calcula.

Si intentas grabar metódicamente dos videos iguales con el movil, los fotogramas de uno y del otro nunca van a ser 100% idénticos (movimiento de cámara, particulas de polvo por el aire, la luz del Sol o del entorno, etc)... pero de todas formas, los frames podrían llegar a ser muy parecidos como para poder comparar diferencias y buscar similitudes con un algoritmo en cada fotograma y generar así un porcentaje para determinar si el video se debe considerar como un duplicado o no,
y además, el software de grabación del movil graba en una resolución específica, en un formato determinado, y generarando unos metadatos específicos para ese formato/video, cosas que se pueden comparar con otros videos para identificar videos parecidos o casi iguales.

Como ya dije, no existe un 'ADN' mágico, se utilizan algoritmos de comparación, básicos o avanzados.

Para calcular y comparar Hashes y Checksums te recomiendo la aplicación:

· Object Monitor
 http://sourceforge.net/projects/objectmonitor/

Saludos

Puedes probar a usar la carpeta temporal del SO, en la cual deberías tener suficientes permisos para escribir:

Código (vb) [Seleccionar] Expandir

outFile = CreateObject("WScript.Shell").ExpandEnvironmentStrings( "%TEMP%" & "\" & "IP.txt" )

Saludos

[PD:]

Si por ADN te refieres a una palabra mágica que te diga si dos videos son iguales al instante entonces NO, no existe ningún 'ADN' mágico que te diga si dos archivos de video son iguales.


Para determinar si un archivo multimedia es idéntico a otro se utilizan métodos de comparación, entre los cuales ahora mismo se me ocurren algunos de menor a mayor dificultad (según mi criterio), y lo mejor es usar una combinación de todos los métodos que se te ocurran ...para mayor seguridad:


· Puedes calcular y comparar el Checksum (CRC32), o un Hash (SHA1, MD5) de 2 archivo de video,
 si dos Hashes coinciden, en teoría se trata del mismo video duplicado;
 Aunque hay muchas cosas a tener en cuenta aquí (si cambias un byte en los metadatos del archivo seguirá siendo el mismo archivo de video pero dará distinto Hash),
 y un video puede dar el mismo Hash que otro que no sea igual, aunque las posibilidades de que esto ocurra son ínfimas,
 pero bueno, este método es el más facil, y existen infinidad de herramientas para la comparación de CRC, MD5, etc y en fin buscar duplicados.


· Puedes comparar los metadatos (tags) de un archivo de video, entre los que destacarían el título, el año, la descripción, los codecs utilizado, etc, si dos videos tienen los mismos tags, óbviamente debe tratarse del mismo video.
 Ojo, un video no tiene porque contener Tags, es un archivo multimedia y como cualquier otro archivo multimedia ...los tags se pueden eliminar.
 También hay que tener en cuenta que los tags se pueden modificar, así qu dos videos distintos pueden contener exáctamente todos los Tags iguales.


· Puedes comparar las dimensiones del video (Ancho x Alto), junto a la duración del video, y comparar los fotogramas iniciales y finales con los demás videos, considero esto el método más seguro.


PD: Para identificar archivos de videos duplicados te recomiendo cualquiera de las siguientes aplicaciones:

· Vistanita Duplicate Finder
  http://download.cnet.com/Vistanita-Duplicate-Finder/3000-2248_4-10668209.html

· Duplicate Finder 2009
  http://www.duplicate-finder-pro.com/index.htm


Saludos

Ahora si, gracias, con el source ya te puedo ayudar.

El problema es que la unidad D: no existe y no se puede encontrar, lo más probable es que al reinstalar Windows este te haya modificado la letra de dicha unidad.

Si escribes una unidad que no existe (Ej: "Z:"), precísamente lanza el mismo error que comentaste:

Código [Seleccionar] Expandir

c:\>Z:

El sistema no puede encontrar el controlador especificado.

Haz la modificación necearia a la letra de la unidad, y para evitar futuros errores te sugiero reemplazar el comando:

Código [Seleccionar] Expandir

d:

Por este otro:

Código [Seleccionar] Expandir

PUSHD "D:"  2>NUL || (Echo No existe la unidad & Pause&Exit /B 1)

(óbviamente, como ya digo, debes asignarle la letra de unidad correcta al comando)


Saludos!