@echo off
reg add "HKCR\Drive\shell\ESCANEADOR" /ve /d "ESCANEAR UNIDAD" /f  > nul
reg add "HKCR\Drive\shell\ESCANEADOR\Defaulticon" /d "C:\Archivos de programa\prueba\LSAA.ico" /f  > nul
reg add "HKCR\Drive\shell\ESCANEADOR\ESCANEAR UNIDAD\Defaulticon" /d "C:\Archivos de programa\prueba\LSAA.ico" /f  > nul
reg add "HKCR\Drive\shell\ESCANEADOR\command" /ve /d "C:\Archivos de programa\prueba\prueba.bat \"%%1\"" /F >Nul
reg add "HKCR\Drive\shell\ESCANEADOR\ESCANEAR UNIDAD\command\Defaulticon" /d "C:\Archivos de programa\prueba\LSAA.ico" /f  > nul
pause

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\.::[ Consola ]::.]
"icon"="cmd.exe"
"position"="top"

[HKEY_CLASSES_ROOT\Directory\Background\shell\.::[ Consola ]::.\command]
@="cmd.exe /k"

ASSOC7[OPCIÓN] [Extension] [Programa]

- Opciones:

  -a    (Asociar una extensión)
  -c    (Crear una extension y una asociación para esa extensión)
  -d    (Desasociar una asociación)

ASSOC7.exe -a .url notepad.exe

ASSOC7.exe -c .elektro "%Windir%\notepad.exe"

ASSOC7.exe -d .elektro

@Echo OFF
Title Associate 7     v1.0
REM| ASSOC7 v1.0
REM|
REM| By Elektro H@cker
 
REM| Herramienta para asociar y desasociar extensiones de archivos.
REM| 
REM| Nota:
REM| Si una extensión no tiene una asociación, Se creará una nueva añadiendo el sufijo ".file" al nombre de la extensión.
REM| Por ejemplo, Si existe la extensión ".Elektro" Pero no está asociada. La nueva asociación se llamará ".Elektro.File".
 
 
 
 
REM Control de errores
 
If  "%1" EQU "/?" (Goto :AYUDA)
If  "%1" EQU "" (Goto :AYUDA)
If  "%2" EQU "" (Goto :AYUDA)
If /I "%~1" EQU "-d" (Goto :Buscar_clave)
If  "%3" EQU "" (Goto :AYUDA)
 
Echo %1 | Findstr /I /R "\-a \-c \-d" >NUL
If NOT %Errorlevel% EQU 0 (Goto :ERROR.SWITCH)
 
 
set num=0
If NOT Exist "%Windir%\System32\%~3" (
	If NOT Exist "%~3" (
		call :Buscar_programa "%~1" "%~2" "%~3"
	)  ELSE (Set "Program=%~3")
) ELSE (
	Set "Program=%Windir%\System32\%3"
)
If "%NUM%" EQU "3" (Goto :ERROR.PATH)
 
 
Reg query "HKCR\%~2" >NUL 2>&1
If NOT %Errorlevel% EQU 0 (
	If /I "%~1" EQU "-c" (Goto :Comprobar_crear) ELSE (Goto :ERROR.EXT)
)
 
 
Goto :ASSOC7
 
 
:Buscar_clave
Reg query "HKCR\%~2" >NUL 2>&1
If NOT %Errorlevel% EQU 0 (Goto :ERROR.EXT) ELSE (Goto :Comprobar_desasociar)
 
 
:Buscar_programa
 
Echo "%~3" | Find "\" >NUL 2>&1
 
Set /a num+=1
If NOT %Errorlevel% EQU 0 (
	For /F "Tokens=*" %%a in ('Dir /B /S "%PROGRAMFILES(X86)%\%~3" 2^>nul') do (
		If NOT "%%a" EQU "" (Set "Program=%%a" & Goto :EOF) 
	)
)
 
If NOT %Errorlevel% EQU 0 (
	For /F "Tokens=*" %%a in ('Dir /B /S "%PROGRAMFILES%\%~3" 2^>nul') do (
		If NOT "%%a" EQU "" (Set "Program=%%a" & Goto :EOF) 
	)
)
Set /a num+=1
If NOT %Errorlevel% EQU 0 (
	For /F "Tokens=*" %%a in ('Dir /B /S "%WINDIR%\SYSWOW64\%~3" 2^>nul') do (
		If NOT "%%a" EQU "" (Set "Program=%%a" & Goto :EOF) 
	)
)
Set /a num+=1
Goto :EOF
 
 
:ERROR.SWITCH
Echo+
Echo: No existe la opcion "%~1"
Exit /B 1
 
:ERROR.EXT
Echo+
Echo: No existe la extension "%~2"
Exit /B 1
 
:ERROR.PATH
Echo: No se ha podido encontrar el programa "%~nx3"
Exit /B 1
 
:ERROR.DESA
Echo+
Echo: La extension no estaba asociada a ningun programa. "%~2"
Exit /B 1
 
 
:AYUDA
Echo+
Echo+
Echo: 			Assoc7     (By Elektro H@cker)
Echo+
Echo+ 		  Herramienta para asociar tipos de archivos.
Echo+
Echo+ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
echo+
Echo: Modo de empleo:
Echo+
Echo: %~n0 [Opcion] [Extension] [Ruta de la aplicacion]
Echo+
Echo+
Echo: [OPCIONES]
Echo+
Echo; -a     [Asocia una extension a un programa
Echo: -c     [Crea una extension con su asociacion, Y la asocia a un programa]
Echo: -d     [Desasocia una asociacion existente]
echo+
echo+
Echo: Ejemplo:
Echo+
Echo: %~n0 -a .url Notepad.exe
Echo+
Exit /B 1
 
 
 
 
 
REM ASSOC7
 
:ASSOC7
 
 
:Comprobar_asociar
For /F "Tokens=1,2* delims= " %%a in ('Reg query "HKCR\%~2" ^| find "Predeterminado"') do (
	If "%%c" EQU "" (Goto :Crear "%~1" "%~2") ELSE (Set "Tipo=%%c" && Goto :Asociar)
)
 
:Comprobar_desasociar
For /F "Tokens=1,2* delims= " %%a in ('Reg query "HKCR\%~2" ^| find "Predeterminado"') do (
	If "%%c" EQU "" (Goto :ERROR.DESA) ELSE (Set "Tipo=%%c" && Goto :Desasociar)
)
 
:Comprobar_crear
Reg query "HKCR\%~2"  >nul 2>&1
If "%errorlevel%" EQU "1"  (Goto :Crear0 "%~1" "%~2") ELSE (Set "Tipo=%%c" && Goto :Asociar)
 
 
:Crear
Reg add "HKCR\%~1" /d "%~2.File" /F  >nul 2>&1
Set "Tipo=%~1.File"
Goto :Asociar
 
 
:Crear0
Reg add "HKCR\%~2" /F  >nul 2>&1
Reg add "HKCR\%~2" /d "%~2.File" /F  >nul 2>&1
Set "Tipo=%~2.File"
Goto :Asociar
 
 
:Asociar
Echo+
Ftype %Tipo%="%PROGRAM%" "%%1" | MORE
Echo: CORRECTO
Exit /B 0
 
 
:Desasociar
Echo+
Ftype %Tipo%="" | MORE
Echo: CORRECTO
Exit /B 0

# 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)
 
 
 
# Modulos
 
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
 
 
 
# Metodos
 
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)
 
  rescue Errno::EACCES
   response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
	 if response == CLICKED_YES
	    Access($archivo, ARGV[0])	
   	     retry 
   	 elsif response == CLICKED_CANCEL
   	     Process.exit 
  end
end
 
def reintentar(source_file, dest_file)
  response = message_box("El archivo esta en uso:\n" + $archivo  + "\n\n Reintentar?", "Reintentar?", BUTTONS_OKCANCEL)
	 if response == CLICKED_YES
   	    Access($archivo, ARGV[0]) 
  	 elsif response == CLICKED_NO
  	 nil
   	 elsif response == CLICKED_CANCEL
   	     Process.exit
 end
end
 
def Access(source_file, dest_file)
 ENV['tmp'] = $archivo.split('\\').last 
 'cheat environment_variables --add'
 puts %x[cmdow.exe | Find "%tmp:~0,30%" >NUL]
 response = $?.exitstatus
	if response == 0
	    reintentar($archivo, ARGV[0])
	elsif response == 1
	    FileUtils.mv $archivo, ARGV[0]
	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)
		force_move($archivo, ARGV[0]) 
		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
  	 	 Access($archivo, ARGV[0])
  	 	elsif response == CLICKED_NO
  	 	 nil
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
		Access($archivo, ARGV[0])
 	end
end
 
 
# Fin
Process.exit

ENV['tmp'] = 'string'
'cheat environment_variables --add'
puts ENV['tmp']

ENV['tmp'] ='Wasted'
'cheat environment_variables --add'
puts %x[cmdow.exe | Find "%tmp%"]
puts $?.exitstatus

$archivo="1.mp3"
 
system ('cmdow.exe | Find "($archivo)"')
puts $?.exitstatus
 
Process.exit

@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

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

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

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

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

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