精彩编程与编程技巧-如何自动记录计算机开机时间？...

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



Option Explicit
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