Mensajes

[LLFT]

Sí, estoy seguro de que si consiguiera acceder con el programa ese lo borraría, ¿pero dónde lo instalo, si el PC en cuestión no puede encenderse?

Pero es que no hace falta usar el LLFT, Tienes un pendrive con windows xp, Bootealo como hiciste en un principio, Inicias la instalación, y te saldrá un menú para administrar las particiones, ahí puedes formatearlas también...

si hay algo que no entiendas del todo , pregunta

EDITO:
Pero en mi opinion sigo diciendo que deberías bajarte un live cd de win xp y formatear desde allí porque no te aclaras mucho xD, O bajate el Hiren's boot cd, que tambien puedes formatear booteando ese cd...

[Lordzito]

Apareciste de la nada y ni avisaste tu llegada

No se si me dijiste a mi o a Lordzito!
joer, pues llevo +700 mensajes con este nuevo user y me respondiste a algún tema, pensé que que ya lo sabrias

Yo también me alegro que siga habiendo gente como tú rondando este foro  



Así támpoco te funciona?

Código (dos) [Seleccionar] Expandir

@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

Ya no se me ocurre nada más...


Prueba esto, Debe funcionar en tu XP al 100%

Código [Seleccionar] Expandir

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"



Si te funciona el último, Entonces convierte tu bat a .exe y le añades el icono (con Restorator o reshacker) y entonces en el valor "icon" pones la ruta al ejecutable que tiene el icono...

[ASSOC7]

Hello world!

Estaba cansado de tener que usar "assoc" para buscar si existe una estenxion, Y luego "ftype" para buscar la asociacion de esa extensión... bah!

He creado mi propia utilidad, ASSOC7.



Muchos conocerán la utilidad "Associate.exe" de mierd@soft Microsoft, Pues hace basicamente CASI lo mismo que mi utilidad, Pero "Associate.exe" no funciona correctamente (Crea mal las asociaciones).

El modo de usar este script es parecida a la utilidad "Associate"...

Código [Seleccionar] Expandir

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

Pero mejorado!  

Código [Seleccionar] Expandir

- Opciones:

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

Ejemplo para asociar:

Código (dos) [Seleccionar] Expandir

ASSOC7.exe -a .url notepad.exe
(Ftype urlfile="C:\windows\system32\notepad.exe" "%1")

Ejemplo para crear:

Código (dos) [Seleccionar] Expandir

ASSOC7.exe -c .elektro "%Windir%\notepad.exe"
(Reg add "HKCR\.elektro\.elektro.file"
Ftype .elektro.file="C:\windows\system32\notepad.exe" "%1")

Ejemplo para desasociar:

Código (dos) [Seleccionar] Expandir

ASSOC7.exe -d .elektro
(Ftype .elektro.file="")



Comparaciones:

                                                                        ASSOC7       Associate
Funciona en Windows 7                                              SI                             NO

Crea asociaciones                                                      SI                             NO

Modifica asociaciones                                                 SI                             SI (...Las jode en Windows 7, Menos la del notepad, Todas las demás.)

Elimina asociaciones                                                  SI                             SI

Se pueden usar nombres cortos para los programas      SI                             SI (Solamente si la instalación del programa está registrada en "AppPaths")


No tengo nada más que añadir.

Espero que a alguien le sirva como me servirá a mi  

Salu2!



El code:

Código (dos) [Seleccionar] Expandir

@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

[CMDOW]

Al final he recurrido a un programa de terceros (CMDOW) para windows...

Posteo el code pa quien lo quiera probar (Aviso que soy novato, pueden sobrar varias cosas pero funciona bien), Me ha costado mucho esfuerzo xD

Ahora es cuando debería sonar una melodia de VICTORY! I'm great!

salu2

Código (RUBY) [Seleccionar] Expandir

# 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


   
   


PD: El archivo de destino ya no se elimina al clickar "Reemplazar (SI)" porque primero comprueba si está en uso antes de usar el módulo FileUtils  

[EDITO]

se hace mediante las variables de entorno (Aunque los cambios no son permanentes, Me da miedo...)

Según he leido es la única forma:

Código (ruby) [Seleccionar] Expandir

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

http://ruby.about.com/od/rubyfeatures/a/envvar.htm


EDITO: Se me olvidaba, el ejemplo usandolo en la cmd xD:

Código (dos) [Seleccionar] Expandir

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

No consigo hacerlo de ninguna de las maneras xDD

¿Alguien sabe como?

muchas gracias...

Mi intento:

Código (dos) [Seleccionar] Expandir

$archivo="1.mp3"

system ('cmdow.exe | Find "($archivo)"')
puts $?.exitstatus

Process.exit

[EDITO]

Me he mirado todo el módulo Kernel, FileUtils, Sysread, test, filestat, Process::Sys, IO, IO::WaitReadable, IO::WaitWritable, IOError... y el ftools

No encuentro la manera de como averiguar si un proceso (Cualquiera) tiene abierto un archivo.


¿alguna ayuda?

EDITO:
Joder, con lo fácil que es hacerlo en batch... Pero no quiero depender de eso.

Supongo que tendré que buscar hasta encontrar alguna gema parecida al "CMDOW" para windows xD

[pitoloko]

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:

Código [Seleccionar] Expandir

   Windows Registry Editor Version 5.00
   
   [HKEY_CLASSES_ROOT\Drive\shell\ESCANEAR UNIDAD]
   "icon"="C:\\Archivos de programa\\prueba\\LSAA1.ico,0"
   
   [HKEY_CLASSES_ROOT\Drive\shell\SCANEAR UNIDAD\command]
   @="C:\\Archivos de programa\\prueba\\prueba.bat \"%1\""


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

[A-Msn]

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

Código (dos) [Seleccionar] Expandir

@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