SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: _EL_DJ_LU en Viernes 27 de Junio de 2003, 17:49
-
Hola a todos hice un programa para un ciber cafe, pero tiene defectos..
uno de ellos es que no puedo bloquear por completo la pantalla de windows(98)
Lo estaba haciendo poniedo un formulario en toda la pantalla y ponerlo como siempre visible, pero no me ayuda mucho.
Lo que queria saber es si hay alguna manera de hacer lo que quiero (bloquear la computador).
Si no hay forma, la pregunta es esta:
Como puedo ocultar la barra del menu inicio.
Muchas gracias
EL DJ LU
-
Tengo algo que te puede servir... yo tambien buscaba eso pero no para un cyber.
Contestá ese post y te paso los archivos..
:yes:
-
A mi también me interesaría que me enviaras los archivos que dices para saber como se haría.
¿Me lo puedes enviar por favor a mi correo (GARCI_20@hotmail.com)?
Muchas gracias.
Saludos,
Roberto García
-
Este es el zip que los contiene... están echos en VB6.
espero que les sirva.
En W98 y WME andan a la perfeccion..
bye:adios:
-
Muchas gracias.
Yo lo he probado en Windows 2003 Server y funciona, lo único que claro pulsando a Ctrl + Alt + Supr, te aparece el administrador de tareas y puedes cerrar la aplicación y asi de esta forma desbloquear la pantalla.
Creo que es imposible deshabilitar la combinación de teclas Ctrl + Alt + Supr, porque yo lo he intentado varias veces pero no lo he conseguido. Además, busque por internet la forma de hacerlo y encontre varios ejemplos y ninguno me ha funcionado.
Tu no sabes ninguna forma de poder hacer esto verdad?
Saludos,
Roberto García
-
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 (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:
-
yo tambien estoy haciendo una aplicacion para un cyber me pueden enviar el codigo por favor krloscl@yahoo.es
-
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.
-
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
-
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