Mensajes

Saben si Filezilla tiene historial de envios?
Quisiera saber lo que envie la ultima vez y no encuentro la manera.

Filezilla tiene un log, pero no está activado por defecto... así que si no tenias activada la opción siento decirte que no existe esa información en ninguna parte



Saludos

Sin darme cuenta subí una versión que no estaba acabada, no se como cometí tremendo despiste, después de reiniciar en modo seguro habia que iniciar de forma manual el proceso del explorer, os pido mil disculpas.

He subido una versión corregida (y además con mejoras), aquí podeis ver como funciona perféctamente:

[youtube=640,360]http://www.youtube.com/watch?v=9u46uCrZHaE[/youtube]


Nadie me ha reportado ningún problema así que quizás llego a tiempo y todavía nadie se ha descargado el primer instalador que compartí.

Pero si alguien ha sufrido algún problema con su inicio del explorador de Windows entonces ejecuten este comando en la consola para solucionarlo:

Código [Seleccionar] Expandir

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "Shell" /T "REG_SZ" /D "Explorer.exe" /F

De todas formas aquí pongo un tutorial que he hecho para explicar la manera de corregir el problema de la versión que compartí:

[youtube=640,360]http://www.youtube.com/watch?v=b_EoDvq6imk [/youtube]


PD: Ya lo pueden descargar y usar sin peligro en los enlaces del primer post,
un saludo!

· Una nueva versión de mi FileInfo personalizado, para obtener información sobre un archivo.

Código (vbnet) [Seleccionar] Expandir

    Public Class InfoFile

#Region " InfoFile "

        ' [ InfoFile ]
        '
        ' // By Elektro H@cker
        '
        ' Examples:
        '
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Name)) ' Result: Test
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Extension_Without_Dot)) ' Result: txt
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileName)) ' Result: Test.txt
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Directory)) ' Result: C:\
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.DriveRoot)) ' Result: C:\
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.DriveLetter)) ' Result: C
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FullName)) ' Result: C:\Test.txt
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.ShortName)) ' Result: Test.txt
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.ShortPath)) ' Result: C:\Test.txt
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Name_Length)) ' Result: 8
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Extension_Without_Dot_Length)) ' Result: 3
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileName_Length)) ' Result: 8
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Directory_Length)) ' Result: 3
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FullName_Length)) ' Result: 11
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileSize_Byte)) ' Result: 5.127.975
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileSize_KB)) ' Result: 5.007.79
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileSize_MB)) ' Result: 4,89
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileSize_GB)) ' Result: 0,00
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileSize_TB)) ' Result: 0,00
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.FileVersion)) ' Result: ""
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Attributes_Enum)) ' Result: 8224
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Attributes_String)) ' Result: Archive, NotContentIndexed
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.CreationTime)) ' Result: 16/09/2012  8:28:17
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.LastAccessTime)) ' Result: 16/09/2012 10:51:17
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.LastModifyTime)) ' Result: 16/09/2012 10:51:17
        ' MsgBox(InfoFile.Get_Info("C:\Test.txt", InfoFile.Info.Has_Extension)) ' Result: True

        Public Enum Info

            Name                  ' Filename without extension
            Extension_With_Dot    ' File-Extension (with dot included)
            Extension_Without_Dot ' File-Extension (without dot)
            FileName              ' Filename.extension
            Directory             ' Directory name
            FullName              ' Directory path + Filename

            DriveRoot             ' Drive letter
            DriveLetter           ' Drive letter (only 1 character)

            ShortName ' DOS8.3 Filename
            ShortPath ' DOS8.3 Path Name

            Name_Length                  ' Length of Filename without extension
            Extension_With_Dot_Length    ' Length of File-Extension (with dot included)
            Extension_Without_Dot_Length ' Length of File-Extension (without dot)
            FileName_Length              ' Length of Filename.extension
            Directory_Length             ' Length of Directory name
            FullName_Length              ' Length of Directory path + Filename

            FileSize_Byte ' Size in Bytes
            FileSize_KB   ' Size in KiloBytes
            FileSize_MB   ' Size in MegaBytes
            FileSize_GB   ' Size in GigaBytes
            FileSize_TB   ' Size in TeraBytes

            FileVersion ' Version for DLL or EXE files

            Attributes_Enum   ' Attributes as numbers
            Attributes_String ' Attributes as descriptions

            CreationTime   ' Date Creation time
            LastAccessTime ' Date Last Access time
            LastModifyTime ' Date Last Modify time

            Has_Extension  ' Checks if file have a file-extension.

        End Enum

        Public Shared Function Get_Info(ByVal File As String, ByVal Information As Info) As String

            Dim File_Info = My.Computer.FileSystem.GetFileInfo(File)

            Select Case Information

                Case Info.Name : Return File_Info.Name.Substring(0, File_Info.Name.LastIndexOf("."))
                Case Info.Extension_With_Dot : Return File_Info.Extension
                Case Info.Extension_Without_Dot : Return File_Info.Extension.Split(".").Last
                Case Info.FileName : Return File_Info.Name
                Case Info.Directory : Return File_Info.DirectoryName
                Case Info.DriveRoot : Return File_Info.Directory.Root.ToString
                Case Info.DriveLetter : Return File_Info.Directory.Root.ToString.Substring(0, 1)
                Case Info.FullName : Return File_Info.FullName
                Case Info.ShortName : Return CreateObject("Scripting.FileSystemObject").GetFile(File).ShortName
                Case Info.ShortPath : Return CreateObject("Scripting.FileSystemObject").GetFile(File).ShortPath
                Case Info.Name_Length : Return File_Info.Name.Length
                Case Info.Extension_With_Dot_Length : Return File_Info.Extension.Length
                Case Info.Extension_Without_Dot_Length : Return File_Info.Extension.Split(".").Last.Length
                Case Info.FileName_Length : Return File_Info.Name.Length
                Case Info.Directory_Length : Return File_Info.DirectoryName.Length
                Case Info.FullName_Length : Return File_Info.FullName.Length
                Case Info.FileSize_Byte : Return Convert.ToDouble(File_Info.Length).ToString("n0")
                Case Info.FileSize_KB : Return (Convert.ToDouble(File_Info.Length) / 1024L).ToString("n2")
                Case Info.FileSize_MB : Return (Convert.ToDouble(File_Info.Length) / 1024L ^ 2).ToString("n2")
                Case Info.FileSize_GB : Return (Convert.ToDouble(File_Info.Length) / 1024L ^ 3).ToString("n2")
                Case Info.FileSize_TB : Return (Convert.ToDouble(File_Info.Length) / 1024L ^ 4).ToString("n2")
                Case Info.FileVersion : Return CreateObject("Scripting.FileSystemObject").GetFileVersion(File)
                Case Info.Attributes_Enum : Return File_Info.Attributes
                Case Info.Attributes_String : Return File_Info.Attributes.ToString
                Case Info.CreationTime : Return File_Info.CreationTime
                Case Info.LastAccessTime : Return File_Info.LastAccessTime
                Case Info.LastModifyTime : Return File_Info.LastWriteTime
                Case Info.Has_Extension : Return IO.Path.HasExtension(File)

                Case Else : Return String.Empty

            End Select

        End Function

#End Region

    End Class





· Lo mismo de arriba pero para directorios:

Código (vbnet) [Seleccionar] Expandir

Public Class InfoDir

#Region " InfoDir "

    ' [ InfoDir ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    '
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.Name)) ' Result: Test
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.Parent)) ' Result: Test Parent
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FullName)) ' Result: C:\Test Parent\Test
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.DriveRoot)) ' Result: C:\
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.DriveLetter)) ' Result: C
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.Name_Length)) ' Result: 4
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FullName_Length)) ' Result: 19
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.Attributes_Enum)) ' Result: 8208
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.Attributes_String)) ' Result: Directory, NotContentIndexed
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.CreationTime)) ' Result: 16/09/2012  8:28:17
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.LastAccessTime)) ' Result: 16/09/2012 10:51:17
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.LastModifyTime)) ' Result: 16/09/2012 10:51:17
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FileSize_Byte)) ' Result: 5.127.975
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FileSize_KB)) ' Result: 5.007.79
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FileSize_MB)) ' Result: 4,89
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FileSize_GB)) ' Result: 0,00
    ' MsgBox(InfoDir.Get_Info("C:\Test Parent\Test", InfoDir.Info.FileSize_TB)) ' Result: 0,00

    Public Enum Info

        Name                  ' Folder name
        FullName              ' Directory path
        Parent                ' Parent directory

        DriveRoot             ' Drive letter
        DriveLetter           ' Drive letter (only 1 character)

        Name_Length                  ' Length of directory name
        FullName_Length              ' Length of full directory path

        FileSize_Byte ' Size in Bytes     (including subfolders)
        FileSize_KB   ' Size in KiloBytes (including subfolders)
        FileSize_MB   ' Size in MegaBytes (including subfolders)
        FileSize_GB   ' Size in GigaBytes (including subfolders)
        FileSize_TB   ' Size in TeraBytes (including subfolders)

        Attributes_Enum   ' Attributes as numbers
        Attributes_String ' Attributes as descriptions

        CreationTime   ' Date Creation time
        LastAccessTime ' Date Last Access time
        LastModifyTime ' Date Last Modify time

    End Enum

    Public Shared Function Get_Info(ByVal Dir As String, ByVal Information As Info) As String

        Dim Dir_Info = My.Computer.FileSystem.GetDirectoryInfo(Dir)

        Select Case Information

            Case Info.Name : Return Dir_Info.Name
            Case Info.FullName : Return Dir_Info.FullName
            Case Info.Parent : Return Dir_Info.Parent.ToString
            Case Info.DriveRoot : Return Dir_Info.Root.ToString
            Case Info.DriveLetter : Return Dir_Info.Root.ToString.Substring(0, 1)
            Case Info.Name_Length : Return Dir_Info.Name.Length
            Case Info.FullName_Length : Return Dir_Info.FullName.Length
            Case Info.FileSize_Byte : Return Convert.ToDouble(Get_Directory_Size(Dir_Info)).ToString("n0")
            Case Info.FileSize_KB : Return (Convert.ToDouble(Get_Directory_Size(Dir_Info)) / 1024L).ToString("n2")
            Case Info.FileSize_MB : Return (Convert.ToDouble(Get_Directory_Size(Dir_Info)) / 1024L ^ 2).ToString("n2")
            Case Info.FileSize_GB : Return (Convert.ToDouble(Get_Directory_Size(Dir_Info)) / 1024L ^ 3).ToString("n2")
            Case Info.FileSize_TB : Return (Convert.ToDouble(Get_Directory_Size(Dir_Info)) / 1024L ^ 4).ToString("n2")
            Case Info.Attributes_Enum : Return Dir_Info.Attributes
            Case Info.Attributes_String : Return Dir_Info.Attributes.ToString
            Case Info.CreationTime : Return Dir_Info.CreationTime
            Case Info.LastAccessTime : Return Dir_Info.LastAccessTime
            Case Info.LastModifyTime : Return Dir_Info.LastWriteTime

            Case Else : Return String.Empty

        End Select

    End Function

    Private Shared Function Get_Directory_Size(Directory As IO.DirectoryInfo) As Long
        Try
            Dim Dir_Total_Size As Long = Directory.EnumerateFiles().Sum(Function(file) file.Length)
            Dir_Total_Size += Directory.EnumerateDirectories().Sum(Function(dir) Get_Directory_Size(dir))
            Return Dir_Total_Size
        Catch
        End Try
        Return -1
    End Function

#End Region

End Class





Convierte bytes a otra unidad:

Código (vbnet) [Seleccionar] Expandir

#Region " Convert Bytes Function "

    ' [ Convert Bytes Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(String.Format("{0} KB", Byte_To_Size(5127975, xByte.kilobyte, 2))) ' Result: 5007,79 KB
    ' MsgBox(String.Format("{0} MB", Byte_To_Size(5127975, xByte.megabyte, 2))) ' Result: 4,89 MB
    ' MsgBox(String.Format("{0} GB", Byte_To_Size(5127975, xByte.gigabyte, 3))) ' Result: 0,005 GB
    ' MsgBox(String.Format("{0} TB", Byte_To_Size(5127975, xByte.terabyte, 3))) ' Result: 0 TB
    ' MsgBox(String.Format("{0} PB", Byte_To_Size(5127975, xByte.petabyte, 3))) ' Result: 0 PB

    Enum xByte As Long
        kilobyte = 1024L
        megabyte = 1024L * kilobyte
        gigabyte = 1024L * megabyte
        terabyte = 1024L * gigabyte
        petabyte = 1024L * terabyte
    End Enum

    Private Function Byte_To_Size(ByVal bytes As Long, _
                                  ByVal convertto As xByte, _
                                  Optional ByVal decimals As Integer = 2 _
                                  ) As Double

        Return (Convert.ToDouble(bytes) / convertto).ToString("n" & decimals)

    End Function

#End Region


gracias

Ok, gracias. Pues sera hora de probarlo.

Saludos.

EDITO: Ya lo probe, me sale la opción de acceso pero no se expande.

¿puedes decirme que instalador probaste y bajo que versión de Windows para buscar el problema? 32bit o 64 bit?

Igualmente supongo que no puedo dar permisos si el usuario no puede modificar permisos, no?

En teoría sin problemas porque los cambios de permisos son para el usuario actual, no para todos los usuarios incluido Administrador.

Tienes el code?

Pues si pero... son 16 scripts (para 16 opciones) y da palo xD, si instalas el archivo se expanden los archivos a la carpeta System32, te posteo dos códigos:

Código (dos) [Seleccionar] Expandir

Echo OFF
Title Denegar acceso para: %UserName%
Mode Con Cols=100 Lines=20
Color 0F

Echo+
Echo: Procesando directorio y subdirectorios de:
Echo: "%~1"
Timeout /T 2 1>NUL

Echo+
Dir /B /S /AD "%~1" 2>NUL
Echo+

takeown /F "%~1" /R /D S 1>NUL 2>&1
Icacls "%~1" /Deny "%UserName%":"(RC,AS,GR,GE,RD,REA,X,RA)" /T 2>NUL | Find /I "Correctamente" 1>NUL && (
Echo+
Echo: Permiso de "Lectura y ejecucion" denegado al usuario "%UserName%"
) || (
Echo+
Echo: Error al intentar denegar permisos al usuario "%UserName%"
)

Timeout /T 6 >Nul
Exit

Código (dos) [Seleccionar] Expandir

Echo OFF
Title Conceder acceso para: %UserName%
Mode Con Cols=100 Lines=20
Color 0F

Echo+
Echo: Procesando Archivo:
Echo: "%~1"

(
(
Takeown /F "%~1" >Nul && Icacls "%~1" /Grant "%username%":"(WDAC,WO,WD,AD,WEA,WA)" >nul
) || (
Icacls "%~1" /Grant "%username%":"(WDAC,WO,WD,AD,WEA,WA)" >nul
)
) && (
Echo+
Echo+
Echo: Permiso de "Escritura" concedido al usuario "%username%"
) || (
Echo+
Echo+
Echo. Error al intentar conceder permisos al usuario "%username%"
)

Timeout /T 5
Exit

Saludos!

[attrib]

Esto lo que hace es usar attrib, no?

Nop, para nada, creo que has confundido atributos con permisos, lo que hago es stablecer el propietario con "TakeOwn" y luego establezco los permisos con "Icacls".

Gracias por comentar,
Saludos!

[Menu en cascada para Windows 8 - Accesorios de Windows]

Menu en cascada para Windows 8 - Accesorios de Windows

Imágenes:





Instrucciones:

1. Copiar el siguiente código en el bloc de notas y guardarlo como "Accesorios.cmd"

Código (dos) [Seleccionar] Expandir

@Echo OFF

REG ADD "HKEY_CLASSES_ROOT\DesktopBackground\Shell\.Accesorios" /V "MUIVerb" /T "REG_SZ" /D "Accesorios" /F
REG ADD "HKEY_CLASSES_ROOT\DesktopBackground\Shell\.Accesorios" /V "SubCommands" /T "REG_SZ" /D "Bloc de notas;Calculadora;Grabadora de sonidos;Grabacion de acciones;Mapa de caracteres;Notas;Paint;Recortes" /F
REG ADD "HKEY_CLASSES_ROOT\DesktopBackground\Shell\.Accesorios" /V "icon" /T "REG_SZ" /D "imageres.dll,-109" /F
REG ADD "HKEY_CLASSES_ROOT\DesktopBackground\Shell\.Accesorios" /V "position" /T "REG_SZ" /D "Bottom" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Bloc de notas" /V  "" /D "Bloc de notas" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Bloc de notas" /V "icon" /T "REG_SZ" /D "notepad.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Bloc de notas\command" /V  "" /D "notepad.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Calculadora" /V  "" /D "Calculadora" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Calculadora" /V "icon" /T "REG_SZ" /D "calc.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Calculadora\command" /V  "" /D "calc.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabadora de sonidos" /V  "" /D "Grabadora de sonidos" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabadora de sonidos" /V "icon" /T "REG_SZ" /D "SoundRecorder.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabadora de sonidos\command" /V  "" /D "SoundRecorder.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabacion de acciones" /V  "" /D "Grabación de acciones" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabacion de acciones" /V "icon" /T "REG_SZ" /D "psr.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Grabacion de acciones\command" /V  "" /D "psr.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Mapa de caracteres" /V  "" /D "Mapa de caracteres" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Mapa de caracteres" /V "icon" /T "REG_SZ" /D "charmap.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Mapa de caracteres\command" /V  "" /D "charmap.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Notas" /V  "" /D "Notas" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Notas" /V "icon" /T "REG_SZ" /D "StikyNot.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Notas\command" /V  "" /D "StikyNot.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Paint" /V  "" /D "Paint" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Paint" /V "icon" /T "REG_SZ" /D "mspaint.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Paint\command" /V  "" /D "mspaint.exe" /F

REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Recortes" /V  "" /D "Recortes" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Recortes" /V "icon" /T "REG_SZ" /D "SnippingTool.exe" /F
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Recortes\command" /V  "" /D "SnippingTool.exe" /F

2. Ejecutar el archivo.


Que lo disfruten!

[Menu en cascada para Windows 8 - Personalizar]

Menu en cascada para Windows 8 - Personalizar

Imágenes:





Instrucciones:

1. Descargar el siguiente archivo:

-> Para Windows 8 32 Bit
-> Para Windows 8 64 Bit

2. Instalarlo.

NOTA: Este menú únicamente funciona en Windows 8 64 Bits, si quieren utilizarlo en Windows 8 x86 deben desempaquetar el instalador con la utilidad "InnoUnp" y modificar en el script el parámetro del modo de instalación de la arquitectura (ArchitecturesInstallIn64BitMode) además de usar la aplicación SetACL para 32 Bit y corregir las claves de registro del DESinstalador en la sección [RUN].

Que lo disfruten!

[Menu en cascada para Windows 8 - Permisos de usuario]

Menu en cascada para Windows 8 - Permisos de usuario

Imágenes:

   





Instrucciones:

1. Descargar el siguiente archivo:

-> Para Windows 8 32 Bit  NOTA: El instalador de 32 Bit no lo he testeado lo suficiente, el menú podría no mostrarse corréctamente.
-> Para Windows 8 64 Bit  NOTA: FIXED!

2. Instalarlo.


Que lo disfruten!