田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



向 共享的网络打印机 发送PLT文件: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
未知 VB.net 获取系统空闲时间,系统运行时间,无操作时间   [ 日期:2014-11-16 ]   [ 来自:转帖 ]  HTML

VB.net 获取系统空闲时间,系统运行时间,无操作时间

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Class Form2
    '定义结构体
    Private Structure LASTINPUTINFO
        Public cbSize As Int32
        Public dwTime As Int32
    End Structure

    '引入系统API
    Private Declare Function GetLastInputInfo Lib "user32" (ByVal plii As IntPtr) As Long '重新定义为 IntPtr

    '在计时器中,进行相应的计算

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '获取系统的运行时间
        Dim systemUpTime As Integer = Environment.TickCount

        Dim LastInputTicks As Integer = 0

        Dim IdleTicks As Integer = 0

        Dim LastInputInfo As New LASTINPUTINFO()

        LastInputInfo.cbSize = Len(LastInputInfo)

        Dim thObject2 As Runtime.InteropServices.GCHandle = Runtime.InteropServices.GCHandle.Alloc(LastInputInfo, Runtime.InteropServices.GCHandleType.Pinned)
        Dim tpObject2 As IntPtr = thObject2.AddrOfPinnedObject() '取得指向结构的指针  

        '获取用户上次操作的时间

        If GetLastInputInfo(tpObject2) Then

            LastInputTicks = CInt(thObject2.Target.dwTime)
            'LastInputTicks = CInt(LastInputInfo.dwTime)
            '求差,就是系统空闲的时间
            IdleTicks = systemUpTime - LastInputTicks
        End If

        lblSystemUpTime.Text = "系统运行时间:" + Convert.ToString(systemUpTime / 1000) + " 秒"

        lblIdleTime.Text = "系统空闲时间:" + Convert.ToString(IdleTicks / 1000) + " 秒"
    End Sub
End Class




暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*5=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©