给游戏上把锁
上班时间玩电脑游戏，每一个老板见了都不高兴。如果你是办公室主任或者是电脑主管人员，想不想给电脑游戏上一把锁，使你的下属或同事在休息时间可以尽情地放松，而在上班时间要玩游戏则会受到限制呢？
我们就以给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
OLE1.Visible=False＇上锁
Else
Label1.Caption=“欢迎游戏，请双击游戏图标”
OLE1.Visible=True＇开锁
End If
End Sub
程序编制完成以后，把它编译成.EXE可执行文件，并为这个可执行文件创建一个快捷方式，再以空当接龙为名称把快捷方式复制到“开始→程序→附件→游戏”菜单中，把原来的空当接龙快捷方式覆盖掉。这样，只能在休息时间以通常的方式来玩这个游戏了。