Buenas a todos!!!

Estoy haciendo una aplicación para llevar un control de tiempos, controlando cuando se enciende el pc, cuando se bloquea, suspende....
Se trata de una aplicacion oculta, que se inicia con el inicio del sistema.

Pues tengo 2 dudas:

- El tema es que cuando el equipo está bloqueado, parace ser que internamente se disparan los eventos de bloqueo y desbloqueo...
Cada vez que se dispara un evento lo capturo e inserto un registro en bbdd.
Pues pasado un rato, no siempre, cuando desbloqueo el equipo y compruebo la base de datos, puedo observar que despues del registro de bloqueo que realizé bloqueando el equipo, se han insertado dos registros mas, uno de desbloqueo y otro de bloqueo.
Cuando ya desbloqueo yo me inserta el registro de debloqueo, pero se han quedado los dos de enmedio, cuiando en realidad el equipo estaba bloqueado.


- Otro duda que tengo es que cuando suspendo o hiberno el evento es el mismo, no hay manera de diferenciar cuando es hibernación y cuando es suspensión?

Aqui os dejo el codigo:PD: acepto sugerencias para mejorar el código.

Código:

Imports Microsoft.Win32
 
Public Class Control_tiempos
 
    Private EVENTO As String
    Private EQUIPO As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.Opacity = 0
        Me.ShowInTaskbar = 0
 
        Dim x As conexion = New conexion
 
        Me.EVENTO = "Encendido"
        Me.EQUIPO = SystemInformation.ComputerName
        Me.TXTMENS.Text = "Encendido: " + SystemInformation.ComputerName + " - " + Date.Now.ToString
 
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
        CreaHandlers()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        AddHandler SystemEvents.SessionEnding, AddressOf Apaga
        AddHandler SystemEvents.PowerModeChanged, AddressOf Suspende
        AddHandler SystemEvents.SessionSwitch, AddressOf Bloquea
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        RemoveHandler SystemEvents.SessionEnding, AddressOf Apaga
        RemoveHandler SystemEvents.PowerModeChanged, AddressOf Suspende
        RemoveHandler SystemEvents.SessionSwitch, AddressOf Bloquea
 
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Dim x As conexion = New conexion
 
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
    End Sub
 
    Private Sub CreaHandlers()
 
        AddHandler SystemEvents.SessionEnding, AddressOf Apaga
        AddHandler SystemEvents.PowerModeChanged, AddressOf Suspende
        AddHandler SystemEvents.SessionSwitch, AddressOf Bloquea
        AddHandler SystemEvents.PaletteChanged, AddressOf p
        AddHandler SystemEvents.DisplaySettingsChanging, AddressOf D
 
    End Sub
    Private Sub EliminaHandlers()
 
        RemoveHandler SystemEvents.SessionEnding, AddressOf Apaga
        RemoveHandler SystemEvents.PowerModeChanged, AddressOf Suspende
        RemoveHandler SystemEvents.SessionSwitch, AddressOf Bloquea
 
    End Sub
 
    Private Sub Apaga(ByVal sender As Object, ByVal e As EventArgs)
        
        Me.EVENTO = "Apagado"
        Me.EQUIPO = SystemInformation.ComputerName
        Me.TXTMENS.Text = "Apagado: " + SystemInformation.ComputerName + " - " + Date.Now.ToString
 
        Dim x As conexion = New conexion
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
        EliminaHandlers()
 
    End Sub
    Private Sub Suspende(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)
 
        'CUANDO EL EQUIPO SUSPENDE:
        'Se insertan los registros en el siguiente orden:
        '1-Supendido, 2-Activado, 3-Bloqueado, 4-Desbloqueado
        'CUANDO EL EQUIPO HIBERNA:
        'Se insertan los registros en el siguiente orden:
        '1-Supendido, 2-Bloqueado, 3-Activado, 4-Desbloqueado
 
        If e.Mode = PowerModes.Suspend Then
            Me.TXTMENS.Text = "Suspendido:  " + SystemInformation.ComputerName + " - " + Date.Now.ToString
            Me.EVENTO = "Suspendido"
        End If
 
        If e.Mode = PowerModes.Resume Then
            Me.TXTMENS.Text = "Activado: " + SystemInformation.ComputerName + " - " + Date.Now.ToString
            Me.EVENTO = "Activado"
        End If
 
        Me.EQUIPO = SystemInformation.ComputerName
 
        Dim x As conexion = New conexion
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
    End Sub
    Private Sub Bloquea(ByVal sender As Object, ByVal e As SessionSwitchEventArgs)
 
        If e.Reason = SessionSwitchReason.SessionLock Then
            Me.TXTMENS.Text = "Bloqueado: " + SystemInformation.ComputerName + " - " + DateTime.Now
            Me.EVENTO = "Bloqueado"
        End If
        If e.Reason = SessionSwitchReason.SessionUnlock Then
            Me.TXTMENS.Text = "Desbloqueado: " + SystemInformation.ComputerName + " - " + DateTime.Now
            Me.EVENTO = "Desbloqueado"
        End If
 
        Me.EQUIPO = SystemInformation.ComputerName
 
        Dim x As conexion = New conexion
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
    End Sub
    Private Sub p()
 
        Me.EVENTO = "P"
        Me.EQUIPO = "P"
        Me.TXTMENS.Text = "P"
 
        Dim x As conexion = New conexion
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
    End Sub
    Private Sub D()
 
        Me.EVENTO = "D"
        Me.EQUIPO = "D"
        Me.TXTMENS.Text = "D"
 
        Dim x As conexion = New conexion
        x.CON()
        x.InsertaCambio(Me.TXTMENS.Text, Me.EVENTO, Me.EQUIPO)
        x.Descon()
 
    End Sub
 
 
End Class