Mensajes

[un golpecillo]

también has tenido la idea de darle un golpecillo para ver si el brazo estaba atascado xD.

siiii.... uuuuuuuuuuuuuuno... no más... xD ya perdí la cuenta.

Cuanto mas tiempo pase mas dificil sera encontrar un disco como el tuyo para piezas , si puedes intenta localizar un disco igual al tuyo y cuando puedas pagar eso al menos puedes aportar disco de piezas.

No creas que no lo he pensado, algun dia se extinguirá por completo la serie de mi HDD y ya si que no habrá ninguna esperanza... tienes razón ahora que lo pienso mejor es muy buena idea comprar un hdd igual que el mio para tenerlo de reserva por si el día de mañana consigo una solución y debo aportar el HDD porque no se puede encontrar...
...espero poder estar a tiempo de encontrarlo, hasta que no me devuelvan mi HDD no sé el numero de serie ni nada.

Pero básicamente en lo que me tengo que fijar si intento adquirir el mismo HDD es que el modelo sea el mismo, ¿lo demás como el número de serie y todo eso no importa ...o si?

Un maxtor del mismo modelo y misma capacidad, ¿debo tener en cuenta algún detalle técnico más?

Gracias Imoen,
saludos

[NUEVA VERSIÓN DISPONIBLE]

NUEVA VERSIÓN DISPONIBLE

Versión 1.1

Cambios:
   
· He extendido la funcionalidad de la aplicación para poder administrar también las extensiones del PATHEXT
· He implementado y compatibilizado todas las opciones originales del PATH con la la nueva funcionalidad extendida para manejar la variable PATHEXT (añadir extension, eliminar extension, backup, clean, etc...).
· Caracteristica opcional en el instalador, esta caracteristica agrega la opción "Añadir carpeta al PATH" en le menú contextual del mouse (No lo he testeado en WinXP)

PD: Las imágenes del post principal NO son de esta última versión.

Saludos

Hola

en los cuales tengo 3 elementos

...De que elementos se tratan, o tenemos que adivinarlo xD?.

Bueno, como no has proporcionado la suficiente información te muestro mi solución en VB.NET, requiere el uso de Framework 4.0 3.5 por las extensiones LINQ:

Básicamente lo que tienes que hacer es recorrer la colección de controles del contenedor y comprobar la cantidad de esos controles que están "seleccionados" para "deshabilitar" el resto de controles.

Código (vbnet) [Seleccionar] Expandir

   Private CheckBoxes() As CheckBox
   Private CheckIt As Boolean

   Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) _
   Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
           CheckBox3.CheckedChanged, CheckBox4.CheckedChanged

       CheckBoxes = Me.GroupBox1.Controls.OfType(Of CheckBox)().ToArray

       Select Case CheckBoxes.Where(Function(x) x.Checked).Count
           Case Is >= 2 : CheckIt = False
           Case Is < 2 : CheckIt = True
       End Select

       For Each ctrl As CheckBox In CheckBoxes.Where(Function(x) Not x.Checked)
           ctrl.Enabled = CheckIt
       Next

       CheckBoxes = Nothing

   End Sub


Aquí tienes una traducción al vuelo para C#,
convierte el Switch a un par de IF's y te debería funcionar

Código [Seleccionar] Expandir

si Checkeds es igual o mayor que 2...
 Enable = false
si checkeds es menor que 2...
 Enable = true

Código (csharp) [Seleccionar] Expandir



private void CheckBoxes_CheckedChanged(object sender, EventArgs e)
{
dynamic Controls = this.GroupBox1.Controls.OfType<CheckBox>();
dynamic Checkeds = Controls.Where(x => x.Checked).Count;
bool Enable = false;

switch (Checkeds) {
case  // ERROR: Case labels with binary operators are unsupported : GreaterThanOrEqual
2:
Enable = false;
break;
case  // ERROR: Case labels with binary operators are unsupported : LessThan
2:
Enable = true;
break;
}

foreach (CheckBox ctrl in Controls.Where(x => !x.Checked)) {
ctrl.Enabled = Enable;
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

Saludos!

[· DESCRIPCIÓN:]

Código [Seleccionar] Expandir


:::::::::     ::: ::::::::::: :::    :::  ::::::::  
:+:    :+:  :+: :+:   :+:     :+:    :+: :+:    :+:
+:+    +:+ +:+   +:+  +:+     +:+    +:+ +:+        
+#++:++#+ +#++:++#++: +#+     +#++:++#++ +#++:++#++
+#+       +#+     +#+ +#+     +#+    +#+        +#+
#+#       #+#     #+# #+#     #+#    #+# #+#    #+#
###       ###     ### ###     ###    ###  ########  

By Elektro H@cker

· DESCRIPCIÓN:

PATHS es una aplicación por línea de comandos para administrar las entradas de la variable de entorno PATH y PATHEXT de Windows.

Tiene opciones para agregar y eliminar entradas así como limpiar, restaurar o crear una copia de seguridad del PATH y del PATHEXT.

La aplicación ha sido desarrollada usando VisualStudio 2012 en el lenguaje VB.NET y bajo Framework 4.0 por el uso de LINQ.





· MODO DE EMPLEO:

Código [Seleccionar] Expandir

[+] Syntax:

   PATHS.exe [SWITCHES] [DIRECTORY or EXTENSION or INDEX]

Código [Seleccionar] Expandir

[+] Switches:

   /l (or) /list    | Displays a list of the path entries.
   /b (or) /backup  | Backup the entries to a Registry file.  
   /c (or) /clean   | Clean duplicates and invalid entries.
   /r (or) /reset   | Reset the paths to Windows default.
                    |
   /add -current    | Add an entry to the current user PATH.
   /add -local      | Add an entry to the local machine PATH.
   /a (or) /add     | Add an entry to both PATH's.
                    |
   /del -current    | Delete an entry from current user PATH.
   /del -local      | Delete an entry from local machine PATH.
   /d (or) /del     | Delete an entry from both PATH's.
                    |
   /addext -current | Add an extension to current user PATHEXT.
   /addext -local   | Add an extension to local machine PATHEXT.
   /addext          | Add an extension to both PATHEXT's.
                    |
   /delext -current | Delete an extension from current user PATHEXT.
   /delext -local   | Delete an extension from local machine PATHEXT.
   /delext          | Delete an extension from both PATHEXT's.
                    |
   /? (or) /help    | Display this help.

Código [Seleccionar] Expandir

[+] Additional switch value's Syntax:

   /del -current (Directory)
   /del -current (Entry Index)

   /del -local   (Directory)
   /del -local   (Entry Index)

   * You can see all the entry index numbers typing: PATHS /list

   /addext -current (File-Extension)
   /addext -local   (File-Extension)

   /delext -current (File-Extension)
   /delext -local   (File-Extension)

Código [Seleccionar] Expandir

[+] Usage examples:

   PATHS /list

   PATHS /clean

   PATHS /reset

   PATHS /backup "C:\Registry File.reg"
   (Saves all the PATH and PATHEXT entries to the destination file)

   PATHS /add -current "C:\Directory"
   (Adds a new entry "C:\Directory" to Current User PATH)

   PATHS /add -local "C:\Directory"
   (Adds a new entry "C:\Directory" to All Users PATH)

   PATHS /add "C:\Directory"
   (Adds a new entry "C:\Directory" to both PATH's)

   PATHS /del -current "C:\Directory"
   (Deletes entries matching as "C:\Directory" from Current User PATH)

   PATHS /del -local "C:\Directory"
   (Deletes entries matching as "C:\Directory" from All Users PATH)

   PATHS /del "C:\Directory"
   (Deletes entries matching as "C:\Directory" from both PATH's)

   PATHS /del -current 5
   (Deletes entry index 5 from Current User PATH)

   PATHS /del -local 5
   (Deletes the entry index 5 from All Users PATH)

   PATHS /addext -current ".hack"
   (Adds a new ".hack" extension to Current User PATHEXT)

   PATHS /addext -local ".hack"
   (Adds a new ".hack" extension to All Users PATHEXT)

   PATHS /addext ".hack"
   (Adds a new ".hack" extension to both PATHEXT's)

   PATHS /delext -current ".hack"
   (Deletes extensions matching as ".hack" from Current User PATHEXT)

   PATHS /addext -local ".hack"
   (Deletes extensions matching as ".hack" from All Users PATHEXT)

   PATHS /addext ".hack"
   (Deletes extensions matching as ".hack" from both PATHEXT's)[/quote]





· IMÁGENES:


















· DESCARGA:

(Resubido el 05-Marzo-2014)
http://www.mediafire.com/download/ffuxgwezf4jd5c0/PATHS.rar

Incluye Source, compilado, e instalador.

Aquí pueden ver o descargar una versión antigua y no tán completa que codeé hace bastante tiempo en Ruby: [RUBY] [APPORTE PARA WINDOWS] PATHS v0.3 - Una utilidad para el PATH

yo quiero que en mi windows solo se puedan abrir el office el internet explorer y el visual basic, todo lo demas no se podra abrir.

¿Quieres restringirte el acceso de esas aplicaciones a ti tambien?, ¿o sólamente a las demás personas que utilicen tu PC?.


Para lo primero te puedo decir la forma manual de hacerlo (modificando los permisos de lectura del usuario, uno por uno en cada ejecutable, te llevaría un rato),
para lo segundo existen aplicaciones que protegen el acceso a otras aplicaciones mediante el uso de contraseñas, aunque ahora mismo no recuerdo el nombre de ninguna.

Saludos

Este código devuelve la cantidad de coincidencias de un String en los valores de un Array:

Código (vbnet) [Seleccionar] Expandir

#Region " Count Array Matches "

   ' [ Count Array Matches ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
    ' MsgBox(Count_Array_Matches({"a", "b", "c", "d", "d", "d"}, "d")) ' Result: 3

    Private Function Count_Array_Matches(ByVal Collection As String(), _
                                         ByVal Match As String, ByVal _
                                         IgnoreCase As Boolean) As Integer

        Return IIf(IgnoreCase, _
                  Collection.Where(Function(str) str.ToLower = Match.ToLower).Count, _
                  Collection.Where(Function(str) str = Match).Count)

    End Function

#End Region





Este código elimina los valores únicos de un array:

Código (vbnet) [Seleccionar] Expandir

#Region " Delete Array Unique Names "

   ' [ Delete Array Unique Names ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' Dim MyArray as String() = Delete_Unique_Values_In_Array({"a", "b", "c", "d", "d", "d"}) ' Result: {"d", "d", "d"}

   Private Function Delete_Unique_Values_In_Array(ByVal Collection As String()) As String()
       Return Collection.GroupBy(Function(x) x) _
       .Where(Function(x) x.Count() > 1) _
       .SelectMany(Function(x) x) _
       .ToArray()
   End Function

#End Region

PD: No está muy optimizado pero para Arrays pequeños no se aprecia nada el performance.

gracias electro utilize %homepatch% funcionara en windows 7 ?

No, si quieres utilizar la variable de entorno HOMEPATH debes añadirle la letra de la unidad al principio:

Código [Seleccionar] Expandir

Echo "%homedrive%\%homepath%"

Pero en lugar de eso puedes usar la variable USERPROFILE que almacena el perfil del usuario actual:

Código [Seleccionar] Expandir

Echo %userprofile%

no entiendo por que esto Start /B "" " las comillas

Syntax
     START "title" [/Dpath] [options] "command" [parameters]

Always include a TITLE this can be a simple string like "My Script" or just a pair of empty quotes ""
According to the Microsoft documentation, the title is optional, but you will have problems if it is omitted.

Tu estabas especificando el título al usar las comillas dobles, tu título era "%APPDATA%\xd.bat", no estabas especificando ningún archivo que abrir, si NO hubieras usado las comillas entonces si que se tomaría como una ruta y no como un título (aunque si tu nombre de usuario contiene espacios entonces no te habría funcionado de todas formas xD).

Lee un poco la ayuda de los comandos cuando te surgan dudas:

Código [Seleccionar] Expandir

Start /?

Correcto:

Código [Seleccionar] Expandir

Start /B app.exe
Start /B "" "app.exe"
Start /B "" "app con espacios.exe"

Incorrecto:
Correcto:

Código [Seleccionar] Expandir

Start /B "app.exe"
Start /B "app con espacios.exe"
Start /B app con espacios.exe

Saludos

mi prenguta es por que esto no ejecuta la aplicacion

Código [Seleccionar] Expandir

start /b "%APPDATA%\xd.bat"

Prueba así:

Código (dos) [Seleccionar] Expandir

If Exists "%APPDATA%\xd.bat" (Start /B "" "%APPDATA%\xd.bat") ELSE (Echo El archivo no existe)

PD: Para la próxima vez lo mínimo que puedes hacer cuando tengas una duda es postear el error que te manda la CMD al intentar ejecutar el archivo, no somos adivinos.

y si me podrian decir directorios donde batch pueda copiar en windows 7 por ejemplo windows 7 no deja copiar ni crear carpetas en el directorio de windows por el uac ay carpetas que no tengan bloqueos ?

Me parece que todas las carpetas del usuario actual están "desprotegidas", es decir todas las carpetas que estén dentro de la carpeta del perfil del usuario logueado, menos las ocultas como Application Data.

Y puedes cambiar el propietario de cualquier carpeta con TAKEOWN y modificar los privilegios de acceso para ese usuario con ICACLS.

Saludos

[Imoen]

Insisto si no puedes o no quieres pagar los 600 es que los datos no valen ese dinero para ti

Te aseguro que si yo fuese rico pagaría el precio, pero no lo soy, no es que no quiera pagarlo porque los datos no valgan ese dinero, es que por responsabilidad no puedo pagar un precio tan elevado, como ya digo he guardado el disco durante 5 años así que imaginate si tengo ganas de poder recuperarlos o no

y no has probado a arreglar tu el disco ?¿ , puedes comentar el problema que tiene y lo mismo podemos ayudarte , aunque las opciones se reducen a dos

A) error de la parte electronica , cambiar la placa por una igual dificultad media , mas que nada encontrar una placa igual
B) error mecanico pues o pagas o destruyes el disco

Pues eso es lo que intento averiguar Imoen, según la empresa este es el supuesto fallo del disco:



Diréctamente el disco no funciona, al arrancar la bios intenta reconocer el disco pero no puede reconocerlo, el disco empieza a hacer un ruido como una correa de bicicleta y luego hace un "Click!" como si llegase a un "tope", y se repiten esos ruidos durante unos minutos hasta que finálmente la bios deja de intentar reconocer el disco y los ruidos paran.

Yo no estoy capacitado para reparar el disco porque no se calibrar los bloques de los cabezales ni esas historias... pero no sé si esto es dificil para una persona con nivel medio de conocimientos sobre la reparación de HDD's, por eso aun me queda la pequeña esperanza de poder contratar la ayuda de algún técnico de este foro por un precio que no sea tan desorbitado como los de estas empresas...

PD: Intenté un par de veces lo de meter el disco en una bolsa en el congelador pero no me funcionó .

Un saludo!

me dice que la carpeta esta vacia, enseguida reintento acceder y me aparecen los archivo

Un virus no hace eso.

¿Falta de mantenimiento preventivo?

¿Que cantidad de archivos hay en esa carpeta?.

Alguna que otra vez suele pasar, me ha pasado sobretodo en máquinas virtuales, windows necesita tiempo para listar y mostrar los archivos de las carpetas a las que accedes, ese tiempo puede demorar entre unos pocos milisegundos o incluso segundos, si tienes un procesador lento y miles de archivos en esa carpeta entonces me parece normal lo que comentas. Otras veces me ha pasado que el único modo de que se actualizase la carpeta sea reaccediendo como tu has comentado.

1. Empieza por decir que Windows usas.

2. En la carpeta Downloads desactiva todas las columnas inecesarias


3. Si en la carpeta hay imágenes entonces en las propiedades del sistema puedes desactivar la vista prevía de imágenes si no te importa perder los thumbnails
   

4. Si lo crees conveniente puedes desactivar algunas opciones más relacionadas con las ventanas del explorer


5. Prueba a desactivar también el panel de vista previa y el panel de navegación del explorer.

Todo eso para que las carpetas se carguen de forma más fluida sin necesitar tanto tiempo de carga.

Saludos