با اين كد شما ميتوانيد Ctrl+Alt+Del و Alt+Tab از كار بيندازيد.
ابتدا كد زير را در يك كاژول وارد نماييد.
سپس كد زير را اجرا كنيد تا اين عمل انجام شود.
ابتدا كد زير را در يك كاژول وارد نماييد.
کد:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
سپس كد زير را اجرا كنيد تا اين عمل انجام شود.
کد:
Private Sub ToggleCtrlAltDel(IsEnabled As Boolean)
Dim lReturn As Long
Dim lBool As Long
lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool, vbNull)
End Sub