【请教】大家哪位帮我把这个做出来,用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 文件, 就可以做到.