哪里有简单好用的绿色免安装定时关机程序和代码下载

'
'VB6的

Private dMl As Date, lWait As Long
Private sCaptionme As String
Private Sub Command1_Click()
If IsNum(Text1.Text) = False Or IsNum(Text2.Text) = False Or IsNum(Text3.Text) = False Then MsgBox "必须输入自然数": Exit Sub

lWait = CLng(Text3.Text * 3600) + CLng(Text2.Text * 60) + CLng(Text1.Text)
If lWait = 0 Then If MsgBox("是否立即关机？", vbQuestion + vbYesNo) = vbNo Then Exit Sub

dMl = Now
Timer1.Enabled = True
Text1.Enabled = False: Text3.Enabled = False: Text2.Enabled = False
Command1.Enabled = False: Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = ""
Text1.Enabled = True: Text2.Enabled = True: Text3.Enabled = True
Command2.Enabled = False: Command1.Enabled = True
End Sub

Private Sub Form_Load()
sCaptionme = Me.Caption