精华区文章阅读

发信人: liujq (天高任我飞), 信区: VisualBasic
标  题: 用VB定时关闭计算机
发信站: 紫丁香 (Sun Nov 14 19:13:06 1999), 转信

电脑工作室
                                                          出版日期：99-9-27　
总期号：861-862　本年期号：71-7
   　　用VB定时关闭计算机
   　　
   　　刘建军
   ■创建工程
   1. 启动VB 6,创建一新工程，选择“标准EXE”,单击“确定”；
   2. 在窗体中放一文本控件,命名text1,用以输入定时关机的时间；
   3. 在窗体中放两个标签控件,命名分别为label1和label2. label1的caption属性为
“请输入定时关
   机的时间”，Label2的 Caption属性为“000000”,用以显示当前系统的时间；

   4. 在窗体中放两个定时器控件,命名分别为timer1和timer2, interval属性都为100
0；
   5. 在窗体中放一命令按钮控件,命名command1。
   ■程序开发
   首先显式声明下面三个API函数:
   Private Declare Function ExitWindowsEx＆ Lib ″user32″ (ByVal uFlags＆,
ByVal
   dwReserved＆) As long
   ′用于关闭或重新启动计算机，由uFlags的值决定。当uFlags=1时关闭计算机，当u
Flags=2时重新
   启动计算机。
   Private Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″
(ByVal
   lpClassName As String, ByVal lpWindowName As String) As Long
   ′寻找指定窗口，如存在，则置为当前活动窗口。
   Private Declare Function PostMessage Lib ″user32″ Alias ″PostMessageA″
(ByVal hwnd
   As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

   Const WM—CLOSE = ＆H10
   Const EWX—SHUTDOWN = 1
   Dim s(10) As Long
   Option Explicit
   ′命令按钮的click事件
   Private Sub Command1—Click()
   ′声名日期型变量
   Dim Time1 As Date
   Dim Time2 As Date
   ′首先关闭定时器timer1
   Timer1.Enabled = False
   Timer2.Enabled = False
   ′取系统当前时间
   Time2 = Time()
   ′判断用户输入时间的合法性
   If Text1.Text = ″　″ Then
   MsgBox ″请输入定时关机时间！″, vbExclamation ＋ vbOKCancel, ″警告信息″

   Text1.SetFocus
   Exit Sub
   End If
   If IsDate(Text1) = False Then
   MsgBox ″非法时间！请重新输入！″, vbExclamation ＋ vbOKCancel, ″警告信息
″
   Text1.SetFocus
   Exit Sub
   Else:
   Time1 = CDate(Text1.Text)
   ′把输入的时间字符串转换为日期型
   ′ 把设定的关机时间转换为秒数值
   s(0) = Val(Left(Trim(Text1.Text), 2)) 60 60
   s(1) = Val(Mid(Trim(Text1.Text), 4, 2))  60
   s(2) = Val(Right(Trim(Text1.Text), 2))
   s(3) = s(0) ＋ s(1) ＋ s(2)
   End If
   If Time1 〈= Time2 Then
   MsgBox ″定时关机时间必须大于当前时间！″, vbExclamation ＋ vbOKCancel, ″
警告信息″
   Text1.SetFocus
   Exit Sub
   Else:
   Timer1.Enabled = True′打开定时器
   Timer2.Enabled = True
   Label1.Visible = False
   Text1.Visible = False
   Command1.Visible = False
   Label2.Visible = True
   End If
   End Sub′自定义函数
   Function exit_win() ′关机的函数
   Dim a As Variant
   a = ExitWindowsEx(EWX—SHUTDOWN, 0＆) ′shut down the computer
   End Function
   Private Sub Form—Load()
   Label2.Visible = False
   End Sub′定时器1的事件
   Private Sub Timer1—Timer() ′定时器触发事件
   Dim cur—time As String
   Dim winhwnd As Long
   Dim retval As Long ′取系统当前时间
   cur_time = CStr(Time())
   ′把系统当前时间值转换为秒数值
   s(4) = Val(Left(cur—time, 2)) 60  60
   s(5) = Val(Mid(cur—time, 4, 2))  60
   s(6) = Val(Right(cur—time, 2))
   s(7) = s(4) ＋ s(5) ＋ s(6)
   If s(7) = s(3) Then
   ′关机前关闭执行程序
   winhwnd = FindWindow(vbNullString, ″定时关机″)
   If winhwnd 〈〉 0 Then
   retval = PostMessage(winhwnd, WM—CLOSE, 0＆, 0＆)
   If retval = 0 Then
   MsgBox ″发送消息错误.″
   End If
   End If
   Beep ′报警
   Beep
   Call exit_win
   End If
   End Sub′定时器2的事件
   Private Sub Timer2—Timer()
   ′把当前的系统时间显示在 label2上
   Timer2.Enabled = False
   If (Format＄(Time, ″hh″) ＆ ″:″ ＆ Format＄(Time, ″nn″) ＆ ″:″ ＆
Format＄
   (Time, ″ss″)) 〈〉 ″00:00:00″ Then
   Time = DateAdd(″s″, 1, Time)
   Label2.Visible = False
   Label2.Caption = Format＄(Time, ″hh″) ＆ ″:″ ＆ Format＄(Time, ″nn″
) ＆ ″:″ ＆
   Format＄(Time, ″ss″)
   Label2.Visible = True
   Timer2.Enabled = True
   End If
   End Sub
   程序在VB6.0下调试通过，如在较低版本下运行，可用notepad.exe编辑VBP工程文件
，删除
   retained=0行即可。

--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.118.229.84]

VB 版 (精华区)