Anda, Tú por aquí XD (Soy pitoloko)


opción 1 - En vez de "icon" prueba "DisplayIcon"
      Aunque no creo que funcione.

opción 2 - Cambia el nombre del icono a "LSAA1.ico" y prueba este reg:



PD: Si alguien quiere informarse sobre respuestas y soluciones de este problema:
1º - http://www.portalhacker.net/index.php/topic,149625.0.html
2º - http://www.portalhacker.net/index.php/topic,149994.0.html


Salu2

Uso el "A-Msn" en vez del microsoft msn pero el procedimiento es casi el mismo:

Elige una cuenta de tus nietos y desactiva la casilla "Recordar cuenta" o "Eliminar esta cuenta"  (La opción sale en esa misma pantalla donde eliges las cuentas, Con los nombres que dije o con otro parecido, búscala bien)

Saludosss

Ya se me ocurrió la forma, sorry

@Echo OFF
Setlocal enabledelayedexpansion
 
Set Carpeta=%~n0
 
Echo #EXTM3U>"%Temp%\Lista Winamp.tmp"
For /F "Tokens=*" %%$ in ('Dir /B /S "%CARPETA%" ^| Findstr /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo  !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
 
Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
For /F "Tokens=2* Delims=;" %%a in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo  %%a>>"%Temp%\Lista Winamp.m3u")
Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
 
Exit

Ahhhhhhhhhhh perdón xD

A lo que te refieres es modificar los metadatos, No lo puedes hacer por batch, Bueno, al menos no con comandos internos, Yo lo hago de la siguiente manera:

ID3 Mass Tagger

Cambiar título en los metadatos:

id3 -t "El titulo que quieras" "*"

Cambiar título del id3v1:

id3 -1 -t "El titulo que quieras" "*"

Cambiar título del id3v2:

id3 -2 -t "El titulo que quieras" "*"

Cambiar título en todos:

id3 -t "El titulo que quieras" "*" & id3 -1 -2 -t "El titulo que quieras" "*"

EXTRA!:

Para eliminar los tags:

ID3.exe -1 -2 -3 -d -M -v "*"

Eso elimina en todos los archivos de música del directorio actual el Id3v1, Idv32 y Lyric Tag, Conservando la última fecha de modificación y creación de cada archivo.



PD: Esta utilidad no elimina/modifica el tag APE, Necesaría para programas como el MP3GAIN.

No tengo el link oficial de esta utilidad así que te la subo a mediafire: http://www.mediafire.com/?23ifq3v50o2p4im

Salu2

¿Como randomizar el contenido de un txt?  

Es lo único que me falta para acabar este script

PD: Acepto cualquier utilidad externa
PD2: Si existiera algún parámetro para iniciar Winamp con la opcion "Activar modo aleatorio de lista" activada, también me serviría...

un saludo

@Echo OFF
 
Set Carpeta=%~n0
 
Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
For /F "Tokens=*" %%$ in ('Dir /B /S "%CARPETA%" ^| Findstr /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo %%$>>"%Temp%\Lista Winamp.m3u")
REM Aqui iría el randomizado
Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
Exit

Quizás esto te sirva de ayuda: (solucionado) ¿Como instalar este driver de hardware (.INF) en batch

---

El rundll32 era "especial" (Toca pelotas) al pasar la ruta con espacios con o sin comillas, Ya no recuerdo si habia que hacerlo con comillas o SIN, así que te hago las 2 maneras xD

Si estás seguro que el comando te funciona y el error solo tiene que ver con la ruta de origen, Prueba con estos scripts (No los uses directamente desde la consola):

1º

rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall 0 "%~dp0huffyuv.inf"

2º

rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall 0 %~dp0huffyuv.inf

---

Si el error de instalación fuese por el archivo inf, Prueba así:
(Es un bat)

;@Echo Off&title INF Installer
;
;Set "Code=%~f0"
;:Init
;Cls
;Echo.
;Echo. Instalando Controlador...
;rundll32.exe advpack.dll,LaunchINFSection "%Code%",DefaultInstall
;Ping -n 1 localhost >nul
;Echo. Finalizado
;Pause
;Exit /b 0
 
::::::::::: Codigo INF ::::
 
 
; Huffyuv AVI lossless video codec
;
; Copyright (c) 2000 Ben Rudiak-Gould
;
; This Windows 9x Installation INF File by Rainbow Software
;
[version]
signature="$CHICAGO$"
 
[DefaultInstall]
CopyFiles=HUF.Files.Inf,HUF.Files.Dll
AddReg=HUF.Reg
UpdateInis=HUF.INIs
 
[DefaultUnInstall]
DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
DelReg=HUF.Reg
UpdateInis=HUF.INIs.Del
 
[SourceDisksNames]
1="Huffyuv AVI lossless video codec","",1
 
[SourceDisksFiles]
HUFFYUV.INF=1
HUFFYUV.DLL=1
 
[DestinationDirs]
HUF.Files.Inf=17
HUF.Files.Dll=11
HUF.Files.Ini=25
 
[HUF.Files.Inf]
HUFFYUV.INF
 
[HUF.Files.Dll]
HUFFYUV.DLL
 
[HUF.Files.Ini]
HUFFYUV.INI
 
[HUF.Reg]
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
 
HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
 
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
 
[HUF.INIs]
system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
 
[HUF.INIs.Del]
system.ini, drivers32, "VIDC.HFYU=huffyuv.dll"

Si no te funciona, así:

;@Echo Off&title INF Installer
;
;Set "Code=%~f0"
;:Init
;Cls
;Echo.
;Echo. Instalando Controlador...
;rundll32.exe setupapi.dll,InstallHinfSection DefaultInstall "%Code%"
;Ping -n 1 localhost >nul
;Echo. Finalizado
;Pause
;Exit /b 0
 
 
::::::::::: Codigo INF ::::
 
 
; Huffyuv AVI lossless video codec
;
; Copyright (c) 2000 Ben Rudiak-Gould
;
; This Windows 9x Installation INF File by Rainbow Software
;
[version]
signature="$CHICAGO$"
 
[DefaultInstall]
CopyFiles=HUF.Files.Inf,HUF.Files.Dll
AddReg=HUF.Reg
UpdateInis=HUF.INIs
 
[DefaultUnInstall]
DelFiles=HUF.Files.Dll,HUF.Files.Inf,HUF.Files.Ini
DelReg=HUF.Reg
UpdateInis=HUF.INIs.Del
 
[SourceDisksNames]
1="Huffyuv AVI lossless video codec","",1
 
[SourceDisksFiles]
HUFFYUV.INF=1
HUFFYUV.DLL=1
 
[DestinationDirs]
HUF.Files.Inf=17
HUF.Files.Dll=11
HUF.Files.Ini=25
 
[HUF.Files.Inf]
HUFFYUV.INF
 
[HUF.Files.Dll]
HUFFYUV.DLL
 
[HUF.Files.Ini]
HUFFYUV.INI
 
[HUF.Reg]
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Description,,"Huffyuv lossless codec [HFYU]"
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,Driver,,"huffyuv.dll"
HKLM,SYSTEM\CurrentControlSet\Control\MediaResources\icm\VIDC.HFYU,FriendlyName,,"Huffyuv lossless codec [HFYU]"
 
HKLM,"Software\Microsoft\Windows NT\CurrentVersion\drivers.desc",huffyuv.dll,,"Huffyuv lossless codec [HFYU]"
HKLM,"Software\Microsoft\Windows NT\CurrentVersion\Drivers32",VIDC.HFYU,,"huffyuv.dll"
 
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,DisplayName,,"Huffyuv AVI lossless video codec (Remove Only)"
HKLM,Software\Microsoft\Windows\CurrentVersion\Uninstall\HUFFYUV,UninstallString,,"rundll.exe setupx.dll,InstallHinfSection DefaultUninstall 132 %17%\HUFFYUV.INF"
 
[HUF.INIs]
system.ini, drivers32,, "VIDC.HFYU=huffyuv.dll"
 
[HUF.INIs.Del]
system.ini, drivers32, "VIDC.HFYU=huffyuv.dll"

Es cierto que un tipo de imagen ISO es ".bin", Pero eso no significa que todos los archivos de extensión .bin tengan que ser una ISO Bin, Así que intentar abrir con magiciso es tontería xD.

Los archivos .bin se pueden usar como contenedores cifrados por ejemplo en cierto tipo de APPS y VideoGames. En fin, cada uno le pone la extensión que quiere a sus archivos.

Salu2.

Es una carpeta de Java (Java Runtime Envoirement)

No la borres

Saludos

Hola

Verán tengo un problema con el módulo FileUtils.move...

Si estos 2 archivos existen:

1º - C:\ABC.mp3
2º - D:\ABC.mp3

Imaginen que tenemos el 2º archivo abierto (Reproduciendose en winamp por ejemplo)
Ahora intentamos usar FileUtils.move para mover el 2º archivo, al directorio 1º. El archivo obviamente no se puede reemplazar, el FileUtils.move dará "error de acceso" pero a pesar de eso, FileUtils.move elimina el archivo 1º y desaparece!.

Y entonces nos queda esto:

1º - (NADA)
2º - D:\ABC.mp3


¿Se puede hacer algún tipo de "test" para que no elimine el archivo a reemplazar si da Errno::EACCES?
Lo que quiero decir, Es que primero se asegure de que la operación no va a dar error, Para que no elimine el archivo 1ª si el 2º no se puede mover.

Creo que por ahí leí algo como: FileUtils.test.move pero no estoy seguro...

También he visto    FileUtils::NoWrite, PEro no he visto ningún ejemplo de como usarlo, Ni tampoco se si sirve para lo que necesito.

Muchas gracias.

---

El code que tengo por si sirve para más información es este:

# -*- coding: UTF-8 -*-
 
# Mueve archivos desde un punto de origen hasta un punto de destino
# Pensado para usarlo como replazamiento del "SendTo" de Windows.
#
# (Requiere el uso de argumentos)
 
 
# Módulos
 
require "FileUtils"
require 'dl'
 
exit if Object.const_defined?(:Ocra)
 
 
# Variables constantes
 
BUTTONS_OKCANCEL = 1
BUTTONS_YESNO = 4
CLICKED_CANCEL = 2
CLICKED_YES = 6
CLICKED_NO = 7
 
 
# Métodos
 
def help()
	print "\nSe requiere al menos 1 archivo de origen.\n\n\n"
	print "Modo de empleo: \n\n"
	print ' Mover.rb [Destino] [Archivo de origen 1] [Archivo de origen 2] [etc...]' + "\n\n\n"
	print 'Ejemplo: (Mover tres archivos al directorio de destino "C:"' + "\n\n"	
	print ' Mover.rb "C:\" "D:\Archivo1.txt" "E:\Archivo2.jpg" "F:\Archivo3.mp3"' + "\n\n"
	Process.exit
end
 
def message_box(txt, title='', buttons='')
    user32 = DL.dlopen('user32')
	msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
	r, rs = msgbox.call([0, txt, title, 3].pack('L!ppL!').unpack('L!*'))
    return r
end
 
def force_move(source_file, dest_file)
  FileUtils.mv $archivo, ARGV[0]
  rescue Errno::EACCES
   response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
	 if response == CLICKED_YES
   	     retry 
   	 elsif response == CLICKED_CANCEL
   	     Process.exit 
  end
end
 
 
# Control de errores
 
if ARGV.empty? == true
	help()
elsif ARGV.length < 2
	help()
elsif File.directory?(ARGV[0]) == false
	print "\n El directorio de destino no existe: " + (ARGV[0]) + "\n"
	Process.exit
end
 
for archivo in ARGV[1..ARGV.length].each
	if File.exist?(archivo) == false
		print "\n El archivo a mover no existe: " + archivo + "\n"
	end
 
end
 
 
# Proceso
 
for $archivo in ARGV[1..ARGV.length].each
 
	if File.exist?(ARGV[0] + "\\" + $archivo.split('\\').last)
		response = message_box("Origen:\n" + $archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + $archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
		if response == CLICKED_YES
  	 	 force_move($archivo, ARGV[0])
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
	 force_move($archivo, ARGV[0])
 	end
 
end
 
 
# Fin
Process.exit

Ya lo he conseguido, he salido del "proceso" para llamar un método y así sí...

Aunque sigo teniendo un pequeño problema, mejor lo comento en otro post.

un saludo

# -*- coding: UTF-8 -*-
 
# Mueve archivos desde un punto de origen hasta un punto de destino
# Pensado para usarlo como replazamiento del "SendTo" de Windows.
#
# (Requiere el uso de argumentos)
 
 
# Módulos
 
require "FileUtils"
require 'dl'
 
exit if Object.const_defined?(:Ocra)
 
 
# Variables constantes
 
BUTTONS_OKCANCEL = 1
BUTTONS_YESNO = 4
CLICKED_CANCEL = 2
CLICKED_YES = 6
CLICKED_NO = 7
 
 
# Métodos
 
def help()
	print "\nSe requiere al menos 1 archivo de origen.\n\n\n"
	print "Modo de empleo: \n\n"
	print ' Mover.rb [Destino] [Archivo de origen 1] [Archivo de origen 2] [etc...]' + "\n\n\n"
	print 'Ejemplo: (Mover tres archivos al directorio de destino "C:"' + "\n\n"	
	print ' Mover.rb "C:\" "D:\Archivo1.txt" "E:\Archivo2.jpg" "F:\Archivo3.mp3"' + "\n\n"
	Process.exit
end
 
def message_box(txt, title='', buttons='')
    user32 = DL.dlopen('user32')
	msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
	r, rs = msgbox.call([0, txt, title, 3].pack('L!ppL!').unpack('L!*'))
    return r
end
 
def force_move(source_file, dest_file)
  FileUtils.mv $archivo, ARGV[0]
  rescue Errno::EACCES
   response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
	 if response == CLICKED_YES
   	     retry 
   	 elsif response == CLICKED_CANCEL
   	     Process.exit 
  end
end
 
 
# Control de errores
 
if ARGV.empty? == true
	help()
elsif ARGV.length < 2
	help()
elsif File.directory?(ARGV[0]) == false
	print "\n El directorio de destino no existe: " + (ARGV[0]) + "\n"
	Process.exit
end
 
for archivo in ARGV[1..ARGV.length].each
	if File.exist?(archivo) == false
		print "\n El archivo a mover no existe: " + archivo + "\n"
	end
 
end
 
 
# Proceso
 
for $archivo in ARGV[1..ARGV.length].each
 
	if File.exist?(ARGV[0] + "\\" + $archivo.split('\\').last)
		response = message_box("Origen:\n" + $archivo + "\n\n Destino:\n " + ARGV[0] + "\\" + $archivo.split('\\').last + "\n\n El archivo de destino ya existe, Reemplazar archivo?", "Reemplazar archivo?", BUTTONS_YESNO)
		if response == CLICKED_YES
  	 	 force_move($archivo, ARGV[0])
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
	 force_move($archivo, ARGV[0])
 	end
 
end
 
 
# Fin
Process.exit