模板
教程
环境
性能
功能
管理
利用Api函数计算Windows从启动后所运行的总时间
发表于：2007-06-21来源：作者：点击数：
标签：
利用Api函数计算 Windows 从启动后所运行的总时间 Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Timer1_Timer() Dim hour As Integer Dim minute As Integer Dim second As Integer hour = GetTickCount \ 1000 \ 60 \ 60
Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Timer1_Timer() minute = (GetTickCount - hour * 60 * 60 * 1000) \ 1000 \ 60 second = (GetTickCount - Val(Label1.Caption) * 60 * 60 * 1000 - Val(Label2.Caption) * 60 * 1000) \ 1000
利用Api函数计算Windows从启动后所运行的总时间
Dim hour As Integer
Dim minute As Integer
Dim second As Integer
hour = GetTickCount \ 1000 \ 60 \ 60
Label1.Caption = Str(hour) + "小时"
Label2.Caption = Str(minute) + "分钟"
Label3.Caption = Str(second) + "秒钟"
End Sub
