Programación General > Visual Basic 6.0 e inferiores

 Re: COMO BLOQUEAR PANTALLA?

<< < (2/2)

misterwilliam:
Hola, no he hecho pruebas aún con esta información, no me he puesto a desglosarla, pero ahora que veo este mensaje, recuerdo haber leido algo acerca del tema en
http://guille.costasol.net/API/deshabilitarAltTab.asp

Quzás alguien con más experiencia pueda ayudarnos y si lo logra, nos lo comunique. Ojalá sea Yo mismo. Chao por ahora!! :clown:

krlos02:
yo tambien estoy haciendo una aplicacion para un cyber me pueden enviar el codigo por favor krloscl@yahoo.es

Brroz:
He aquí algo que se me ha ocurrido y tal vez funcione (no lo he probado):

Si no me equivoco hacer un protector de pantalla es tan sencillo como crear un programa y cambiarle la extensión por SCR. Si esto es cierto, entonces con hacer un programa que ocupe toda la pantalla, que controle las pulsaciones del teclado , que solicite una contraseña para finalizarse y cambiándole la extensión ya está todo hecho.
Para bloquear... ejecutas el pgm con extensión SCR. Para desbloquear... introducir la clave. Por supuesto la clave la tendrías que proporcionar tú al usuario, según algún algoritmo con la fecha y la hora.

No sé, no sé... a lo mejor se me va un poco la bola (o mucho), pero a lo mejor con algo así arreglas, es cuestión de probar...

Suerte.

giomar:
Conozco un API que justamente te permitira realizar el bloqueo del teclado.
El codigo es el siguiente:
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As Long, _
        lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub cmddeshabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  True, blnOld, 0&)

End Sub

Private Sub cmdhabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  False, blnOld, 0&)
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call cmdhab_Click
End Sub

Ahora que solo lo he probado en mi computador que tiene WME, espero que en el sistema operativo que tienes instalado funcione.
Suerte...
Giomar

giomar:
Conozco un API que justamente te permitira realizar el bloqueo del teclado.
El codigo es el siguiente:
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As Long, _
        lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub cmddeshabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  True, blnOld, 0&)

End Sub

Private Sub cmdhabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  False, blnOld, 0&)
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call cmdhab_Click
End Sub

Ahora que solo lo he probado en mi computador que tiene WME, espero que en el sistema operativo que tienes instalado funcione.
Suerte...
Giomar

Navegación

[0] Índice de Mensajes

[*] Página Anterior