获取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 = IntGetTickCount / 1000 / 3600
m = IntGetTickCount / 1000 / 3600 - h 60
Label1.Caption = ″系统已工作″ & h & ″小时″ & m & ″分钟″
End Sub |
运行一下效果不错吧。在这个程序的基础上还可以进行扩充，比如通过代码让它定时提醒。生成.exe文件后把快捷方式放到启动菜单中，这样启动Windows时它就会默默的工作了。
情人玫瑰坊
音乐风云
新片速递
神秘测试
都市约会