37.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

记载Windows使用的时间

有时候你需要记下每次Windows开启和关闭的时间，下面这个小程序就可以完成这个功能，你可以把它放在Windows开始菜单的“启动”文件夹里面，这样当你进入Windows时，这个小程序就会自动启动（不可见），并在你指定的文件中写下当时的时间，在你推出Windows系统时，小程序会关闭并记下离开的时间，并关闭记录文件。

Private Sub Form_Load()

Left = -10000

Top = -10000

Open "c:\apps\log.txt" For Append As #1

Print #1, "On: " & CStr(Now)

Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open "c:\apps\log.txt" For Append As #1

Print #1, "Off:" & CStr(Now)

Close #1

End

End Sub