Mensajes

Gracias Simorg y Seazoux.

la info de los reinicios queda grabada en la PCB y acorta la perfomance de dicho HDD[/b].

¿¿¿Esto quiere decir que si se resetea el valor de los reinicios a "0", el disco ganaria algo de prformance??? ¿O he querido entender mal? xD,
Y si esto es así, ¿Un técnico sería capaz de resetear el circuito, o es imposible?

Hola

Tengo 3 discos duros secundarios y... bueno, he estado reflexionando sobre el tema xD.

Antes yo tenía un PC con los HDD siempre encendidos, quiero decir con la configuración de energía para que no se apaguen nunca,
Esos discos nunca me dieron problemas, ni se estropearon, ni nada, es más, aún uso 1 de ellos.

Desde que me compré un nuevo PC, uso la configuración de energia para que los discos se apaguen cada 20 minutos por inactividad, pensé que era mejor apagarlos de vez en cuando aunque séan por 5 minutos.

El caso es que uso MUCHO los HDD, por ejemplo si uno se apaga pues a los 10 minutos ya estoy intentando acceder al disco, y escucho como se enciende y como tarda 2-3 segundos en iniciarse el disco (Pero eso no me importa en absoluto).

No sé que es mejor en mi caso, si dejarlos encendidos o apagarlos, porque si bien sabemos que apagar/reiniciar mucho un PC en un mismo día puede ser un punto negativo para la vida de este, no sé si ocurre lo mismo con los HDD.

En resumen, ¿Cual de estas dos opciones es más benéfica para la vida de mis HDD?
- Apagar/Encender los discos 20 veces al día.
- Dejarlos encendidos las 24 H sin apagarse.

...¿Y porqué?

Gracias por leer.

Puedes hacerlo de la siguiente manera:

Captura/Guarda cada coordenada en una lista de punteros.
Captura/Guarda cada click en un tipo de diccionario.
Luego, reproduce el contenido de la lista y del diccionario.

Ejemplo:

[youtube=640,360]http://www.youtube.com/watch?v=T06XECj_FvE&feature=youtu.be[/youtube]

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   ' BY ELEKTRO H@CKER
   ' Copia este Form en un nuevo proyecto y ejecútalo.

   Dim Coordenates_List As New List(Of Point)
   Dim Clicks_Dictionary As New Dictionary(Of Int64, MouseButton)

   Dim Click_Count As Int32 = 0
   Dim Last_ClickState_Left As Int64 = 999
   Dim Last_ClickState_Right As Int64 = 999

   Dim WithEvents Record_Timer As New Timer

   Dim WithEvents Button_Record As New Button, Button_Stop As New Button, Button_Reproduce As New Button

   Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

   Public Declare Sub Mouse_Event Lib "User32" Alias "mouse_event" (ByVal dwFlags As MouseButton, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)

   Public Thread_is_completed As Boolean = False

   Dim Thread_MousePlay_Var As System.Threading.Thread = New Threading.Thread(AddressOf Thread_MousePlay)

   Public Enum MouseButton

       Left_Down = &H2    ' Left button (hold)
       Left_Up = &H4      ' Left button (release)

       Right_Down = &H8   ' Right button (hold)
       Right_Up = &H10    ' Right button (release)

       Middle_Down = &H20 ' Middle button (hold)
       Middle_Up = &H40   ' Middle button (release)

       Left               ' Left   button (press)
       Right              ' Right  button (press)
       Middle             ' Middle button (press)

   End Enum

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Record_Timer.Interval = 15
       Button_Record.Text = "Record" : Button_Stop.Text = "Stop" : Button_Reproduce.Text = "Reproduce"
       Button_Record.Location = New Point(20, 20) : Button_Stop.Location = New Point(Button_Record.Right + 10, 20) : Button_Reproduce.Location = New Point(Button_Stop.Right + 10, 20)
       Me.Controls.Add(Button_Record) : Me.Controls.Add(Button_Stop) : Me.Controls.Add(Button_Reproduce)
       Me.Size = New Point(300, 100)
   End Sub

   Private Sub Button_Record_Click(sender As Object, e As EventArgs) Handles Button_Record.Click
       Coordenates_List.Clear() : Clicks_Dictionary.Clear() : Click_Count = 0
       Record_Timer.Start()
   End Sub

   Private Sub Button_Stop_Click(sender As Object, e As EventArgs) Handles Button_Stop.Click
       Record_Timer.Stop()
   End Sub

   Private Sub Button_Reproduce_Click(sender As Object, e As EventArgs) Handles Button_Reproduce.Click

       Thread_MousePlay_Var = New Threading.Thread(AddressOf Thread_MousePlay)
       Thread_MousePlay_Var.IsBackground = True
       Thread_MousePlay_Var.Start()

       Thread_is_completed = False
       While Not Thread_is_completed = True : Application.DoEvents() : End While
       MsgBox("Finished")

   End Sub

   Private Sub Record_Timer_Tick(sender As Object, e As EventArgs) Handles Record_Timer.Tick

       Coordenates_List.Add(MousePosition)

       If Not Last_ClickState_Left = GetAsyncKeyState(1) Then
           Last_ClickState_Left = GetAsyncKeyState(1)
           If GetAsyncKeyState(1) = 32768 Then
               Click_Count += 1
               Coordenates_List.Add(Nothing)
               Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Down)
           ElseIf GetAsyncKeyState(1) = 0 Then
               Click_Count += 1
               Coordenates_List.Add(Nothing)
               Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Up)
           End If
       End If

       If Not Last_ClickState_Right = GetAsyncKeyState(2) Then
           Last_ClickState_Right = GetAsyncKeyState(2)
           If GetAsyncKeyState(2) = 32768 Then
               Click_Count += 1
               Coordenates_List.Add(Nothing)
               Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Down)
           ElseIf GetAsyncKeyState(2) = 0 Then
               Click_Count += 1
               Coordenates_List.Add(Nothing)
               Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Up)
           End If
       End If

   End Sub

   Private Sub Mouse_Click(ByVal MouseButton As MouseButton)
       Select Case MouseButton
           Case MouseButton.Left : Mouse_Event(MouseButton.Left_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Left_Up, 0, 0, 0, 0)
           Case MouseButton.Right : Mouse_Event(MouseButton.Right_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Right_Up, 0, 0, 0, 0)
           Case MouseButton.Middle : Mouse_Event(MouseButton.Middle_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Middle_Up, 0, 0, 0, 0)
           Case Else : Mouse_Event(MouseButton, 0, 0, 0, 0)
       End Select
   End Sub

   Sub Thread_MousePlay()

       Click_Count = 0

       For Each Coordenate In Coordenates_List
           Application.DoEvents()
           Threading.Thread.Sleep(15)

           If Coordenate = Nothing Then
               Click_Count += 1
               If Click_Count > 1 Then Mouse_Click(Clicks_Dictionary.Item(Click_Count))
           Else
               System.Windows.Forms.Cursor.Position = Coordenate
           End If

       Next

       Thread_is_completed = True

   End Sub

End Class

Ese es el problema de usar un WindowsForm con transparencia y PNG's con transparencia...

Puedes perfeccionarlo con API's: [SOURCE] Splat

Pero yo personálmente no te recomiendo que sigas con este tema... deberías dejarlo para cuando aprendas un poco más.

Saludos

Claro, si te refieres a descargar la imágen y mostrarla en el form entonces esto te sirve:

Código (vbnet) [Seleccionar] Expandir

Dim web_img as string = "http://www.google.com/recaptcha/static/images/smallCaptchaSpaceWithRoughAlpha.png"
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(web_img)))

saludos

eres agente de publicidad?

@evgeni70

No todo se hace de la misma manera en WinXP/Vista/7/8, según que cosa... puede requerir hacerlo de distinta manera.

Para Windows 7:
Copia esto en el bloc de notas y guardas el archivo como "Mostrar escritorio.scf":

Código [Seleccionar] Expandir

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Saludos

Edito: no se puede ver el codigo ajajja pide contraseña  

Vete a las propiedades del proyecto, en la pestaña "signing" y desactiva las casillas, elimina el archivo "ElektroSoft.pfx" en el proyecto si es necesario. Así ya podrás usarlo.

PD: Mis proyectos no los subo con firma, pero este se habia caido y lo he tenido que resubir como lo tengo (con la firma digital).

un saludo!

EDITO: De todas formas lo del bloc de notas solo requiere una línea de esfuerzo:

Código [Seleccionar] Expandir

Clipboard.SetText("Coordenadas")

PD:El problema está en el javascript como podrás observar, y el JS y Jquery se me da como el culo, le pediré a Dryv que me ayude. xD

Cualquier "error de script" es sencillo de arreglar en un webbrowser, en un solo click. Leete la documentación de las propiedades del WebBrowser.

Si simplemente te pusieras 2 minutos de tiempo para leer el nombre de cada una de las propiedades del WebBrowser en el panel de la derecha, te darías cuenta de lo sencillo que era, en 1 click.

Si no te lo digo es porque a mi "también" me cuesta entenderte y ya no sé en que tono dices las cosas (por no decir que no he entendido casi nada de lo demás), pero no ayudo a quien me da la sensación de que me está tomando el pelo, y aún así ya te lo he dicho todo: Lee las propiedades o usa MSDN.

Saludos.

No sirve ninguno de los links

assshhhh es cierto creí que lo subí a mi server, perdón, ya está arreglado, vuelve a mirar el post

Saludos

[EDITO:]

Vaya, me has recordado la primera aplicación que hice en vbnet.

que al pulsar la tecla "F1" se copie la coordenada al portapapeles

EDITO: Puedes usar el evento KeyPress en el form para capturar las teclas presionadas, y luego comparas si la tecla presionada es "F1".

De mi proyecto puedes sacar lo que necesitas para lo de "F1" (pero intenta comprenderlo y no solo copiarlo):

[Aporte] [VS2012] Mouse XY (Devuelve las coordenadas del mouse)



Saludos!