开机时间巧控制
出于数据安全的考虑，相信很多朋友都有着这样的需要：自己的电脑也要遵循时间原则，如果没到开机时间，它就不能使用。经过实践，笔者在Windows 98SE中用“VFP 6.0+Wscript”实现了这一功能，具体编制如下：
1.首先，我们建立关机程序，利用Windows中的Wscript脚本程序，用记事本写入如下代码，取名为restart.vbs：
Set f=Wscript.CreateObject（“Wscript.Shell”）
f.Run（“Rundll32.exe User.exe，exitwindows”）
2.新建表单取名为window.scx，其属性设为：
BackColor=rgb（192，192，192）
Caption=“warning”
TitleBar选择“0 - 关闭” &&关闭标题栏
WindowState选择“2 - 最大化”
ShowWindow选择“2 - 作为顶层表单”
AlwaysOnTop=.t. &防止被其它对象遮档
这样，别人就没法通过其它方法来关闭当前程序的运行。接下来，在Show方法中加入如下代码：
if val（left（time（），2））<10.or.;
val（left（time（），2））>12.and.
val（left（time（），2））<19.or.
val（left（time（），）2））>22 &&时间的控制可自由更改
ThisForm.closec.Visible=.t.
else
This.openc.Visible=.t.
endif
3.加入三个标签（三个标签放入中间位置就行，其中label3放下面一点），本例中其name属性分别为closec、openc、label3，相关代码如下：
WITH ThisForm.closec
.Caption=“对不起，Windows 暂时不能启动！”
.ForeColor=rgb（255，0，0）
.FontSize=24
.Visible=.f.
ENDWITH
WITH Fhisform.openc
.Caption=“Open the windows……”
.ForeColor=rgb（0，0，255）
.FontSize=24
.Visible=.t.
ENDWITH
ThisForm.label3.Caption=“5” &用于显示暂停进程
ThisForm.label3.FontSize=9
4.加入一个Timer控件timer1，其属性为：
WITH ThisForm.timer1
.Comment=＇5＇ &&设置暂停的时间（秒）
.Enabled=.t.
.Interval=1000
ENDWITH
其Timer事件程序如下：
If This.Comment=＇0＇
If ThisForm.closec.Visible=.t.
If MessageBox（“关闭计算机！”）=1
Clear Events
Run Wscript d:\asm\restart.vbs &调用关机程序
EndIf
EndIf
Clear Events &清除事件循环
ThisForm.Release
EndIf
ThisForm.label3.Caption=This.Comment
a=val（This.Comment）
a=a-1
This.Comment=str（a，1）
5.接下来保存好表单，只要创建一个主程序就行了。main.prg其代码为：
Clear all
Close all
Set Talk Off
Set Sysmenu Off
Set Status Bar On
Zoom Window Screen MAX
Do Form window.scx
Read Events
6.新建项目文件：把window.scx，main.prg，restart.vbs加入到项目文件中，以main.prg为主文件，编译生成可执行文件，取名为window.exe。
7.把window.exe拖入到开始菜单的启动中去，就样大功告成了，如果不是开机时间，则整个屏幕显示“Windows暂时不能启动！”，过了5秒后出现一个“确定”的关机信息框，一点确定就马上关机。如果可以开机则显示“Open the windows...”，过5秒完毕。