Windows ne kadar süredir açık

winapi kullanarak anaformunuzun üst köşesinde windows'un ne kadar süredir açık olduğunu bulabilirsiniz



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



Private Sub Timer1_Timer() 'interval 1 olacak
Dim t
t = GetTickCount
Caption = (t \ 1440000) & ":"
t = t Mod (60000 * 24)
Caption = Caption & (t \ 60000) & ":"
t = t Mod (60000)
Caption = Caption & (t \ 1000)
End Sub