Question

用VB怎样实现自动关机？如题 谢谢了

我想用VB编写一个程序，添加一个Label,两个命令按扭（一个“是”，一个“否”）当单击“是”的时候，实现电脑的自动关机！ 代码怎样写啊！ 请高手指点一下！

Answer 1

刚编的，试试这个吧，看你用不用得上。 放上以下控件： Label1 Command1 Command2 Timer1 '代码开始 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Label1.Caption = 30 MsgBox "倒计时已停止。" End Sub Private Sub Form_Load() Label1.Caption = 30 Label1.FontSize = 15 Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = "是" Command2.Caption = "否" End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 If Label1.Caption < 1 Then Shell "shutdown -s -t 0" Label1.Caption = 15 End If End Sub

Answer 2

Private Sub LblTrue_Click() Shell "shutdown -s -t 0", 0 End Sub