Siiiiiiiiii toma nota
declaraciones a nivel de modulo:
-----------------------------------------------
Public Const SPI_SCREENSAVERRUNNING = 97&
Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal
lpvParam As Any, ByVal fuWinIni As Long) As Long
funcion:
----------
Public Function ACTIVA_TECLAS(SI_NO As Boolean)
' sintaxis
' activa ACTIVA_TECLAS True
' desactiva= ACTIVA_TECLAS False
Dim LNGRET As Long
Dim blnOld As Long
If SI_NO = True Then
blnOld = -1
LNGRET = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)
End If
If SI_NO = False Then
blnOld = -1
LNGRET = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
End If
End Function
un saludo
Áridos Pérez Jiménez, S.L.
email.: apj@ctv.es
Web: http://www.ctv.es/USERS/apj
----------
> De: Boris <sonar@jet.es>
> A: vb-esp@ccc.uba.ar
> Asunto: (VB-ESP) Stop procesos mientras Pasword Vb
> Fecha: jueves 13 de noviembre de 1997 16:03
>
>
> Estoy escribiendo un programa Password de acceso al ordenador en Vb.
>
> Hay alguna forma de no conmutar a otros programas que se estén ejecutando
en ese
> momento ,o a w95 mientras el password no sea el correcto?
>
> Actualmente el programa se queda esperando el password pero el usuario
puede
> saltar a otra tarea o salir a w95 con lo cual no sirve para nada.
>
>
>
>
>