| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1372 人关注过本帖
标题:请教各位高手,vb6有无这种代码:xp和win7操作系统的电脑几时开机,可以知道 ...
取消只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:337
专家分:561
注 册:2013-10-30
结帖率:98.44%
收藏
已结贴  问题点数:20 回复次数:3 
请教各位高手,vb6有无这种代码:xp和win7操作系统的电脑几时开机,可以知道和记录下来。
如题。
搜索更多相关主题的帖子: 记录 操作系统 
2015-03-16 09:50
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:337
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 3楼 lianyicq
请教:xp和win7操作系统的电脑怎样编辑和执行这些批处理命令?
2015-03-16 11:35
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:337
专家分:561
注 册:2013-10-30
收藏
得分:0 
各位高手,还是给个现成的EXE程序,一运行即可。以上的方法有的不会,有的太麻烦。谢谢。
2015-03-16 13:38
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:337
专家分:561
注 册:2013-10-30
收藏
得分:0 
在网上搜到的:
  你想监视计算机的开机和关机时间吗?其实这很简单,下面就教你如何用VB制作一个开机关机记录程序。
首先这个程序的工作原理:在计算机启动后,Windows打开这个程序,程序便会自动记录下开机的时间,当关机时,Windows关闭这个程序,程序会记录下关机的时间,并把它们以.txt格式保存下来。
  接着,开始制作程序和设置系统。
  第一步:打开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
  第二步:单击“文件”菜单中的“生成工程.EXE”选项(或 “File” 菜单中的“Make *.EXE”选项),选择路径保存。
  第三步:在Windows资源管理器中将刚制作的程序复制到计划任务中,并双击它。在“计划”选项卡中将程序设置为每次启动计算机时运行。重新启动计算机。        
  最后,讲一下如何查看开机记录。当再次开机时,便可以在保存程序的文件夹中看到一个名为“开机记录”的TXT文件,打开它,就可以看到上次开机的记录。   


[ 本帖最后由 HVB6 于 2015-3-17 20:25 编辑 ]
2015-03-17 20:24
快速回复:请教各位高手,vb6有无这种代码:xp和win7操作系统的电脑几时开机,可 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.067147 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved