Me gustaría citarte algo que te dije, pero para lo que me va a servir...

Lee los eventos disponibles del webbrowser, ¿Ves alguno que se llame MouseMove, MouseDown, o MouseUp?, No Seazoux, no todos los controles tienen los mismos eventos.

Es más, con haber invertido 10 segundos para leer el mensaje de la excepción, habrías leido lo mismo que te acabo de explicar.

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://google.com")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim document As HtmlDocument = WebBrowser1.Document
        AddHandler document.Body.MouseDown, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseDown)
    End Sub
 
    Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Left Then
            MsgBox("Botón izquiero presionado")
        End If
    End Sub

@Seazoux
MyBase = Me (más o menos)

http://msdn.microsoft.com/en-us/library/20fy88e0%28v=vs.80%29.aspx

---

@SyntaxError404

No está muy perfeccionado el código, ¿Que pasa si mantienes pulsado botón central o botón derecho sobre el form?, no creo que quieras moverlo con esos botones.

Además imagino que tendrás controles en el form, y también querrás mover el Form al mantener presionado click izquierdo sobre un picturebox, aquí tienes mi versión:

#Region " Move Form "
 
    ' [ Move Form ]
    '
    ' // By Elektro H@cker
 
    Public MoveForm As Boolean
    Public MoveForm_Mouse_Position As Point
 
    Public Sub MoveForm_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
        MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
 
        If e.Button = MouseButtons.Left Then MoveForm = True : MoveForm_Mouse_Position = e.Location
    End Sub
 
    Public Sub MoveForm_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
        MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
 
        If MoveForm Then Me.Location = Me.Location + e.Location - MoveForm_Mouse_Position
    End Sub
 
    Public Sub MoveForm_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles _
        MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
 
        If e.Button = MouseButtons.Left Then MoveForm = False
    End Sub
 
#End Region

PD: ¿Y si te miras mi librería de snippets? hay códigos para todo lo que has necesitado hasta ahora: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html

Gracias Simorg y Seazoux.


¿¿¿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:

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:

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

@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":

Saludos

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:

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.