VB 如何 获取 系统运行 的总时长

Question

VB 如何 获取 系统运行 累计的时长 ?
是从系统安装那时算起.比如: 2008-11-10 08:00:00 安装的系统2008-11-10 系统运行时长 2小时
2008-11-11 系统运行时长 7小时
2008-11-12 系统运行时长 5小时到 2008-11-13 日 系统运行累计时长为:14小时.怎么来得到这个累计时间??以前好像看个一个软件现实这功能了..好像是读系统日志文件
.记不清楚了..请各位大侠帮忙啊!!

Answer 1

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim l As Long
l = GetTickCount
Dim d As Date
d = TimeSerial(0, 0, l / 1000)
Label1.Caption = "Windows已经运行了" & d
End Sub

Answer 2

优化大师两项：
用VB得到windows系统安装时的时间
http://blog.csdn.net/tanaya/archive/2005/04/21/356809.aspx
已开机时间
http://zhidao.baidu.com/question/12705337.html?fr=qrl

Answer 3

本人写了个小程序(系统个性打造工具)
现在以支持 本机信息,系统相关,QQ批量登录,定时设置,在线搜索本机信息获取计算机名,当前用户名,本机IP地址
本次系统启动时间,本次启动系统运行时长
上次系统启动时间,上次系统关机时间
系统累计运行时长,系统累计关机时长
当前操作系统,当前操作系统版本
当前系统安装时间,系统Build,系统最后服务包
当前系统运行状态,当前系统序列号
系统相关隐藏注销,隐藏快捷方式的小箭头,隐藏快捷方式到
隐藏桌面图标,隐藏控制面板 等相关项
(这部分功能只完成了一部分)
QQ批量登录支持批量登录
支持挂机模式(自定义时间)
支持在线时长查看
支持登录时间查看
支持隐身或正常登录
定时设置支持定时注销
支持定时重启
支持定时关机
支持定时提醒
支持定时运行程序
具有备忘录的功能在线搜索支持主板驱动搜索
支持显卡驱动搜索
支持声卡驱动搜索
支持百度网页搜索
支持百度音乐搜索
支持百度图片搜索
支持百度Mp3搜索
支持百度Flash搜索
支持Google网页搜索
支持Google图片搜索