请教各位高手，vb6有无这种代码：xp和win7操作系统的电脑几时开机，可以知道和记录下来。

以前写过这东东  但不是使用vb写的

请教：xp和win7操作系统的电脑怎样编辑和执行这些批处理命令？

这个东西，系统会帮你记录， 你现在就是想办法读。

参考：
http://baike.baidu.com/link?url=WE3CMEE-dcQFGrVcxYbiL9AfoZHxi_GtacQl8QXwquDbhm12LQURaHzb5EEgulUzmaVV7DNC21Pm5SIzZrmoeq

例子，只有 C++ 的，你慢慢研究吧，我对API不熟悉

在网上搜到的：
  你想监视计算机的开机和关机时间吗？其实这很简单，下面就教你如何用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 编辑 ]