Tiempo encendido PC

[boluart]

Hola todos , espero que me puedan ayudar, alguien sabe como ver las horas en que el computador se encontro encedido, algo similar a lo que hace PC On/Off Time http://www.snapfiles.com/get/pconoff.html alguna idea de como hacerlo?.

[seba123neo]

Hola,con el api GetTickCount podes saber el tiempo que esta encendida:

Código:

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Load()
MsgBox getTimePassed
End Sub

Public Function getTimePassed() As String
Dim lngHour As Long
Dim lngMinute As Long
Dim lngSeconds As Long
lngHour = Int(GetTickCount / 1000 / 60 / 60)
lngMinute = Int((GetTickCount / 1000 / 60)) - lngHour * 60
lngSeconds = Int((GetTickCount / 1000)) - lngMinute * 60 - lngHour * 3600
getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar
End Function

Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String
Dim sTemp As String
sTemp = Trim(Str(btInputNumb))
If Len(sTemp) = 1 Then sTemp = "0" & sTemp
sGetWideTimeString = sTemp
End Function

saludos.

[boluart]

Muy bueno, pero lo que realmente quiero es saber el tiempo en que estubo encendida la ultima vez que se encendio, no el tiempo de encendido actual.

Si no me equivoco esta funcion hace lo mismo lo que en VB.NET seria
Environment.TickCount, esto no me es de mucha ayuda

Espero haberme dejado entender.

[David]

Iniciado por boluart

Muy bueno, pero lo que realmente quiero es saber el tiempo en que estubo encendida la ultima vez que se encendio, no el tiempo de encendido actual.

Si no me equivoco esta funcion hace lo mismo lo que en VB.NET seria
Environment.TickCount, esto no me es de mucha ayuda

Espero haberme dejado entender.

No he investigado si hay algo en la API que te permita hacerlo, la única idea que se me ocurre es que tu programa se inicie con Windows y que al cerrar el programa (sería al apagar) te guarde en un archivo el tiempo que estuvo encendido...

[boluart]

Gracias por tu respuesta, estube investigando acerca el programa que les mencione al inicio y al parecer trabaja con el visor de sucesos de windows
Panel de control\Herramientas administrativas\Visor de sucesos
pero he aqui otra pregunta como obtengo estos datos algun api?

[boluart]

Bien ya lo logre para acceder a los sucesos de windows :

Dim a AsNew EventLog()
Dim objEventLog As EventLogEntryCollection
Dim objEntry As EventLogEntry
a.Log = "Application"
objEventLog = a.Entries()
MsgBox(objEventLog.Count)
ForEach objEntry In objEventLog
TextBox1.Text += (objEntry.Source & ":" & objEntry.TimeGenerated & ":" & objEntry.Message) & Chr(13) & Chr(10)
Next

en cuanto al tiempo apagado algunos algoritmos de suma y resta del ultimo suceso y listo.

[writis]

hola boluart me parece interesante el tema que propones y me gustaria saber como se maneja el codigo,

Dim a As NewEventLog
Private Sub Command1_Click()

Dim objEventLog As EventLogEntryCollection
Dim objEntry As EventLogEntry
a.Log = "Application"
objEventLog = a.Entries()
MsgBox (objEventLog.Count)
For Each objEntry In objEventLog
TextBox1.Text = (objEntry.Source & ":" & objEntry.TimeGenerated & ":" & objEntry.Message) & Chr(13) & Chr(10)
Next

End Sub

cuando lo ejecuto me dice:no se ha definido el tipo definido por el usuario,
que me hace falta?

te agrdezco la ayuda.

[writis]

ah y gracias seba123neo tu codigo es muy vacano, tambien lo estoy usando.

[boluart]

Iniciado por writis

Private Sub Command1_Click()
End Sub
cuando lo ejecuto me dice:no se ha definido el tipo definido por el usuario,
te agrdezco la ayuda.

Se me olvido mencionar que estoy usando VB.NET y no la version VB6.0 o anteriores por el codigo expuesto me parece que estas usando la version 6.0 o inferiores.

[writis]

Iniciado por boluart

Se me olvido mencionar que estoy usando VB.NET y no la version VB6.0 o anteriores por el codigo expuesto me parece que estas usando la version 6.0 o inferiores.

tienes razón uso VB 6.0 de todas formas gracias.