狐爸:现在在做一个人在不同电脑上登录,最先登录的电脑自动退出系统时遇到一点点问题,请指教

我在项目事件中有下面的代码，就是退出时确认一下是否真的退出

BeforeCloseProject

Dim Result As DialogResult

Result = Messagebox.Show("请问是否确定要退出琅日信息系统?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.No Then \'如果用户选择否

    e.Cancel = True \'取消关闭项目

Else

    e.skipsave =True

End If

然后我在计划管理中有下面的代码，就是判断一个人是否在不同电脑上同时登录

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

HostName = System.Net.Dns.GetHostName \'获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP

Dim i As new SQLCommand

Dim ts As Integer

i.C

i.CommandText ="select count(工号) as 台数 from {SY用户登录表} where 工号 =\'" & _username & "\' and 状态 =\'在线\'"

ts =i.ExecuteScalar

output.show(_username)

output.show(ts)

If ts >=2

    Dim cmb As new SQLCommand

    cmb.C

    cmb.CommandText ="update {SY用户登录表} set 离线时间 =\'" & Vars("sqldt") & "\' ,状态 =\'离线\' where 工号 =\'" & _username & "\' and IP地址 =\'" & IPAdress.ToString & "\' and 状态 =\'在线\'"

    cmb.ExecuteNonQuery

    syscmd.project.Exit(False)

End If

现在的问题时，当系统监测到有人同时在不同电脑上登录时，它会执行计划管理中的代码，退出系统，但退出时它还是会执行这个BeforeCloseProject里面的代码，弹出“是与否”的对话框，需要人为处理才能退出系统，我想请问能不能直接退出，不要人为确认点击“是”，但这个BeforeCloseProject里面的代码还是需要保留的

楼主做的复杂了点。

登录后在登录表中写入ComputerId

计时器定时读取ComputerId，如果不是本机ComputerId，就退出。