VB 如何记录开关机 让开关机记录直接保存在自己设置的一个 TXT记事本里

Private Sub Form_Load()
Me.Hide
Form1.ShowInTaskbar = False
Open "c:\windows\system\syslog.log" For Append As #1
Print #1, Str(Now()) & "开机"
Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "c:\windows\system\syslog.log" For Append As #1
Print #1, Str(Now()) & "关机"
Close #1
End Sub
生成exe 放到注册表启动里
开机自动运行
记录开机时间
关机时windows关闭程序调用窗体的unload事件

这个程序比较简单