[原创]定时关机程序
Option Explicit
Dim textime, timetext As Integer, mm As Integer, ss As Integer
Private Sub Command1_Click()
textime = Text1.Text
timetext = textime * 60
Timer1.Enabled = True
End Sub
Private Sub Form_Resize()
Form1.Height = 1095
Form1.Width = 4155
End Sub
Private Sub Timer1_Timer()
mm = timetext \ 60
ss = timetext Mod 60
Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"
If mm = 0 And ss = 0 Then
Text1.Text = ""
Timer1.Enabled = False
Command1.Enabled = True
Shell "shutdown -S -t 00"
End If
timetext = timetext - 1
End Sub
这个是给我的小站的贺礼...
虽然礼很轻..但是..这可是我的进步啊...大家捧捧场..
[此贴子已经被作者于2007-2-20 20:18:06编辑过]
