Cronometrar tiempo de encendido del computador

[seba123neo]

Hola, proba esto:

Código vb:

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
   MsgBox TiempoEncendidaPC
End Sub
 
Private Function TiempoEncendidaPC() As String
   Dim vHoras As Long, vMinutos As Long, vSegundos As Long
   
   vHoras = Int(GetTickCount / 1000 / 60 / 60)
   vMinutos = Int((GetTickCount / 1000 / 60)) - vHoras * 60
   vSegundos = Int((GetTickCount / 1000)) - vMinutos * 60 - vHoras * 3600
   
   TiempoEncendidaPC = Format(vHoras, "00") & ":" & Format(vMinutos, "00") & ":" & Format(vSegundos, "00")
End Function
 

saludos.