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

HKEY_CLASSES_ROOT\.swf

HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash

(
 Echo HKEY_CLASSES_ROOT\.swf                                      [1 7 17]
 Echo HKEY_CLASSES_ROOT\.swf\defaulticon                          [1 7 17]
 Echo HKEY_CLASSES_ROOT\.swf\OpenWithList                         [1 7 17]
 Echo HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash             [1 7 17]
 Echo HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\CLSID       [1 7 17]
 Echo HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\CurVer      [1 7 17]
 Echo HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\defaulticon [1 7 17]
 Echo HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash\Shell       [1 7 17]
)>"%TEMP%\Flash.ini"
Regini.exe "%TEMP%\Flash.ini"

REM Este comando modifica el propietario.
setacl.exe -on "HKEY_CLASSES_ROOT\.swf" -ot reg -ownr "n:%USERNAME%" -rec yes -actn setowner
setacl.exe -on "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash" -ot reg -ownr "n:%USERNAME%" -rec yes -actn setowner
 
REM Este comando modifica los permisos de la clave.
setacl.exe -on "HKEY_CLASSES_ROOT\.swf" -ot reg -ace "n:%USERNAME%;p:full" -rec yes -actn ace
setacl.exe -on "HKEY_CLASSES_ROOT\ShockwaveFlash.ShockwaveFlash" -ot reg -ace "n:%USERNAME%;p:full" -rec yes -actn ace

Cierro el tema, si tienes una duda debes crear un nuevo post, no revivir uno antiguo  .