Public Class Form1
 
#Region "Variables"
    Private Enum eUnidades  'Las unidades de nuestro "odometro" serán metro o kilometros
        Metros = 0
        Kilometros
    End Enum
    Private UnidadActual As eUnidades
 
    Private NOMBRE_FICHERO_ODOMETER As String = "MouseOdometerNET.tmp"  'Fichero donde se guardará la distancia recorrida (siempre en milimetros)
    Private NOMBRE_FICHERO_ODOMETER_Config As String = "MouseOdometerNET.cfg" 'Fichero donde se guardará si la distancia está en metros o kilometros
 
    Private DistanciaRecorridaMM As Single  'Distancia total recorrida (siempre en milimetros)
 
    Private Structure sPointMM  'Coordenadas del raton en milímetros
        Dim X As Single
        Dim Y As Single
    End Structure
 
    Private gDPIX As Integer = 96   'DPIs de la pantalla
    Private gDPIY As Integer = 96
 
    Private WithEvents TMR_guardarDistancia As New Timer    'Timer que periodicamente guarda la distancia en el fichero
    Private WithEvents TMR_capturaPosicionMouse As New Timer    'Timer de captura de la posición del raton
 
    Private puntoAnterior As New Point(0, 0)    'Punto capturado anteriormente
#End Region
 
#Region "Ficheros. Lectura / Escritura"
    Private Sub EscribirFichero(ByVal Fichero As String, ByVal Data As String)
        Dim objFileWrite = New System.IO.StreamWriter(Fichero, False, System.Text.Encoding.Default)
        objFileWrite.Write(Data)
        objFileWrite.Flush()
        objFileWrite.Close()
    End Sub
 
    Private Function LeerFichero(ByVal Fichero As String) As String
        Dim objFileRead As New System.IO.StreamReader(Fichero)
        Dim sData As String = objFileRead.ReadToEnd
        objFileRead.Close()
 
        Return sData
    End Function
#End Region
 
#Region "Eventos a nivel de formulario"
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        TMR_capturaPosicionMouse.Enabled = False
        TMR_guardarDistancia.Enabled = False
 
        TMR_capturaPosicionMouse.Dispose()
        TMR_guardarDistancia.Dispose()
 
        'Cuando cerramos el programa, se graba la distancia recorrida
        EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, DistanciaRecorridaMM.ToString)
 
        GC.Collect()
    End Sub
 
    'Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
    '    If Me.WindowState = FormWindowState.Minimized Then
    '        Me.Visible = False
    '    End If
    'End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim g As Graphics = Me.CreateGraphics()
        gDPIX = g.DpiX '¿Cual son los DPI de la pantalla?
        gDPIY = g.DpiY
 
        Me.WindowState = FormWindowState.Minimized
        NotifyIcon1.ShowBalloonTip(20, "Información", "MouseOdemeterNET Ejecutándose", ToolTipIcon.Info)
 
        IniciarParametros() 'Carga los "parámetros"
        SetCheckUnidadMenu() 'Activa o desactiva la unidad de medida acutal en el ContextMenu
 
        'Si no existe el fichero con la distancia recorrida, se crea un nuevo
        If IO.File.Exists(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER) = False Then
            EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, "0")
            DistanciaRecorridaMM = 0
        Else
            'En caso contrario, se carga la distancia recorrida
            Dim s As String = LeerFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER)
            DistanciaRecorridaMM = CType(s, Single)
        End If
 
        'Inicializamos el timer de la captura de la posicion del raton
        TMR_capturaPosicionMouse.Interval = 250
        TMR_capturaPosicionMouse.Enabled = True
 
        'Cada "60 segundos" se irá guardando la distancia recorrida
        TMR_guardarDistancia.Interval = 60000
        TMR_guardarDistancia.Enabled = True
 
        'Obtenemos el punto acual donde se encuentra el raton
        puntoAnterior = Cursor.Position
 
        Me.Width = 0
        Me.Height = 0
    End Sub
#End Region
 
#Region "Calculo de la distancia"
    'Convierte una posicion de pixel en pantalla a su valor en milimetros
    Public Function PIXELtoMM(ByVal ValorPixel As Integer, ByVal ValorDPI As Integer) As Single
        Return (ValorPixel / ValorDPI * 25.4)
        'Return (Format(((25.4 * ValorPixel) / ValorDPI), "0.0000"))
    End Function
 
    ' Calcula la distancia entre dos puntos (expresados en pixels)
    Private Function DistanciaEntreDosPuntos(ByVal Origen As Point, ByVal Destino As Point) As Single
 
        If (Origen.X = Destino.X) And (Origen.Y = Destino.Y) Then
            Return 0
        Else
            'Paso 1: los puntos pasados como "pixels" se convierten en coordenadas cartesianas en "milimetros"
            Dim tmpPointOrigenMM As sPointMM
 
            Dim tmpPointDestinoMM As sPointMM
 
            tmpPointOrigenMM.X = PIXELtoMM(Origen.X, gDPIX)
            tmpPointOrigenMM.Y = PIXELtoMM(Origen.Y, gDPIY)
 
            tmpPointDestinoMM.X = PIXELtoMM(Destino.X, gDPIX)
            tmpPointDestinoMM.Y = PIXELtoMM(Destino.Y, gDPIY)
 
            'Paso 2: Aplicar la formula de la distancia entre dos puntos para saber la distancia en milimetros
            'd=SQR[ (destino.x-origen.x)^2 + (destino.y-origen.y)^2 ]
 
            Dim Xdist As Single = Math.Pow((tmpPointDestinoMM.X - tmpPointOrigenMM.X), 2)
            Dim Ydist As Single = Math.Pow((tmpPointDestinoMM.Y - tmpPointOrigenMM.Y), 2)
 
            Return Math.Sqrt(Xdist + Ydist)
 
        End If
    End Function
#End Region
 
#Region "Timers"
    'Timer que va guardando la distancia en un fichero
    Private Sub TMR_guardarDistancia_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMR_guardarDistancia.Tick
        EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, DistanciaRecorridaMM.ToString)
    End Sub
 
    'Timer que va capturando la posición del raton
    Private Sub TMR_capturaPosicionMouse_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TMR_capturaPosicionMouse.Tick
 
        'Oculta el "formulario". Esto se hace solo la primera vez que se entra en este timer
        Static bHecho As Boolean
        If bHecho = False Then
            bHecho = True
            Me.Visible = False
        End If
 
        Dim MousePosition As Point
        MousePosition = Cursor.Position
 
        'Actualiza la variable con la distancia recorrida
        DistanciaRecorridaMM += DistanciaEntreDosPuntos(puntoAnterior, MousePosition)
        puntoAnterior.X = MousePosition.X
        puntoAnterior.Y = MousePosition.Y
 
        'Muesta la distancia en el ContextMenu
        Select Case UnidadActual
            Case eUnidades.Metros
                DistanciaToolStripMenuItem.Text = DistanciaRecorridaMM / 1000 & " m"
            Case eUnidades.Kilometros
                DistanciaToolStripMenuItem.Text = DistanciaRecorridaMM / 1000000 & " km"
        End Select
 
        'y en el "caption" del NotifyIcon
        NotifyIcon1.Text = "MouseOdometerNET (" & DistanciaToolStripMenuItem.Text & ")"
 
    End Sub
#End Region
 
#Region "ContextMenu"
    '¿Cerrar la aplicación?
    Private Sub CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
        If MessageBox.Show("Oh Dios mío. ¿Estás seguro que deseas volver a la soledad del escritorio de Windows?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If
    End Sub
    '¿Resetear la distancia recorrida?
    Private Sub ResetearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetearToolStripMenuItem.Click
        If MessageBox.Show("¿Estás seguro que deseas resetear la distancia recorrida?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER, "0")
            DistanciaRecorridaMM = 0
        End If
    End Sub
    'Seleccionar la distancia como "Metros"
    Private Sub MetrosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetrosToolStripMenuItem.Click
        UnidadActual = eUnidades.Metros
        EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
        SetCheckUnidadMenu()
    End Sub
    'Seleccionar la distancia como "Kilometros"
    Private Sub KilometrosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KilometrosToolStripMenuItem.Click
        UnidadActual = eUnidades.Kilometros
        EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
        SetCheckUnidadMenu()
    End Sub
#End Region
 
#Region "Miscelanea"
    'Devuelve cual es la carpeta "Temporal" de Windows
    Private Function CarpetaTempWindows() As String
        Dim s As String
        s = IO.Path.GetTempPath
        If s.EndsWith("\") = False Then s &= "\"
        Return s
    End Function
    'Activa o desactiva la unidad de distancia en el ContextMenu
    Private Sub SetCheckUnidadMenu()
        Select Case UnidadActual
            Case eUnidades.Kilometros
                KilometrosToolStripMenuItem.CheckState = CheckState.Checked
                MetrosToolStripMenuItem.CheckState = CheckState.Unchecked
            Case eUnidades.Metros
                KilometrosToolStripMenuItem.CheckState = CheckState.Unchecked
                MetrosToolStripMenuItem.CheckState = CheckState.Checked
        End Select
    End Sub
    'Inicia los "parámetros", de tal forma que si cerramos el programa y luego lo volvemos a ejecutar,
    'Se inicializara la "unidad" de medida anterior
    Private Sub IniciarParametros()
        If IO.File.Exists(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config) = False Then
            UnidadActual = eUnidades.Metros
            EscribirFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config, UnidadActual)
        Else
            Dim s As String = LeerFichero(CarpetaTempWindows() & NOMBRE_FICHERO_ODOMETER_Config)
            UnidadActual = CType(s, eUnidades)
        End If
    End Sub
#End Region
 
End Class

#Region " Backup and Recovery Listview Items "
 
    ' [ Backup and Recovery Listview Items ]
 
    ReadOnly BackupFile As String = "Recovery.tmp"  ' File conaining the data to recover.
    Private BackupData As New List(Of ListViewItem) ' Storage for the data to backup.
    Private BinaryFormat As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
 
    Private Sub Backup(ByVal ListView As ListView)
 
        BackupData.Clear()
 
        Select Case ListView.Items.Count
 
            Case 0
                Try : IO.File.Delete(BackupFile) : Catch : End Try
                ' We don't need the BackupFile if it will not contains anything to recover...
 
            Case Else
 
                BackupData.AddRange(ListView.Items.Cast(Of ListViewItem))
 
                Using Writter As New IO.FileStream(BackupFile, IO.FileMode.Create)
                    BinaryFormat.Serialize(Writter, BackupData)
                End Using
 
        End Select
 
    End Sub
 
    Private Sub Recovery(ByVal ListView As ListView)
 
        If IO.File.Exists(BackupFile) Then
 
            Using Reader As New IO.FileStream(BackupFile, IO.FileMode.Open)
                BackupData = DirectCast(BinaryFormat.Deserialize(Reader), List(Of ListViewItem))
            End Using
 
            ListView.Items.AddRange(BackupData.ToArray())
 
        End If
 
    End Sub
 
#End Region

    WithEvents BackupTimer As New Timer With {.Interval = 60 * 1000, .Enabled = True}
 
    Private Sub BackupTimer_Tick(sender As Object, e As EventArgs) Handles BackupTimer.Tick
        Backup(ListView1)
        End ' Matamos la aplicación si se quiere testear...
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        If IO.File.Exists(BackupFile) Then
 
            If MessageBox.Show( _
               "An error ocurred during the last session." & vbNewLine & vbNewLine & _
               "Do you want to recover the lost data?", "Recovery", _
               MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
            = DialogResult.Yes Then
 
                Recovery(ListView1)
                MessageBox.Show("Data recovered!", "Recovery", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            End If
 
        End If
 
    End Sub