Systemets Oppetid

Hej!
Jeg har brug for at vide hvor lang tid min computer har været tændt.
Er der nogen der har en ide til hvordan jeg kan finde ud af dette?

mvh. Magnus Boye

Dette gøres med API funktionen GetTickCount, der fortæller hvor lang tid windows har kørt i millisekunder

Et halv-færdigt eksempel (som jeg ikke kan teste da jeg ikke har VB installeret)

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

Sub ShowUptime
  Dim iMin as Integer
  imin = GetTickCount / 1000
  MsgBox CStr(iMin)
End Sub

Mvh,

Thomas Nielsen

Dette gøres med API funktionen GetTickCount, der fortæller hvor lang tid windows har kørt i millisekunder

Et halv-færdigt eksempel (som jeg ikke kan teste da jeg ikke har VB installeret)

Kode 

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

Sub ShowUptime
  Dim iMin as Integer
  imin = GetTickCount / 1000
  MsgBox CStr(iMin)
End Sub

Mvh,

Thomas Nielsen

Jeg har lige testet det, og det virker udmærket. Jeg ville dog dimensionere iMin som Long for at understøtte større tal (hvis nu Windows har kørt i mere end ca. 32000 sekunder).

Men det virker fint!

Software is here and now but rock and roll is forever.