elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Bloquear el teclado desde Visual Basic
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Bloquear el teclado desde Visual Basic  (Leído 7,138 veces)
TheWarrior

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Bloquear el teclado desde Visual Basic
« en: 2 Diciembre 2006, 02:10 am »

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


En línea

Errar es de humanos rectificar es de Sabios
ReViJa

Desconectado Desconectado

Mensajes: 149


Ver Perfil WWW
Re: Bloquear el teclado desde Visual Basic
« Respuesta #1 en: 2 Diciembre 2006, 09:47 am »

Bloquear teclado:

Código:
'-----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.


En línea

TheWarrior

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: Bloquear el teclado desde Visual Basic
« Respuesta #2 en: 7 Diciembre 2006, 01:11 am »

gracias Tesis cuando llege a mi casa lo pruebo. ;D
En línea

Errar es de humanos rectificar es de Sabios
TheWarrior

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: Bloquear el teclado desde Visual Basic
« Respuesta #3 en: 19 Diciembre 2006, 03:06 am »

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
En línea

Errar es de humanos rectificar es de Sabios
Nizer

Desconectado Desconectado

Mensajes: 34


asasdasdas


Ver Perfil
Re: Bloquear el teclado desde Visual Basic
« Respuesta #4 en: 10 Enero 2007, 20:13 pm »

xDDDDDD entonces agregale un comando para desactivar Ctrl+Alt+Supr ... googlea. es simple.. busca el comando en www.planetsourcecode.com
En línea

zzzzzzzz............
Hans el Topo


Desconectado Desconectado

Mensajes: 1.752


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: Bloquear el teclado desde Visual Basic
« Respuesta #5 en: 11 Enero 2007, 00:44 am »

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

Código:
'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
En línea

 
ivantj

Desconectado Desconectado

Mensajes: 28


Always VB Programmer


Ver Perfil
Re: Bloquear el teclado desde Visual Basic
« Respuesta #6 en: 22 Enero 2007, 17:31 pm »

No hay ninguna manera de hacerlo sin que salga:

El administrador de tareas ha sido desactivado por el administrador

????????
En línea


V-Tone Pack By: Behringer
 -La paciencia es la madre de la ciencia-
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Bloquear el teclado desde Visual Basic
« Respuesta #7 en: 22 Enero 2007, 18:02 pm »

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?
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines