Question

怎么用vb做一个自动关机的程序？求解！

Dim x As Long
x = Val(Text1.Text)
Shell ("shutdown -s -t x")
怎么把x = Val(Text1.Text)
代入到Shell ("shutdown -s -t x")
另外这句话对不对啊？
不对的话再给我一个句子，谢谢！

Answer 1

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

Timer1.Interval = 1000

Timer1.Enabled = True

Text1 = Val(Text1) * 60

Command1.Caption = "停止"

Else

Timer1.Enabled = False

Command1.Caption = "开始"

End If

End Sub

Private Sub Timer1_Timer()

Text1 = Text1 - 1

If Text1 = "0" Then Timer1.Enabled = False: Call 关机

End Sub

Sub 关机()

'Shell "cmd.exe /c shutdown -s -t 0"

MsgBox "关机"

End Sub