VB 6 - 移除/隐藏系统关机计数器|关闭外壳命令答案

【问题标题】：VB 6 - remove/hide system shutdown counter | shutdown shell commandVB 6 - 移除/隐藏系统关机计数器|关闭外壳命令
【发布时间】：2021-10-13 11:24:09
【问题描述】：

IDE - VB 6.0

测试系统 - Windows XP

我正在使用shutdown shell 命令Shell ("shutdown -s -f -t 15") 来关闭机器。问题是当我执行命令时，默认情况下也会出现系统关闭计数器，如下图所示

如果我设置-t 00，系统关闭计数器不会出现，但机器正在关闭，没有任何我不想要的延迟。

我想等待 15 秒，我也不想在 15 秒的等待期内看到这个关机计数器。

有什么想法，我该如何实现？

【问题讨论】：

启动一个 15 秒的计时器，使用 -t 00 执行您的关机命令并隐藏您的表单。
谢谢伙计，非常简单但有效的想法。为什么我以前没有这样想:)

标签： windows shell vb6 windows-xp shutdown

【解决方案1】：

解决方案

采取定时器控制

定时器的属性

启用 -> 正确

间隔 -> 1000

代码

Dim x As Integer

Private Sub Form_Load()
Timer1.Enabled = False
x = 15
End Sub

Private Sub btnShutdown_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

x = x - 1

If x = 0 Then
Shell ("shutdown -s -f -t 00")
End If

End Sub

感谢@Steeeve 的提示。

【讨论】：