监视计算机的开机和关机时间(vb代码)

Dim begintime
Private Sub Form_Load()
Me.Hide
begintime=Now
End Sub
Private Sub Form_Unload(Cancel As Integer)
endtime=Now
n=DateDiff(〃N〃,begintime,endtime)
Dim fso As New FileSystemObject
Dim txtfile As TextStream
Set a=App
If fso.FileExists(a.Path ＆ 〃开机记录.txt〃) Then
Set txtfile=fso.OpenTextFile(a.Path ＆ 〃开机记录.txt〃,ForAppending)
Else
Set txtfile=fso.OpenTextFile(a.Path ＆ 〃开机记录.txt〃,ForWriting,True)
End If
txtfile.Write 〃开机时间〃 ＆ begintime
txtfile.Write 〃 〃＆〃关机时间〃＆ endtime
txtfile.Write 〃 〃＆〃时间长度〃＆ n ＆ 〃分钟〃
txtfile.WriteBlankLines 2
End Sub
哪里错了?能帮我修改吗?

监视计算机的开机和关机时间(vb代码) 我的计算机开机时间一长就不能关机也能重起怎么办? 如何设置开机和关机的时间????? 怎么样查询我的开机时间和关机时间呢 怎么设置计算机的定时开机和关机 怎样更改计算机开机和关机的声音 怎么修改开机时间和关机时间 计算机怎么是正常开机和关机？ 请教：如何缩短电脑的开机和关机时间？ 如何记录上一次电脑开机和关机的时间？