Mensajes

Y como yo diria "Te han echo la púa"  denunciales.

xD hombre de momento no tengo nada por lo que denunciar, es una pena que no se les pueda denunciar por cara duras.

Ahora me ha llamado una chica de la compañia por telefono y me han rebajado el precio a 396 € (de casi 700€) porque han visto que quiero retirar mi HDD de sus oficinas,
el precio sigue siendo muy caro, pero teniendo en cuenta que estas compañias lo hacen todo igual de caro y más... y teniendo en cuenta que tampoco voy a encontrar a nadie que me lo haga por 200 € y que me lo haga bien, y además ya he conseguido contactar con una compañia que accede a rebajarme el precio y que puedo pagar en 4 plazos en 90 días... lo voy a aceptar, es un poco tentador.

Lo que no te dicen es que el disco duro de 500 GB que ellos ponen vale 65€ + IVA (y no va incluido en el precio la reparación), juas, pero bueno, me sobran discos asi que lo pongo yo.

Un saludo

Pues los de http://www.onretrieval.es parecen muy majos, he desconfiado mucho por todos los comentarios que he leido, pero en mi caso todo ha sido gratis y solo me hacen abonar 15€ para que me devuelvan el disco duro, y pagar 15€ es comprensibles por el transporte.

Ahora...  que no soy una persona de fiarse así de primeras, por eso les quiero preguntar...

¿Como puedo saber si no me han robado ninguna pieza del interior del HDD?, no sé si con conectar el HDD sería suficiente para comprobar su funcionalidad... porque en un principio no iba y hacia ruidos xD.

PD: Yo no soy técnico, ni se abrir el HDD, tenganlo en cuenta porfavor.

· Detectar la codificación de un archivo de texto

(Para quien no entienda de BOM's y codificaciones, no existe una manera 100% fiable de detectar la codificación y puede dar falsos positivos)

Código (vbnet) [Seleccionar] Expandir

#Region " Detect Text Encoding "

   ' [ Detect Text Encoding Function ]
   '
   ' Examples :
   '
   ' MsgBox(Detect_Text_Encoding("C:\ANSI File.txt").ToString) ' Result: System.Text.SBCSCodePageEncoding
   ' MsgBox(Detect_Text_Encoding("C:\UTF8 File.txt").ToString) ' Result: System.Text.UTF8Encoding


   Public Function Detect_Text_Encoding(TextFile As String) As System.Text.Encoding

       Dim Bytes() As Byte = IO.File.ReadAllBytes(TextFile)

       Dim detectedEncoding As System.Text.Encoding = Nothing

       For Each info As System.Text.EncodingInfo In System.Text.Encoding.GetEncodings()

           Dim currentEncoding As System.Text.Encoding = info.GetEncoding()
           Dim preamble() As Byte = currentEncoding.GetPreamble()
           Dim match As Boolean = True

           If (preamble.Length > 0) And (preamble.Length <= Bytes.Length) Then

               For i As Integer = 0 To preamble.Length - 1

                   If preamble(i) <> Bytes(i) Then
                       match = False
                       Exit For
                   End If

               Next i

           Else

               match = False

           End If

           If match Then
               detectedEncoding = currentEncoding
               Exit For
           End If

       Next info

       If detectedEncoding Is Nothing Then
           Return System.Text.Encoding.Default
       Else
           Return detectedEncoding
       End If

   End Function

#End Region

[muchas Gracias]

Como siempre -.- IN-CREI-BLE!

Vaya cara xD, ¿No te gustó?

En caso de que no sea sarcasmo, muchas Gracias!

Saludos

Ay señor... No me rio, todos hemos sido novatos, pero es que tienes que leer un poco sobre el lenguaje y practicarlo unas cuantas veces antes de ponerte a hacer códigos sin saber.

Código (dos) [Seleccionar] Expandir

@Echo OFF & Setlocal EnableDelayedExpansion

Set "DirPath=%*"
If "%DirPath:~-1%" EQU "\" (Set "DirPath=%DirPath:~0,-1%")

Set /P "Name=Nombre de Cliente:"
Call :ToWordCase "%Name%"

Set "FullPath=%DirPath%\%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%%WordCaseName%"

MKDIR "%FullPath%" && (Explorer "%FullPath%")

Pause&Exit

:ToWordCase
Set "Alphabet=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For %%# in (%~1) do (
Set "Word=%%#"
Set "Char=!Word:~0,1!"
If "!Char!" EQU "a" (Set "X=%Alphabet:~0,1%")
If "!Char!" EQU "b" (Set "X=%Alphabet:~1,1%")
If "!Char!" EQU "c" (Set "X=%Alphabet:~2,1%")
If "!Char!" EQU "d" (Set "X=%Alphabet:~3,1%")
If "!Char!" EQU "e" (Set "X=%Alphabet:~4,1%")
If "!Char!" EQU "f" (Set "X=%Alphabet:~5,1%")
If "!Char!" EQU "g" (Set "X=%Alphabet:~6,1%")
If "!Char!" EQU "h" (Set "X=%Alphabet:~7,1%")
If "!Char!" EQU "i" (Set "X=%Alphabet:~8,1%")
If "!Char!" EQU "j" (Set "X=%Alphabet:~9,1%")
If "!Char!" EQU "k" (Set "X=%Alphabet:~10,1%")
If "!Char!" EQU "l" (Set "X=%Alphabet:~11,1%")
If "!Char!" EQU "m" (Set "X=%Alphabet:~12,1%")
If "!Char!" EQU "n" (Set "X=%Alphabet:~13,1%")
If "!Char!" EQU "o" (Set "X=%Alphabet:~14,1%")
If "!Char!" EQU "p" (Set "X=%Alphabet:~15,1%")
If "!Char!" EQU "q" (Set "X=%Alphabet:~16,1%")
If "!Char!" EQU "r" (Set "X=%Alphabet:~17,1%")
If "!Char!" EQU "s" (Set "X=%Alphabet:~18,1%")
If "!Char!" EQU "t" (Set "X=%Alphabet:~19,1%")
If "!Char!" EQU "u" (Set "X=%Alphabet:~20,1%")
If "!Char!" EQU "v" (Set "X=%Alphabet:~21,1%")
If "!Char!" EQU "w" (Set "X=%Alphabet:~22,1%")
If "!Char!" EQU "x" (Set "X=%Alphabet:~23,1%")
If "!Char!" EQU "y" (Set "X=%Alphabet:~24,1%")
If "!Char!" EQU "z" (Set "X=%Alphabet:~25,1%")
Set "WordCaseName=!WordCaseName! !X!!Word:~1!"
)


Saludos!

[· Descripcion]

· Descripcion

RepairShortcuts es una aplicación por linea de comandos para reparar accesos directos cuyo atributo de "Destino" ha sido modificado.

Un ejemplo de acceso directo dañado sería por ejemplo:

· Tenemos un acceso directo donde su atributo de destino apunta a un archivo en "F:\Archivo.txt" pero hemos renombrado la letra de la unidad de destino a "J:\", entonces nuestro archivo ahora está en "J:\Archivo.txt".

Pero si intentamos acceder desde el explorador de Windows clickando manualmente en el acceso directo lo más probable es que Windows arregle el problema automáticamente y actualice la información de los atributos en el propio acceso directo, bien, pues eso es lo mismo que hace esta aplicación, llamo al mismo método que utiliza Windows para reparar/resolver los accesos directos


¿Porque utilizar esta aplicación?

· Por la sencilla razón de automatizar la tarea, puesto que si tienen 1.000 accesos directos, no creo que quieran estar pinchando los 1.000 uno a uno.

· Porque aunque Windows repare el acceso directo cuando accedemos a él, si usamos aplicaciones que requieran acceder a nuestro acceso directo es posible que no puedan resolverlo, ya que no todas llaman a Windows para que resuelva el acceso directo, es conveniente tenerlos todos arreglados.


NOTA: No hay peligro de pérdida de accesos directos, si el mecanismo de Windows no puede resolver un acceso directo, simplemente se omite el archivo.



· Modo de empleo

Código [Seleccionar] Expandir

[+] Syntax:

   RepairShortcuts.exe [Switches] [File or Directory]


[+] Switches:

   /NoUI | Don't display MessageBox if shortcut can't be resolved.
   /R    | Recursive subdirectories.
   /V    | Display verbose information.
         |
   /?    | Display this help.


[+] Usage examples:

   # Repair "C:\Shortcut.lnk" shortcut:

     RepairShortcuts.exe "C:\Shortcut.lnk"

   # Repair all shortcuts in "C:\Directory":

     RepairShortcuts.exe "C:\Directory"

   # Repair all shortcuts in "C:\Directory" without displaying any MessageBox:

     RepairShortcuts.exe /NoUI "C:\Directory"

   # Repair all shortcuts in "C:\" and their subfolders:

     RepairShortcuts.exe /R "C:\Directory"

   # Repair all shortcuts in "C:\Directory" and their subfolders,
     also displays verbose information when reparing,
     and don't display any error MessageBox:

     RepairShortcuts.exe /R /V /NoUI "C:\Directory"



· Demostración

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



· Descarga

http://elektrostudios.tk/RepairShortcuts.zip

Incluye Source, Compilado e Instalador.

· Como renombrar un archivo:

Código (vb) [Seleccionar] Expandir

File   = "C:\Archivo.txt"
Rename = "C:\Archivo Renombrado.txt"

Set FSO = CreateObject("Scripting.FileSystemObject") ' Creo el objeto

If FSO.FileExists(File) Then ' Si el archivo existe...
    FSO.MoveFile File, Rename ' Renombro el archivo
    wscript.Quit(0) ' Y termino la ejecución con código de error negativo.
Else ' De lo contrario...
Wscript.Echo "Archivo no encontrado" ' Muestro error
wscript.Quit(1) ' Y termino la ejecución con código de error positivo.
End If

' NOTA: Para renombrar un archivo, hay que moverlo a la misma localización de directorio pero especificando un nombre distinto para el archivo.
'       Aunque quizás no lo aprezca, esto es lo mismo que hace Windows de forma interna.



· Como monitorizar la inserción de dispositivos USB (No lo he testeado en profundidad)

Código (vb) [Seleccionar] Expandir

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set wmiEvent = objWMIService.ExecNotificationQuery( _
    "Select * From __InstanceCreationEvent Within 1" & _
        " Where TargetInstance ISA 'Win32_PnPEntity'")

While True
    Set objEvent = wmiEvent.NextEvent()
    Set objUSB = objEvent.TargetInstance
    strName = objUSB.Name
    strDeviceID = objUSB.DeviceID
    Set objUSB = Nothing

    Set colDrives = objWMIService.ExecQuery( _
        "Select * From Win32_LogicalDisk Where DriveType = 2")

    For Each objDrive in colDrives
        strDriveLetter = objDrive.DeviceID
    Next

    Set colDrives = Nothing

    WScript.Echo strName & " was mounted as " & strDriveLetter
Wend

Set wmiEvent = Nothing
Set objWMIService = Nothing

Me rindo
tiro la toalla
 

no te rindas, muestra lo que llevas hecho

PD
Aunque he leido que no contestas a desconocidos, este tema es muy serio y las opiniones ayudan a calmar los animos

No hombre, me entendiste mal, a lo que no pensaba contestar es a personas (los típicos listillos) que pretendiesen ganar dinero gratis sin ser técnicos ni nada, no se si me entiendes...

Te agradezco la información, aunque Imoen tiene razón, está claro que la empresa contrata a terceras personas para que le diseñen la web, pero joder... que no le den importancia a los detalles ya da mala imagen, imagen de despreocupación, y si en algo no se puede jugar con el tema de recuperación de HDD's es con los detalles!

Por poner un ejemplo mi hermana trabaja en la Videncia, montó su propio negocio y ella siempre le pide a los diseñadores que ajusten la resolución para todas las plataformas en sus tropecientas páginas webs, que me digas tu que a una empresa que trabaja por y para la informática le importa un comino como se refleje su imagen en su propia web... deja mucho que desear la verdad.

Saludos!

[Alto rendimiento]

Os va a parecer una locura, al menos yo no le encuentro ningún sentido, pero...

Yo estaba usando el plan de energía "equilibrado", que es el que está activado por defecto...
...Pues el problema de los parones del disco duro principal se ha solucionado complétamente al establecer el plan de energía "Alto rendimiento" en las opciones de energía del panel de control,
Así que he integrado las opciones al menú contextual por si me vuelve a pasar, para testear entre las diferentes opciones por defecto:


No se si pensar que los parones eran un problema de "energía", si en "alto rendimiento" me diese problemas y en "equilibrado" no me diese ningún problemas pues... aún pensaria que si que podría ser, pero es que es al revés!, en equilibrado (menos consumo) me daba problemas, y en alto rendimiento (más consumo) cero problemas xD.

Bueno, expertos, esto es dificil de averiguar la razón, ¿he?

Por fin he solucionado este tema...aunque no se cual es la causa del problema, pero p*tos parones de mier** que mal me lo han echo pasar!

Un saludo y gracias!