VB2012：检测换班时应用是否活跃并提醒用户退出重登

嘿，我来帮你搞定这个用户换班忘退出的痛点！咱们核心目标很明确：检测到当前工作班次和用户登录时的班次不一致时，主动提醒用户退出并重新登录。结合你已经在用的定时器方案，我给你梳理一套完整的实现思路和优化点：

1. 先存好登录时的班次基准信息 #

用户登录成功后，得把当前班次的关键信息（比如班次开始时间、班次名称）存在全局变量里，作为后续对比的基准：

' 全局变量，记录登录时的班次信息
Private loggedInShiftStartTime As DateTime
Private loggedInShiftName As String ' 可选，比如"早班"/"中班"，方便用户直观理解

' 登录成功后立即赋值
loggedInShiftStartTime = GetCurrentShiftStartTime() ' 这个是你获取当前班次开始时间的方法
loggedInShiftName = GetCurrentShiftName()

2. 优化定时器的检测逻辑 #

在你的Timer1_Tick事件里，重点对比当前班次和登录时的班次是否一致，不一致就触发提醒：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Try
        ' 获取当前的班次开始时间
        Dim currentShiftStartTime As DateTime = GetCurrentShiftStartTime()
        
        ' 对比当前班次与登录时的班次，不一致则触发提醒
        If currentShiftStartTime <> loggedInShiftStartTime Then
            ShowShiftChangeAlert()
            ' 暂停定时器，避免重复弹窗骚扰用户
            Timer1.Enabled = False
        End If
    Catch ex As Exception
        ' 捕获异常，防止定时器崩溃
        Debug.WriteLine($"班次检测出错：{ex.Message}")
    End Try
End Sub

3. 实现直观的提醒方式 #

因为应用最小化到通知区，建议用两种方式结合提醒，确保用户能看到：

方式一：通知区气泡提示 #

利用VB自带的NotifyIcon控件实现气泡提醒，还可以搭配提示音：

Private Sub ShowShiftChangeAlert()
    ' 假设你已经添加了NotifyIcon控件，命名为NotifyIcon1
    NotifyIcon1.BalloonTipTitle = "⚠️ 班次变更提醒"
    NotifyIcon1.BalloonTipText = $"当前已切换至{GetCurrentShiftName()}，请退出应用并重新登录！"
    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
    ' 显示气泡5秒
    NotifyIcon1.ShowBalloonTip(5000)
    
    ' 播放系统提示音，增强提醒效果
    My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
End Sub

方式二：可选置顶弹窗 #

如果怕用户忽略气泡，可以弹出一个置顶的提示窗口：

Private Sub ShowShiftChangeForm()
    Dim alertForm As New Form()
    alertForm.Text = "班次变更提醒"
    alertForm.Size = New Size(350, 180)
    alertForm.StartPosition = FormStartPosition.CenterScreen
    alertForm.TopMost = True ' 强制置顶，确保用户能看到
    alertForm.FormBorderStyle = FormBorderStyle.FixedDialog ' 禁止调整窗口大小
    
    ' 添加提示文本
    Dim tipLabel As New Label()
    tipLabel.Text = $"当前班次已切换为{GetCurrentShiftName()}，请退出应用并重新登录！"
    tipLabel.Dock = DockStyle.Fill
    tipLabel.TextAlign = ContentAlignment.MiddleCenter
    tipLabel.Font = New Font("微软雅黑", 10)
    
    ' 添加确认按钮
    Dim confirmBtn As New Button()
    confirmBtn.Text = "知道了"
    confirmBtn.Dock = DockStyle.Bottom
    confirmBtn.Font = New Font("微软雅黑", 9)
    AddHandler confirmBtn.Click, Sub() alertForm.Close()
    
    alertForm.Controls.Add(tipLabel)
    alertForm.Controls.Add(confirmBtn)
    alertForm.ShowDialog()
End Sub

4. 补充：可靠的班次时间判断方法 #

你需要一个精准的函数来根据当前时间判断班次开始时间，比如按常见的三班倒规则：

Private Function GetCurrentShiftStartTime() As DateTime
    Dim now As DateTime = DateTime.Now
    Dim shiftStartTime As DateTime
    
    ' 假设班次规则：早班8:00，中班16:00，夜班0:00（0-8点属于前一天的夜班）
    Select Case now.Hour
        Case 8 To 15
            shiftStartTime = New DateTime(now.Year, now.Month, now.Day, 8, 0, 0)
        Case 16 To 23
            shiftStartTime = New DateTime(now.Year, now.Month, now.Day, 16, 0, 0)
        Case Else ' 0-7点
            shiftStartTime = New DateTime(now.Year, now.Month, now.Day, 0, 0, 0).AddDays(-1)
    End Select
    
    Return shiftStartTime
End Function

' 配套的班次名称获取函数
Private Function GetCurrentShiftName() As String
    Dim nowHour As Integer = DateTime.Now.Hour
    Return If(nowHour >= 8 And nowHour < 16, "早班", If(nowHour >= 16 And nowHour < 24, "中班", "夜班"))
End Function

5. 额外优化小建议 #

• 定时器间隔设置：不要太频繁，建议每5分钟检测一次（Timer1.Interval = 300000，单位毫秒），减少资源占用。
• 退出时重置变量：用户主动退出登录后，要把loggedInShiftStartTime重置为默认值，避免下次登录时判断错误。
• 允许手动触发检测：可以在通知区右键菜单加一个「检查班次」选项，方便用户手动验证。

内容的提问来源于stack exchange，提问作者sinDizzy