Родительский контроль – ограничение время провождения за компьютером

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1") ;блокировка
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0") ;разблокировка

$Form1 = GUICreate("", 203, 169, -1, -1, $WS_POPUP + $WS_GROUP, $WS_EX_TOPMOST)

Case $GUI_EVENT_CLOSE
            Exit

#include <WinAPI.au3>
#include <WinAPIEx.au3>

Func _Mouse()
	$hWnd = WinGetHandle("[CLASS:AutoIt v3 GUI]")
	$tRECT = _WinAPI_GetWindowRect($hWnd)
	_WinAPI_ClipCursor($tRECT)
EndFunc

AdlibRegister("_Mouse", 1000)

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <String.au3>
#include <Misc.au3>

Global $sApp_Name = 'User Limiter'
Global $sConfig = StringTrimRight(@ScriptFullPath, 3) & 'ini'

;Default values (users)
Global $aDefault_Users[4][4] = [ _ ;[CtrlID, User Name, Minutes left, Password]
	[3], _
		[0, 'Jon', 30, 'qwerty'], _
		[0, 'Stefan', 30, 'qwerty'], _
		[0, 'George', 30, 'qwerty'] _
	]

Global $aUsers

Global $iActiveUser = -1
Global $iUsageTimer = -1

Global $sEndSession_HK = '^+e' ;Ctrl + Shift + E
Global $sExit_HK = '^+q' ;Ctrl + Shift + Q

Opt('GUICloseOnESC', 0)

$hGUI = GUICreate($sApp_Name, 400, 200, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP), $WS_EX_TOPMOST)
GUICtrlCreateGroup('Users List', 10, 20, 380, 160)
_LoadUsersList_Proc()
GUISetState(@SW_SHOW, $hGUI)

_LockGUI_Proc()
AdlibRegister('_LockGUI_Proc', 500)
HotKeySet($sExit_HK, '_Exit')

While 1
	$iMsg = GUIGetMsg()
	
	Switch $iMsg
		Case $aUsers[1][0] To $aUsers[$aUsers[0][0]][0]
			$iIndex = _ArraySearch($aUsers, $iMsg, 1, 0, 0, 0, 1, 0)
			
			If @error Then
				ContinueLoop
			Else
				If $aUsers[$iIndex][2] <= 0 Then
					MsgBox(48, 'Attention', $aUsers[$iIndex][1] & ',' & @CRLF & 'Your session has been expired.', 0, $hGUI)
					ContinueLoop
				EndIf
			EndIf
			
			$sPass = InputBox($sApp_Name & ' - Password', 'Account password:', '', '*', 300, 150, Default, Default, 0, $hGUI)
			
			If Not @error Then
				If $sPass == $aUsers[$iIndex][3] Then
					$iActiveUser = $iIndex
					_AllowCompUsage_Proc()
				Else
					$iActiveUser = -1
					MsgBox(48, 'Error', 'Wrong password.', 0, $hGUI)
				EndIf
			EndIf
	EndSwitch
WEnd

Func _LoadUsersList_Proc()
	Local $aSectNames = IniReadSectionNames($sConfig)
	
	If @error Then
		$aUsers = $aDefault_Users
		Return SetError(1)
	EndIf
	
	Dim $aUsers[$aSectNames[0]+1][4]
	Local $iTop = 40
	
	For $i = 1 To $aSectNames[0]
		$aUsers[$i][1] = $aSectNames[$i]
		$aUsers[$i][2] = IniRead($sConfig, $aSectNames[$i], 'Timer', 30)
		$aUsers[$i][3] = _StringEncrypt(0, IniRead($sConfig, $aSectNames[$i], 'Pass', 'qwerty'), $aUsers[$i][1])
		
		$aUsers[$i][0] = GUICtrlCreateButton($aUsers[$i][1], 20, $iTop, 80, 20)
		GUICtrlCreateLabel($aUsers[$i][2] & ' min. left', 270, $iTop+3, 100, 15)
		$iTop += 25
	Next
	
	$aUsers[0][0] = $aSectNames[0]
EndFunc

Func _LockGUI_Proc()
	Local $aWinPos = WinGetPos($hGUI)
	_MouseTrap($aWinPos[0], $aWinPos[1], $aWinPos[0]+$aWinPos[2], $aWinPos[1]+$aWinPos[3])
	
	If Not WinActive($hGUI) And Not WinActive($sApp_Name & ' - Password') Then WinActivate($hGUI)
EndFunc

Func _AllowCompUsage_Proc()
	GUISetState(@SW_HIDE, $hGUI)
	AdlibUnRegister('_LockGUI_Proc')
	AdlibRegister('_CheckUserTime_Proc', 1000)
	HotKeySet($sEndSession_HK, '_EndUserSession_Proc')
	$iUsageTimer = TimerInit()
EndFunc

Func _EndUserSession_Proc()
	GUISetState(@SW_SHOW, $hGUI)
	_LockGUI_Proc()
	AdlibRegister('_LockGUI_Proc', 500)
	AdlibUnRegister('_CheckUserTime_Proc')
	HotKeySet($sEndSession_HK)
	
	If $iActiveUser > 0 Then
		$aUsers[$iActiveUser][2] -= Round(TimerDiff($iUsageTimer) / 1000 / 60, 2)
		GUICtrlSetData($aUsers[$iActiveUser][0] + 1, $aUsers[$iActiveUser][2] & ' min. left')
	EndIf
	
	$iUsageTimer = -1
EndFunc

Func _CheckUserTime_Proc()
	If (TimerDiff($iUsageTimer) / 1000 / 60) >= $aUsers[$iActiveUser][2] Then
		_EndUserSession_Proc()
		MsgBox(48, 'Attention', $aUsers[$iActiveUser][1] & ',' & @CRLF & 'Your session has been expired.', 0, $hGUI)
	EndIf
EndFunc

Func _Exit()
	For $i = 1 To $aUsers[0][0]
		IniWrite($sConfig, $aUsers[$i][1], 'Timer', $aUsers[$i][2])
		IniWrite($sConfig, $aUsers[$i][1], 'Pass', _StringEncrypt(1, $aUsers[$i][3], $aUsers[$i][1]))
	Next
	
	FileSetAttrib($sConfig, '+RH')
	
	Exit
EndFunc