VB 6 - remove/hide 系统关机计数器 |关机 shell 命令

VB 6 - remove/hide system shutdown counter | shutdown shell command

IDE - VB 6.0

测试系统 - Windows XP

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

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

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

有什么想法,我该如何实现?

解决方案

采取定时器控制

Properties of the Timer

Enabled -> True

Interval -> 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 的提示。