用下面的代码可以实现同名用户第二处登陆时自动弹出提示框，但必须是用户响应对话框后才会退出，如果用户暂时离开电脑了，那就会停在那里。
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "Select sys_ComputerId from {用户} Where LoginName = '" & MyLname & "'"
If cmd.ExecuteScalar > "" AndAlso cmd.ExecuteScalar <> ComputerID Then
MyTimers("Exit").Enabled = False '中止计划
MessageBox.Show("同名用户已在其他电脑登录,本机用户将自动退出系统!")
Syscmd.Project.Exit(False)
End If
有没有办法实现系统自动退出，只是让那个提醒框留在电脑桌面上显示着。用户回来时可以看见？
谢谢！
加好友 
发短信
Post By：2013/11/19 14:20:00 [只看该作者]
