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