Dim INI_File As String = ".\Test.ini"

Guardar:
Edito: Mejorado

    ' Save INI Settings
    Private Sub Save_INI_Settings()
 
        Dim Current_Settings As String = _
            "File=" & TextBox_File.Text & Environment.NewLine & _
            "SaveFile=" & CheckBox_SaveFile.Checked
 
        My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)
 
    End Sub

Cargar:

     ' By Elektro H@cker
 
    ' Load INI Settings
    Private Sub Load_INI_Settings()
 
        Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
        Dim Line As String = String.Empty
        Dim Delimiter As String = "="
        Dim ValueName As String = String.Empty
        Dim Value As Object
 
        ' Example content of Test.ini:
        '
        ' File=C:\File.txt
        ' SaveFile=True
 
        Do Until xRead.EndOfStream
 
            Line = xRead.ReadLine().ToLower
            ValueName = Line.Split(Delimiter).First
            Value = Line.Split(Delimiter).Last
 
            If ValueName = "File".ToLower Then TextBox_File.Text = Value
            If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value
 
            Application.DoEvents()
 
        Loop
 
        xRead.Close() : xRead.Dispose()
 
    End Sub

Aunque no manejo mucho sobre delegados, si no recuerdo mal cuando sucede un evento se crea un delegado oculto automáticamente, y puedes acceder a el con un nombre especial dentro del sub, que no recuerdo como era el nombre.

Lo de "las firmas" se refiere al contenido que he marcado en rojo:

    Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)

   End Sub

...si tu cambias HtmlElementEventArgs por MouseEventArgs, no es compatible la firma, el evento no existe.

Perdona si te ha sentado un poco mal, pero me ha molestado bastante porque solo con leer ya se sabe lo que pasa, no hay que ser un experto en el tema, y yo no lo soy.

Saludos.

Es que casi todos tus problemas se basan en que no lees nada, nisiquiera los mensajes de error.

ya te he contestado,
saludos.

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