[课程]VB开机、关机、重启代码

[课程]VB开机、关机、重启代码 VB VB commandtimertextlabel Option Explicit Dim t, k As Integer Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean Private Sub Command6_Click() ' End End Sub Private Sub Form_Load() 'Command1.Caption = "" Command2.Caption = "" Command3.Caption = "" Command4.Caption = "" Command5.Caption = "" Command6.Caption = "" Timer1.Interval = 1000 Timer1.Enabled = False Label1.Caption = "" End Sub Private Sub Command4_Click() ' SetSuspendState False, False, False End Sub Private Sub Command5_Click() ' If Command5.Caption = "" Then Command5.Caption = "" t = Val(Text1.Text) * 60 Timer1.Enabled = True ElseIf Command5.Caption = "" Then Command5.Caption = "" Timer1.Enabled = False End If End Sub Private Sub Command1_Click() ' Shell "shutdown -l" '-l shutdown End Sub Private Sub Command2_Click() ' Shell "shutdown -R -t 3" '-r 0 End Sub Private Sub Command3_Click() ' Shell "shutdown -S -t 3" '-s End Sub Private Sub Timer1_Timer() ' t = t - 1 k = t \ 60 Label1.Caption = "" & Text1.Text & "! " & k & "" If t = 0 Then Timer1.Enabled = False Call Command3_Click End If End Sub 1 2