获取Windows启动时间

IT商界

贾清刚

　　获取Windows启动时间可以使自己知道在电脑前工作的时间，定时做运动减少身体疲劳，从而提高工作效率。

　　如何获取Windows启动时间呢？这就要用到Windows API函数了。

　　这里要用到的函数是GetTickCount函数。

　　用VB新建一个工程，在窗体中添加label1控件，Timer1控件属性Interval=10。Form1的ShowInTaskbar=False为任务栏中不显示当前任务。

　　代码如下：

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

　　Private Sub Form_Load()

　　‘初始化窗体、标签的颜色、大小、位置

　　Form1.Top = 10

　　Form1.Width = 2100

　　Form1.Height = 200

　　Form1.Left = 10

　　Form1.BackColor = &HFF0000

　　Label1.AutoSize = True

　　Label1.Left = 0

　　Label1.Top = 0

　　Label1.BackColor = &HFF0000

　　Label1.ForeColor = &H80FF80

　　Form1.BorderStyle = 0’窗体边框风格为没有边框

　　End Sub

　　Private Sub Label1_DblClick()

　　End ‘双击标签退出

　　End Sub

　　Private Sub Timer1_Timer()

　　'系统工作时间

　　Call GetTickCount

　　h = Int(GetTickCount/1000/3600)

　　m = Int((GetTickCount/1000/3600-h)* 60)

　　Label1.Caption = "系统已工作：" & h & "小时" & m & "分钟"

　　End Sub

　　运行一下，效果不错吧。在这个程序的基础上还可以进行扩充，比如通过代码让它定时提醒。生成*.exe文件后把快捷方式放到启动菜单中，这样启动Windows时它就会默默的工作了。