03/04/2008, 15:55
|
| | | Fecha de Ingreso: enero-2007 Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 18 años, 3 meses Puntos: 13 | |
| Re: Tiempo encendido PC
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.
__________________
Vivir para ser buenos y ser buenos para servir mejor. |