主题：提醒是否要升级

If LastInputTickCount > 300000 Then '停用5分钟则会执行

    Dim s As String = FileSys.ReadAllText("\\BOSON\Foxtable\Foxtable\升级文件\update.txt") '取得最新发布时间

    Dim dt1 As Date = CDate(s.Substring(0, 10))

    If Publishdate = dt1 Then

        If user.group IsNot Nothing Then

            Dim Str1 As String = "用户名: " & User.Name & "  用户组别: " & user.group & "  系统发布日期: " & Publishdate '& "  当前时间: " & Date.now '当前时间没有意义

            StatusBar.Message1 = Str1

        Else

            Dim Str1 As String = "用户名: " & User.Name & "  系统发布日期: " & Publishdate & "  当前时间: " & Date.now

            StatusBar.Message1 = Str1

        End If

    End If

    If Publishdate < dt1 Then

        If user.group IsNot Nothing Then

            Dim Str1 As String = "用户名: " & User.Name & "  用户组别: " & user.group & "  系统发布日期: " & Publishdate & "  已有最新版本, 发布日期为 " & dt1 & ", 请适时重新登录系统。"

            StatusBar.Message1 = Str1

        Else

            Dim Str1 As String = "用户名: " & User.Name & "  系统发布日期: " & Publishdate & "  已有最新版本, 发布日期为 " & dt1 & ", 请适时重新登录系统。"

            StatusBar.Message1 = Str1

        End If

    End If

End If