求一个CMD倒数5秒关机代码

答案:5 悬赏:0 手机版

解决时间 2021-02-10 09:01

提问者网友：几叶到寒
2021-02-09 08:23

让我打开就能倒数5秒关机的CMD小程序求代码~~

最佳答案

五星知识达人网友：底特律间谍
2021-02-09 09:31

新建两个 label1 的组，一个是 label1(0) 另一个是 label1(1)
新建三个 command
新建一个 timer

代码如下：

Dim dd As Integer
Dim ff As Boolean
Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 3000
Timer1.Enabled = True
ff = True
Label1(1).Caption = "我也喜欢你耶！"
Label1(1).ForeColor = &HFF
Command2.Visible = False
Command1.Visible = False
Command3.Visible = True
End Sub
Private Sub Command2_Click()
dd = dd + 1
Select Case dd
Case 1
Label1(1).Caption = "你真的不叫吗？"
Case 2
Label1(1).Caption = "真的忍心不叫我吗？"
Case 3
Label1(1).Caption = "我好想让你叫我啊！你不叫我我好失望的啊！"
Case 4
Label1(1).Caption = "真的不叫吗，那我要关你的电脑了啊！"
Case 5
Label1(1).Caption = "离关机还有 60 秒。"
Timer1.Interval = 1000
Timer1.Enabled = True
Case Else
Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
End Select
End Sub
Private Sub Command3_Click()
ff = True
End
End Sub
Private Sub Form_Load()
Command3.Visible = False
dd = 0
ff = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not (ff) Then
Cancel = True
Label1(1).Caption = "你关不掉的，除非你叫我哥哥。"
End If
End Sub
Private Sub Timer1_Timer()
If ff Then End
If dd < 65 Then
dd = dd + 1
Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
Else
Shell "shutdown -s -t 0"
ff = True
End If
End Sub

全部回答

1楼网友：孤老序
2021-02-09 12:49

shutdown -s -t 5 上面再dos命令输入的

2楼网友：由着我着迷
2021-02-09 11:55

3楼网友：像个废品
2021-02-09 11:07

shutdown.exe -t 5 ,保存为一个bat(批处理)文件,

4楼网友：夜风逐马
2021-02-09 10:39

直接在“运行”或CMD黑框框里输入: shutdown -s -t 5 或保存为shutdown.bat: @echo off shutdown -s -t 5 exit

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息