同名用户两处登录要如何改进？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用下面的代码可以实现同名用户第二处登陆时自动弹出提示框，但必须是用户响应对话框后才会退出，如果用户暂时离开电脑了，那就会停在那里。

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

有没有办法实现系统自动退出，只是让那个提醒框留在电脑桌面上显示着。用户回来时可以看见？

谢谢！

主题：同名用户两处登录要如何改进？