网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 程序设计-> Basic/VB类-> 用VB实现Win2000用户限时登录

用VB实现Win2000用户限时登录
作者:佚名 来源:天极网 加入时间:2005-2-28
相关文章 相关书籍:
作为信息社会的一分子,不让孩子接触电脑是不明智的;让孩子无限制的“玩”电脑也是错误的。这都是极端的作法。笔者认为,比较合理的办法是允许孩子在限定的时间段里游戏(受控制的),但孩子随时可以打开电脑学习技术文化知识(不受控制的)。下面来看看我是如何实现这一设想的:

  刚开始的时候,我把系统改成可管理性较强的Windows 2000(文件系统必须采用NTFS格式),建立两个同属User组的受限制帐户Game(用于游戏)和Study(学习帐户)并为他们设置相应文件、文件夹的安全权限,然后利用系统管理工具中“本地安全策略”(开启“当登录时间用完时自动注销用户”)结合net user命令来限制特定游戏帐号(如Game)的登录时间,不过并不奏效:能控制登录,但登录以后却不能实现自动强制退出。

  既然系统提供的功能不足以完成任务,何不通过编程来实现呢?初步的设想是用VB定制登录时间控制程序,然后修改注册表项,让程序在计算机启动或用户登录时自动加载。需要指出的是,必须限制Game和Study用户对系统时间的修改,为此还要对Setup BIOS加口令保护,有条件的话最好锁上主机箱。

  首先,VB程序的设计:新建工程,调整窗口的大小到合适,在窗口中添加一个label控件(设置caption属性为“你的登录时间已用完,1分钟以后注销,请及时保存数据!”)和二个timer控件(mainTimer和fairyTimer),程序代码如下:

Option Explicit

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub fairyTimer_Timer()
  Dim myweekday, mydate
  Dim mytime, hh$, mm$, ss$
  mydate = Date
  myweekday = Weekday(mydate)
  mytime = Time
  hh$ = Left$(mytime, 2)
  mm$ = Mid$(mytime, 4, 2)
  If myweekday > 1 And myweekday < 7 Then
  '周一至周五登录规则
    If hh > 18 And hh < 19 Then
      Exit Sub
    Else
    End If
  Else
  '双休日登录规则
    If hh > 13 And hh < 15 Then
      Exit Sub
    ElseIf hh > 18 And hh < 20 Then
      Exit Sub
    Else
    End If
  End If
  mainForm.Visible = True
  mainTimer.Interval = 60000 '启动注销进程
  End Sub

Private Sub Form_Load()
  Dim s$, cnt&, dl&
  cnt& = 199
  s$ = String$(200, 0)
  dl& = GetUserName(s$, cnt)
  'Debug.Print Left$(s$, cnt - 1); cnt
  If Left$(s$, cnt - 1) = "ChenHL" Then
    fairyTimer.Interval = 6000 '启动监听精灵
  Else
    mainTimer.Interval = 0
  End If
  End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim ret&
  ret& = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
End Sub

Private Sub mainTimer_Timer()
  Dim ret&
  ret& = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
End Sub


  完成工程以后,编译成doonus.exe可执行文件,并把doonus.exe文件保存到系统的%SystemRoot%system32目录中,设置相应的安全权限,使之除管理员之外的其他用户为只读。

  接着,修改注册表:在HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun下新建字串值doonus,使其数值数据为%SystemRoot%system32doonus.exe,保存后退出。

  重启电脑以后,发现此方法有二个很严重的缺陷:一是windows任务管理器的“应用程序”里能看到正在运行的doonus.exe程序(这是暴露目标,泄底!);二是尽管不能在“应用程序”里结束任务doonus(因为结束doonus任务意味着自动注销,这是程序设定的),但可以在“进程”中结束doonus进程(这是致命的漏洞!)。

  山穷水复疑无路,柳暗花明又一村。突然想到了windows中的“任务计划”,为什么不试试呢?

  双击“控制面板”的“任务计划”,在任务计划窗口中双击“添加任务计划”,在接着打开的窗口中点“下一步”,在接下来的窗口中选择%SystemRoot%system32目录下的doonus.exe,接着输入任务名称(如doonus)并点选“计算机启动时”或“登录时”(如图1),点“下一步”并在接下来的窗口中输入用户名“abcadministrator”(我想你不会连这也照抄吧?)、密码和确认密码(如图2),最后点“下一步”完成。

 

  终于完成了,重启一下,看看效果怎样?

  说明:以上程序在Windows 2000、VB 6.0下编译通过。


[文章录入员:sky365]

相关文章 相关书籍:
本站推荐内容

近期主机类热搜关键词:
美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

Basic/VB类
C/C++/VC
C++Builder
Basic/VB类
Delphi/Pascal
Java编程
FORTRAN
其它
电脑教程阅读排行
·VB学习一点通
·VB设计动画时钟
·在Visual Basic 6....
· 用VB6.0编写手机短信发送 ...
·VB实现文件数据对SQL Ser...
·利用Visual Basic操作...
·VB实现图像在数据库的存储与显示
·用Visual Basic6.0...
·Visual Basic代码优化...
· VB中实现“无标题”窗体的移动...