vb编程做计时器

来源：百度知道 编辑：UC知道 时间：2024/05/14 09:18:04
用vb编写这样一个程序-----自动记录开机时间和关机时间,并且下次开机能够查看.

代码如下:

就是在程序的unload事件中加入的代码.. 程序放到启动项,运行后不管它了..电脑关机时会结束程序,程序结束前会写入文件开关机时间.

当然,为了防止其它事件,可以将代码放到timer中,这样会一直记录,直到程序被结束.

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

Private Sub Form_Unload(Cancel As Integer)
Call GetTickCount
Open "c:\123.txt" For Output As #1
Print #1, "开机时间为:" & DateAdd("s", -GetTickCount / 1000, Time) & vbCrLf & "关机时间为:" & Time
Close #1
End Sub

1.创建程序
2.添加随系统自动启动的代码（系统服务,注册表，开始启动三选一）
3.启动时显示上次关机时间。用个Label搞定，
4.记录当前时间，也就是开机时间，可以用datetimetostr(now)
5.再创建一个计时器（time），间隔一段时间再记录一次当前时间为关机时间，之所以这样是防止意外关机没记录。