Título: ayuda con protector Publicado por: ::: Devil ::: en 29 Mayo 2008, 18:13 pm hola estoy haciendo un protector de pantalla, pero es como un bloqueo de pantalla ya tengo el codigo hecho y correo y todo pero quiero es que no funciones las teclas alt ctrl supr , alt tab, y la tecla de windows alguien me puede ayudar
este es el codigo Option Explicit ' Flag Dim OK As Boolean Private Sub cmdEntrar_Click() ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS ) Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "C:\WINDOWS\bd2.mdb" & ";" ' Variable para el recordset Dim Rst_Login As Recordset ' crea el recordset Set Rst_Login = New Recordset Dim SQL As String ' consulta SQL ( Campos: Nombre y Password) _ Textbox ( txt_Usuario y txt_Password) _ Tabla: Usuarios SQL = "SELECT Nombre, Password " & _ "FROM Usuarios " & _ "WHERE Nombre = '" & txt_Usuario.Text & "'" _ & "AND Password = '" & txt_Password.Text & "'" With Rst_Login ' Abre el recordset .Open SQL, C_CADENA ' Si el recordset está vacío es por que es incorrecto If .EOF Then MsgBox " El usuario o Password es incorrecto ", _ vbCritical, " Login incorrecto " ' Cierra y descarga el Recordset Rst_Login.Close Set Rst_Login = Nothing Exit Sub End If End With ' Cierra y descarga el Recordset Rst_Login.Close Set Rst_Login = Nothing 'Cambia el Flag para que no cierre el programa con End OK = True ' Descarga el formulario y prosigue en el SubMain Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) Set Frmlogin = Nothing If OK = False Then End End If End Sub Título: Re: ayuda con protector Publicado por: cobein en 29 Mayo 2008, 21:01 pm si lo que queres es requerir un pass tal como hace windows lo mejor que podes hacer es usar CreateDesktop, SwitchDesktop, etc y lanzar una aplicacion tipo kiosko para pedir el pass, algo asi como el logon.
|