Me podrian ayudar porfa. estoy intentando hacer un programa para cyber pero no se como bloquear el teclado de modo q nadie pueda salir de el. cualquier ayuda sera bienvenida gracias. ;D
Bloquear teclado:
'-----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
Este code lo puso un compañero del foro.
Un saludo.
gracias Tesis cuando llege a mi casa lo pruebo. ;D
Probe el codigo fuente y hay un problema si uno presiona ctrl+alt+delete el bloque se desactiva. me podria ayudar alguien mas gracias. ;D
xDDDDDD entonces agregale un comando para desactivar Ctrl+Alt+Supr ... googlea. es simple.. busca el comando en www.planetsourcecode.com
ejemplo con dos botones
cmdactivar y cmddesactiva
otro code posteado en este foro... te recomiendo que busques por el foro o la gente dejara de contestarte
'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
No hay ninguna manera de hacerlo sin que salga:
El administrador de tareas ha sido desactivado por el administrador
????????
Pues a mi se me ocurre una solucion un poco bestia. Haciendo api hooking para interceptar los msgbox, pero me parece q el VB no se puede hacer no?