form4.frm

这是本人编写的一个类似于网吧管理软件

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "Form4"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form4"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer4 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   1440
      Top             =   2160
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   2640
      Top             =   2040
   End
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   3000
      Top             =   1440
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1800
      Top             =   1320
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Timer1_Timer()
z = z + 1
If z = 60 Then: Form4.Timer4.Enabled = True: z = 0: MsgBox "请登入，并且不要将显示窗口关闭！否则两分钟后将关机！": Form1.Show
End Sub

Private Sub Timer2_Timer()
day1 = Minute(time)
hour1 = Hour(time)

If hour1 = 13 Or (hour1 = 14 And day1 < 30) Or hour1 = 23 Or hour1 = 0 Or hour1 = 1 Or hour1 = 2 Or hour1 = 3 Or hour1 = 4 Then
Timer3.Enabled = True
MsgBox "休息时间，系统将关机，你将有两分钟时间处理保存工作！"

Timer2.Enabled = False
Timer1.Enabled = False
Unload Form1
End If
End Sub

Private Sub Timer3_Timer()
down = down + 1
If down = 120 Then
Dim flags As Long
flags = EWX_SHUTDOWN
flags = flags + EWX_FORCE
If NT Then
EnableShutDown
ExitWindowsEx flags, 0
Else
ExitWindowsEx flags, 0
End If
End If
End Sub

Private Sub Timer4_Timer()
shutnow = shutnow + 1
If shutnow = 120 Then
Dim flags As Long
flags = EWX_SHUTDOWN
flags = flags + EWX_FORCE
If NT Then
EnableShutDown
ExitWindowsEx flags, 0
Else
ExitWindowsEx flags, 0
End If
shutnow = 0
End If
End Sub