给游戏上把锁

Author: 严列翔 Date: 2001年 27期

?牐犐习嗍奔渫娴缒杂蜗罚恳桓隼习寮硕疾桓咝恕Ｈ绻闶前旃抑魅位蛘呤堑缒灾鞴苋嗽保氩幌敫缒杂蜗飞弦话阉鼓愕南率艋蛲略谛菹⑹奔淇梢跃∏榈胤潘桑谏习嗍奔湟嬗蜗吩蚧崾艿较拗颇兀?
　　?牐犖颐蔷鸵愿鳺indows中的空当接龙游戏加一把锁为例（给其他游戏加锁道理完全相同），用VB编一个小程序。
　　?牐犑紫龋颐窃诖疤逯刑砑右桓鯨ABEL控件、一个COMMAND控件和一个OLE控件。有关属性设置如下：
　　?牐燙OMMANDI．CAIyFION=“找不想玩了！”
　　?牐燨LEI．SOURCEDOC =“ C：＼WINIDOWS＼FREECELL．EXE”
　　?牐犉渲校盋：\WINDOWS＼FREECELL．EXE”就是空当接龙的执行文件。
　　?牐牫绦虼肴缦拢?
　　?牐燩rivate Sub Command1_Click（）
　　?牐燛nd
　　?牐燛nd Sub
　　?牐燩rivate Sub Form_Load（）
　　?牐燚im shijian As Date
　　?牐燙onst ams=“08:00:00”
　　?牐牐?上午下班时间
　　?牐燙onst pms=“12:00:00”
　　?牐牐?下午上班时间
　　?牐燙onst pme=“17:00:00”
　　?牐牐?下午下班时间
　　?牐爏hijian=Time（）
　　?牐牐Ф寥〉鼻笆奔?
　　?牐營f （shijian>ams And shijian<ame） Or（shijian>pms And shijian<pme）Then
　　?牐燣abel1.Caption=“上班时间请勿游戏！”
　　?牐燨LE1.Visible=False＇上锁
　　?牐燛lse
　　?牐燣abel1.Caption=“欢迎游戏，请双击游戏图标”
　　?牐燨LE1.Visible=True＇开锁
　　?牐燛nd If
　　?牐燛nd Sub
　　?牐牫绦虮嘀仆瓿梢院螅阉嘁氤?.EXE可执行文件，并为这个可执行文件创建一个快捷方式，再以空当接龙为名称把快捷方式复制到“开始→程序→附件→游戏”菜单中，把原来的空当接龙快捷方式覆盖掉。这样，只能在休息时间以通常的方式来玩这个游戏了。
　　
　　