Bloqueo de pantalla (VB.NET): 3 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

Voy a mostrarte cómo hice mi propio bloqueo de pantalla … así que tal vez tú puedas hacer el tuyo propio. O simplemente podrías usar el mío;) Ves en Internet: '¡Bloqueo de pantalla!'.. y usted descarga e instala y bloquea la pantalla de su PC para que nadie pueda acceder a su PC mientras usted no esté allí. (El bloqueo de Windows hace lo mismo a menos que no tenga una contraseña). Este programa que hice usa VB. NET para bloquear la pantalla. En los siguientes pasos, te mostraré cómo. Puedes descargar mi bloqueo de pantalla a continuación.

Paso 1: Hacer la pantalla (parte 1)

Aquí te voy a mostrar la primera parte del bloqueo de pantalla … la primera imagen es la ventana que aparece cuando ejecutas mi bloqueo de pantalla. En esto puedes establecer la contraseña … lo hice así que tienes que configurar todo el tiempo para que nunca puedas olvidarlo. Además, mi programa es solo 1 archivo. También tiene la opción de verlo para ver a través … esto es solo para que la pantalla de bloqueo se vea ligeramente. Para que pueda ver la imagen de su escritorio desaparecida. Ahora, así es como lo hice: para la contraseña:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Maneja TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Luego Atenuar el proceso como System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End If End Sublo que hace es comprobar si el texto en el cuadro de texto1 es igual al texto que estableció en la primera ventana. Luego, si lo hace, mata al administrador de tareas si se estaba ejecutando, y reinicia explorer.exe. Aquí está el bit transparente: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Maneja MyBase. Load Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Si Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show () End If End Sub Esta secuencia de comandos matará explorer.exe, por lo que incluso si alguien supera mi bloqueo de pantalla, no podrá para hacer cualquier cosa! luego verifica si se ha marcado la casilla 'ver a través'. Si lo tiene, establece la opacidad en 0.5; de lo contrario, muestra el botón de cambio de fondo.

Paso 2: Hacer la pantalla (parte 2)

Aquí le mostraré cómo logré cancelar el administrador de tareas y cómo dice en la parte superior de otras ventanas. Para configurarlo como el formulario superior que acaba de configurar: me.topmost = trueon load para hacer que el administrador de tareas sea inútil, utilicé esta codificación:

Private Sub Form2_LostFocus (ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch en otras palabras dice: cuando se pierde el enfoque, oculta el administrador de tareas. pero también porque es la forma más alta, se pierde como si el administrador de tareas nunca se ejecutara. Luego, cuando pones la contraseña correcta en … la tarea mata al administrador de tareas. También utilicé: Protected Overrides Function ProcessDialogKey (ByVal keyData como System. Windows. Forms. Keys) Como booleano Seleccionar mayúsculas y minúsculas (keyData) Case Keys. Control Regresar True Case Keys. Alt Or Keys. F4 Regresar True End Seleccionar Regresar MyBase. ProcessDialogKey (keyData) Fin ¡El interruptor de función hace que la tecla alt F4 sea inútil!.. e intenta hacer lo mismo con la tecla de control, pero eso no funcionó.. pero lo dejé encendido por si acaso en otros sistemas lo haría.

Paso 3: bloqueo de pantalla

Espero que este instructivo le haya resultado útil para todos sus proyectos de VB. NET. Si no comprende una parte de esto o necesita ayuda con uno de sus proyectos, deje un comentario o envíeme un mensaje por correo electrónico. cualquier problema y por favor califique =] La pantalla lock.exe es un golpe si desea descargar.. solo asegúrese de que esté guardado como.exe para guardar haga clic derecho y haga clic.. guardar destino como o su equivalente y luego guardar como exe.