37.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 29 行

记载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