блокировка компьютера

[Olya1985]

скажите, пожалуйста, как можно реализовать через скрипт установку блокировки компьютера через n- минут?

[doober]

Через n минут сами сделаете таймер

Private Declare Function Desktop_Show_Hide Lib "WinLockDll.dll" (ByVal bShowHide As Boolean) As Integer
Private Declare Function StartButton_Show_Hide Lib "WinLockDll.dll" (ByVal bShowHide As Boolean) As Integer
Private Declare Function Taskbar_Show_Hide Lib "WinLockDll.dll" (ByVal bShowHide As Boolean) As Integer
Private Declare Function Clock_Show_Hide Lib "WinLockDll.dll" (ByVal bShowHide As Boolean) As Integer
Private Declare Function Process_Desktop Lib "WinLockDll.dll" (ByVal szDesktopName As String, ByVal szPath As String) As Integer
Private Declare Function Keys_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Integer
Private Declare Function AltTab1_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Integer
Private Declare Function AltTab2_Enable_Disable Lib "WinLockDll.dll" (ByVal hWnd As Long, ByVal bEnableDisable As Boolean) As Integer
Private Declare Function TaskSwitching_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Integer
Private Declare Function TaskManager_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Integer
Private Declare Function CtrlAltDel_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Integer  

Sub Востановить
    Desktop_Show_Hide (True)
    StartButton_Show_Hide (True)
    Taskbar_Show_Hide (True)
    Clock_Show_Hide (True)
    Keys_Enable_Disable (True)
    AltTab1_Enable_Disable (True)
    AltTab2_Enable_Disable 0, True
    TaskSwitching_Enable_Disable (True)
    TaskManager_Enable_Disable (True)
    CtrlAltDel_Enable_Disable (True)
End Sub
Sub заблокировать
    Desktop_Show_Hide (False)
    StartButton_Show_Hide (False)
    Taskbar_Show_Hide (False)
    Clock_Show_Hide (False)
    Keys_Enable_Disable (False)
    AltTab1_Enable_Disable (False)
    AltTab2_Enable_Disable 0, False
    TaskSwitching_Enable_Disable (False)
    TaskManager_Enable_Disable (False)
    CtrlAltDel_Enable_Disable (False)
End Sub

случайно бомба с часовым механизмом не нужна