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事件
这个程序比较简单
温馨提示:答案为网友推荐,仅供参考