SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Maxier en Sábado 21 de Diciembre de 2002, 13:39

Título: Re: Bloqueo tecla ctrl ...MALDITA TECLA CONTROL !!!
Publicado por: Maxier en Sábado 21 de Diciembre de 2002, 13:39

hola sres...!!!

como va ? espero que bien
les cuento, hace unas semanas pulbique un tema para bloquear ctrl + alt+ del, y ctrl + esc y, Javi me paso un codigo para hacerlo por medio de una API, el cual es para un programa para bloquear la pc en un cpu "cliente" en un cyber
ahora, el poblema que tengo, si apreto cuando se esta ejecuntando el programa la tecla ctrl + enter se me abre una venta de windows (ahora no recuerdo, creo que era el explorador o si habia una ventana abierta tomaba el control de dicha ventana)
alguien sabe como bloquear la tecla ctrl o el apretar ambas teclas juntas ?

gracias !!!

Maxi

Título: Re: Bloqueo tecla ctrl ...MALDITA TECLA CONTROL !!!
Publicado por: javierbalk en Domingo 22 de Diciembre de 2002, 05:14

Hola Maxier:

No sé como bloquear las teclas, ni tampoco entiendo que es eso que pasa, pero lo que te sugiero es colocar ese formulario cubriendo toda la pantalla, es decir maximizado y BorderStyle = 0 y ponerlo fijo por sobre todas las demás ventanas.
Para eso puedes utilizar este código. Para probarlo abre un proyecto nuevo, coloca un CommadnButton y pega lo sig:

'********************************
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Sub HacerSiempreVisible(Valor As Boolean, nHwnd As Long)
    If Valor Then
        SetWindowPos nHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
    Else
        SetWindowPos nHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
    End If
End Sub

Private Sub Command1_Click()
    If Command1.Caption = "Hacer siempre visible" Then
        HacerSiempreVisible True, hwnd
        Command1.Caption = "Hacer no siempre visible"
    Else
        HacerSiempreVisible False, hwnd
        Command1.Caption = "Hacer siempre visible"
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "Hacer siempre visible"
End Sub
'********************************

Saludos,
Javier

Título: Bloqueo tecla ctrl ...MALDITA TECLA CONTROL !!!
Publicado por: Jaume en Lunes 23 de Diciembre de 2002, 09:22

Hola

Te remito al mensaje respuesta que le escribí en su día a otra consulta.

"Tratamiento de la tecla Supr" de MindEYE

Creo que puede serte útil

Salu2