如何自动记录计算机开机时间？

• 关 键 词：

Private Sub Command1_Click()

Dim TimeCalc As Date

　 TimeCalc = Timer

　 Label1.Caption = "希望本计算机让您使用愉快"

　 Do While Timer - TimeCalc < 1

　　　 DoEvents

　 Loop

　 Unload Me

End Sub

Private Sub Form_Load()

Dim Today As Date

Dim DayString As String

Dim PathString As String

Dim DateRec As Integer

　 Today = Now

　 PathString = App.Path

　 If Right(PathString, 1) <> "\" Then

　　　 PathString = PathString + "\"

　 End If

　 If Dir(PathString + "StartPc.log") <> "" Then

　　　 DateRec = FreeFile

　　　 Open PathString + "StartPc.log" For Input As #DateRec

　　　 Line Input #DateRec, DayString

　　　 Close #DateRec

　　　 Label1.Caption = "你上次开机是[" & DayString & "]"

　 Else

　　　 Label1.Caption = "你第一次使用本计算机"

　 End If

　 DateRec = FreeFile

　 Open PathString + "StartPc.log" For Output As #DateRec

　 DayString = Today

　 Print #DateRec, DayString

　 Close #DateRec

End Sub

上述程序略加修改并放入启动中即可实现对系统开机的记录。 更多内容请看计算机维护专题，或进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

计算机基本知识

常见计算机密码的设置与解除

让计算机启动更快的十五招

计算机密码的安全设定技巧