Question

哪位高手给我个VB定时关机的源代码~

本人比较苯，~ ~！最好直接复制上去就能用的，标记下在哪复制要ocx控件

Answer 1

窗体上放一个时钟控件 timer1:
Dim t As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Me.Caption = "1分钟后自动关机"
End Sub

Private Sub Timer1_Timer()
t = t + 1
If t >= 60 Then
Shell "shutdown -s -t 0"
End
End If
End Sub