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

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

@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

# -*- 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

# Proceso
 
def Mover()
 
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
  	 	 FileUtils.move archivo, ARGV[0]
  	 	elsif response == CLICKED_CANCEL
  	 	 Process.exit
		end
	else
	 FileUtils.move archivo, ARGV[0]
 	end
end
 
rescue Errno::EACCES
 puts "El archivo está en uso"
FileUtils.move archivo, ARGV[0]
retry
 
end
 
 
Mover()
Process.exit

require "FileUtils"
 
for archivo in ARGV
     FileUtils.move archivo, ARGV[0]
end
 
Process.exit

ARGV[1]..ARGV[(ARGV.length)].each { |archivo| FileUtils.move archivo, ARGV[0] }

ARGV[1].upto ARGV[(ARGV.length)] { |archivo| FileUtils.move archivo, ARGV[0] }

for archivo in ARGV[1], ARGV[(ARGV.length)]
    FileUtils.move archivo, ARGV[0]
end

class Anfitrion
   attr_accessor :nombre
 end

@nombre = "lo que sea"