以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  切换用户  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60731)
--  作者：Phoebe_fdk
--  发布时间：2014/11/30 11:06:00
--  切换用户
为什么我在系统空闲时，调用系统用户切换菜单，但是切换用户窗口重复弹出，代码如下：

If LastInputTickCount > 30000 Then
    Syscmd.Project.SwitchUser()
End If
--  作者：有点甜
--  发布时间：2014/11/30 11:14:00
--  
If LastInputTickCount > 3000 Then
    Dim frm As object = Windows.Forms.Form.activeForm
    If not (frm IsNot Nothing AndAlso frm.text = "用户登录") Then
        Syscmd.Project.SwitchUser()
    End If
End If