以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  系统锁定  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147347)
--  作者：有点蓝
--  发布时间：2020/3/14 16:55:00
--  
如果是自己做的登录窗口就可以，内置登录窗口就没有办法控制了
--  作者：有点蓝
--  发布时间：2020/3/14 17:16:00
--  
"用户登录"窗口afterload

if _username > "" then
e.form.controls("用户名文本框").text = _username
end if
--  作者：有点蓝
--  发布时间：2020/3/18 13:48:00
--  
If d>= Seconds Then  
messagebox.show("系统已锁定，请输入密码")
    MyTimers("计划1").Enabled = False \'暂停计划1
    Forms("用户登录").Open()
End If

"用户登录"窗口改为模式窗口
--  作者：有点蓝
--  发布时间：2020/3/18 14:48:00
--  
调换一下位置

If d>= Seconds Then  
    MyTimers("计划1").Enabled = False \'暂停计划1
messagebox.show("系统已锁定，请输入密码")
    Forms("用户登录").Open()
End If
--  作者：有点蓝
--  发布时间：2020/3/19 13:51:00
--  

如果用户30秒内没有进行任何操作，就自动关闭系统，可以在SystemIdle中加入下面的代码：

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

提示：LastInputTickCount是一个系统变量，返回距离用户上次操作之后的时间，单位为毫秒。