利用VB制作一个锁定计算机的工具..docVIP

【趣味程序】利用VB制作一个锁定计算机的工具 利用VB制作一个锁定计算机的工具，，这个工具实现的目的，自动解码（即是你输入密码后自动解除，然后才能关闭程序），输入密码的时候只有5秒时间，大于就会自己锁定。再次按回车才能继续输入密码。下面是步骤：先照下面的界面做好界面，大家可以自己做，认为怎么好看都可以。 做好界面后先不要写代码，我们还需要一个模块，先建立一个模块模块写入如下代码：--------------------------模块代码开始------------------------------- Used for DisableCtrlAltDelete Private Declare Function SystemParametersInfo Lib _ user32 Alias SystemParametersInfoA (ByVal uAction _ As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long ------------------------------------------- Used for ExitWindows Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib user32 _ (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long --------------------- Used for AlwaysOnTop Const FLAGS = 3 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Public SetTop As Boolean Private Declare Function SetWindowPos Lib user32 (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer ------------------------------------------- Sub ExitWindows(ExitMode As String) Select Case ExitMode Case Is = shutdown ?? ??? t = ExitWindowsEx(EWX_SHUTDOWN, 0) Case Is = reboot ? ???? t = ExitWindowsEx(EWX_REBOOT Or EXW_FORCE, 0) Case Else ???? MsgBox (Error in ExitWindows call) End Select End Sub Sub AlwaysOnTop(FormName As Form, bOnTop As Boolean) ???? Sets a form as always on top Dim Success As Integer If bOnTop = False Then ???? Success% = SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Else ? ??? Success% = SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) End If End Sub Sub DisableCtrlAltDelete(bDisabled As Boolean) ???? Disables Control Alt Delete Breaking as well as Ctrl-Escape ???? Dim X As Long ???? X = SystemParametersInfo(97, bDisabled, CStr(1), 0) End Sub Sub OpenApp(File As String) ???? Shells to another application ???? X = Shell(File) End Sub --------------------------模块代码结束------------------------------- 再来写我们的窗体中控件的代码