给游戏上把锁

严列翔 
2001年 27期

　　上班时间玩电脑游戏，每一个老板见了都不高兴。如果你是办公室主任或者是电脑主管人员，想不想给电脑游戏上一把锁，使你的下属或同事在休息时间可以尽情地放松，而在上班时间要玩游戏则会受到限制呢？
　　　　我们就以给Windows中的空当接龙游戏加一把锁为例（给其他游戏加锁道理完全相同），用VB编一个小程序。
　　　　首先，我们在窗体中添加一个LABEL控件、一个COMMAND控件和一个OLE控件。有关属性设置如下：
　　　　COMMANDI．CAIyFION=“找不想玩了！”
　　　　OLEI．SOURCEDOC =“ C：＼WINIDOWS＼FREECELL．EXE”
　　　　其中，”C：\WINDOWS＼FREECELL．EXE”就是空当接龙的执行文件。
　　　　程序代码如下：
　　　　Private Sub Command1_Click（）
　　　　End
　　　　End Sub
　　　　Private Sub Form_Load（）
　　　　Dim shijian As Date
　　　　Const ams=“08:00:00”
　　　　＇上午下班时间
　　　　Const pms=“12:00:00”
　　　　＇下午上班时间
　　　　Const pme=“17:00:00”
　　　　＇下午下班时间
　　　　shijian=Time（）
　　　　＇读取当前时间
　　　　If （shijian>ams And shijian<ame） Or（shijian>pms And shijian<pme）Then
　　　　Label1.Caption=“上班时间请勿游戏！”
　　　　OLE1.Visible=False＇上锁
　　　　Else
　　　　Label1.Caption=“欢迎游戏，请双击游戏图标”
　　　　OLE1.Visible=True＇开锁
　　　　End If
　　　　End Sub
　　　　程序编制完成以后，把它编译成.EXE可执行文件，并为这个可执行文件创建一个快捷方式，再以空当接龙为名称把快捷方式复制到“开始→程序→附件→游戏”菜单中，把原来的空当接龙快捷方式覆盖掉。这样，只能在休息时间以通常的方式来玩这个游戏了。
　　
　　 
 