Foro de elhacker.net

'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados

Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub

'BOTON PARA DESACTIVAR Ctrl+Alt+Sup:

Private Sub cmdDesactiva_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

'BOTON PARA Activar Ctrl+Alt+Sup:

Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub