p.Path rjsz.dat For Input As 1 Len 5 Input 1 rjsz Close 1 rjsz Formatrjsz 00000 If Midrjsz 4 1 1 And Command2.Caption 停止 Then txt Midrjsz 5 1 提醒时间 NT1 FormatHourNow 00 NT2 FormatMinuteNow 00 NT3 FormatSecondNow 00 GT1 FormatMidText1 1 2 00 GT2 FormatMidText1 3 2 00 GT3 FormatMidText1 5 2 00 nt NT1 NT2 NT3 If GT2 - txt 0 Then Gt GT1 FormatGT2 - txt 00 GT3 Else If GT1 - 1 0 Then Gt FormatGT1 - 1 00 Format60 GT2 - txt 00 GT3 Else Gt 23 Format60 GT2 - txt 00 GT3 End If End If If Gt nt Then Form4.Show End If If GT3 - NT3 0 Then 剩余时间 Ts GT3 - NT3 If GT2 - NT2 0 Then Tm GT2 - NT2 If GT1 - NT1 0 Then Th GT1 - NT1 Else Th GT1 24 - NT1 End If Else If GT1 - NT1 - 1 0 Then Tm GT2 60 - GT1 Th GT1 - NT1 - 1 Else Tm GT2 60 - GT1 Th 24 GT1 - NT1 - 1 End If End If Else If GT2 - NT2 - 1 0 Then Ts GT3 60 - NT3 Tm GT2 - NT2 - 1 If GT1 - NT1 0 Then Th GT1 - NT1 Else Th GT1 24 - NT1 End If Else If GT1 - NT1 - 1 0 Then Ts GT3 60 - NT3 Tm GT2 60 - NT3 - 1 Th GT1 - NT1 - 1 Else Ts GT3 60 - NT3 Tm GT2 60 - NT2 - 1 Th 24 GT1 - NT1 - 1 End If End If End If Label7.Visible True Label7.Caption 关机倒计时： Th 时 Tm 分 Ts 秒 If Th 0 And Tm 5 Then Label7.ForeColor vbRed End If End If End IfEnd SubFunction PowerDown ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF 0 Timer1.Enabled FalseEnd FunctionForm2（设置）Private Sub Command1_Click Dim v As Long For i 1 To 4 v v Check1i - 1.Value Next i If v 0 Then Command1.Caption 全清 For i 1 To 4 Check1i - 1.Value 1 Next i Else Command1.Caption 全选 For i 1 To 4 Check1i - 1.Value 0 Next i End IfEnd SubPrivate Sub Command2_Click Dim c As Long d As Long Open App.Path rjsz.dat For Output As 4 Len 5 Cls For i 1 To 4 c Check1i - 1.Value cc cc c Next i d Combo1.Text cc cc d Print 4 cc Close 4 If Check10.Value 1 Then 开机自动启动 Call SetAutoRunTrue Else Call SetAutoRunFalse End If Unload Form2End SubPrivate Sub Form_Load Dim s As Long Combo1.AddItem 1 Combo1.AddItem 2 Combo1.AddItem 3 Combo1.AddItem 4 Combo1.AddItem 5 If DirApp.Path rjsz.dat Then Open App.Path rjsz.dat For Input As 3 Len 5 Input 3 sss sss Formatsss 00000 For i 1 To 4 Check1i - 1.Value Midsss i 1 Next i Combo1.Text Midsss 5 1 Close 3 End IfEnd SubPrivate Sub Timer1_Timer For i 1 To 4 v v Check1i - 1.Value Next i If v 0 Then Command1.Caption 全选 Else Command1.Caption 全清 End IfEnd SubForm3（关于）Private Sub Label13_Click Form2.Left Form1.Left Form1.Width Form2.Top Form1.Top Form2.ShowEnd SubForm4（提示）Private Sub Command1_Click Form4.HideEnd SubPrivate Sub Command2_Click MsgBox 你 可 回 主 界 面 重 新 Chr13 开 启 自 动 关 机 功 能 ！ vbOKOnly vbInformation 提示 Form4.Hide Form1.ShowEnd SubPrivate Sub Form_Load Label1.Caption 还有 Form1.txt 分钟将关机！请做好保存工作。

    End Sub