在VB下，怎样知道系统运行了多久，即开机了多久？

Question

开机时并没有运行VB程序。当打开VB程序时，运行的时间自动显示在label1中。精确到秒。

Answer 1

Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As LongPrivate Sub Form_Load()
    Me.Show
    Dim tm1 As Long, i As Long, h As Long, m As Long, s As Long
    Dim mstr As String
    Do
    tm1 = timeGetTime
    While timeGetTime - tm1 < 1000 ' 等于 5/1000 = 0.005 秒
    DoEvents
    Wend
    i = tm1 \ 1000
    h = i \ 3600
    i = i - h * 3600
    m = i \ 60
    i = i - m * 60
    s = i
    mstr = "开机共" + CStr(h) + "小时" + CStr(m) + "分钟" + CStr(s) + "秒"
    Me.Label1 = mstr
    Loop
End SubPrivate Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 2

使用api.如下说明!
GetTickCount VB声明 
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long 
说明 
用于获取自windows启动以来经历的时间长度（毫秒） 
返回值 
Long，以毫秒为单位的windows运行时间 注意，该函数获得的是毫秒单位的哦。