主题：无操作判断执行

请教两个问题：

 1：30秒内无操作，自动关闭系统。目前是，鼠键无动作，自动关闭，如何改为，系统无操作自动关闭？

If LastInputTickCount > 30000 Then
    Syscmd.Project.Exit()
End If

 

2：左下角信息栏，时间如何设置走动的？ 

 

此主题相关图片如下：截图20160105212414.png


此主题相关图片如下：截图20160105212415.png

1、

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 3 Then
        msgbox("要关闭系统了")
        ts = Date.now
    End If
End If

2、直接写代码

 

    StatusBar.Message1 = Date.now

就是这样写的，但是时间不会走动，怎样时间会一直走动着的，只要打开着项目

一直显示msg弹框，点确定还是叉叉关了又出来，关了又出，而且项目也没什么反应。。

 

汗，你把msgbox的代码改成关闭项目的代码啊

 

Syscmd.Project.Exit()

 

写到事件里，测试没问题

 

StatusBar.Message1 = Date.now

 

要不你就多加一句

 

StatusBar.Refresh

 

 

你好，如果在关闭系统之后，留下窗口提示，该怎么加代码呢？

加了msgbox不行，不点确定，项目也不关闭

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 1 Then
        Syscmd.Project.Exit()
        ts = Date.now
    End If
MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!
End If

关闭项目后不可能还有提示窗口。你可以先提示，然后再关闭

 

 

static ts As Date = Date.Now
static flag As Boolean = True
If flag Then
    If Windows.Forms.Form.ActiveForm IsNot Nothing Then
        ts = Date.now
    Else
        Dim sp As TimeSpan = Date.now - ts
        If sp.TotalSeconds > 1 Then
            flag = False
            MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!")
            Syscmd.Project.Exit()
        End If
    End If
End If