Question

如何使用VB来制作可以使电脑延时关机的程序

延时30秒，打开程序就开始计时，计时结束后关机。要代码和详细的制作过程。

Answer 1

这个很简单啊。建个程序把Visible弄成False。这样别人就看不见程序启动了 。
之后建立个Timer的控件把Interval随便设一个数字，如果是30秒就30000。
之后在Timer的代码里加上
Shell "Shutdown -s -t 0"
这是DOS的关机命令。之后就完了，不会再问。

Answer 2

Private Sub Form_Load()
Timer1.Enabled = True '可用
Timer1.Interval = 1000 '一秒种触发一次
End Sub

Private Sub Timer1_Timer()
Static n% '静态变量
n = n + 1 '1秒钟加1
Label1.Caption = (30 - n) & "秒" '剩余时间
If n >= 30 Then '30秒后关机
Shell "shutdown -s -t 0" '关机
'Shell "shutdown -r -t 0" '重启
'Shell "shutdown -l -t 0" '注销
End If
End Sub

Answer 3

Private Sub Form_Load()
Shell "shutdown -s -t 30
End If
End Sub
太简单了…

Answer 4

'给你两个例子你可以参考一下。
'1-----------------------------
'指定时间关机，指定时间为text1.text
Option Explicit

Private Sub Command1_Click()
Dim StrTime As String
Dim a
StrTime = "at " & Text1.Text & " shutdown -s -t 100"
'StrTime = "at " & Text1.Text & " shutdown -s -t 0"
a = Shell(StrTime, vbHide)

End Sub

'text1 需要输入时间的格式 比如 12:30 不能为其他格式否则出错

'2--------------------------------------------------------------

'2
Private Sub Command1_Click()
'点击Command1后出现提示，10秒后自动关机。
Dim a
a = Shell("shutdown -s -t 30")

End Sub

Answer 5

没必要那么麻烦吧
CMD下面的SHUTDOWN -s -t 30
VB可以用SHELL调用
或者用API写关机代码在用TIMER控件倒计时