【请教】大家哪位帮我把这个做出来,用VB做的

sjc_jacky

我想监测我不在的时候电脑什么时候开过机,什么时候关的
或者有其他好的办法不?

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

[ 本帖最后由 sjc_jacky 于 2007-6-6 16:22 编辑 ]

若寒

不是有系统日志可以看吗

若寒

这个。。。这个可以看系统开关机时间，发生的一些错误，还有开启的一些服务，甚至运行的软件都能从里面找到蛛丝马迹

jackyhubin

log就可以了呀。用不着自己做。
自己做也是去找这个接口读出来嘛

vb一点不懂

sjc_jacky

此日志查看不准的.我看过.
问题已经解决
找了个小软件

softice616

给你个方法：

如果想用VB来读取，相信你自己也能办到；

1.控制面板-管理工具-事件查器-系统,看eventlog启动事件,双击可以查看ID,那么开机有2个ID为6005和6009启动,关机有ID为6005启动. 6009代表开机登陆
这样就可以很清楚的看到开机关机事件的具体时间,且不需要其他任何辅助软件!
2.开始——运行——eventvwr——点击“系统”——然后点击上面菜单栏的“查看”——筛选——事件ID——输入：6005，回车就是电脑开机的时间 ,输入6009，是关机时间

softice616

QUOTE:

原帖由 sjc_jacky 于 2007-6-6 16:22 发表

此日志查看不准的.我看过.
问题已经解决
找了个小软件

呃还要安装

sjc_jacky

此法已经用过了,上面显示的时间完全对不上号

softice616

QUOTE:

原帖由 sjc_jacky 于 2007-6-6 18:32 发表

此法已经用过了,上面显示的时间完全对不上号

呵呵，baidu的东西，没自己验证过

还是三方的软件比较好使点

cbcb3

利用组策略的startup 和shutdown scripts, 各自添加一个简单的batch 文件, 就可以做到.

		自动登录	找回密码
密码			注册

【请教】大家哪位帮我把这个做出来,用VB做的

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块