Blocco schermo (VB.NET): 3 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:06

Ti mostrerò come ho creato il mio blocco dello schermo.. quindi forse puoi crearne uno tuo. o potresti semplicemente usare il mio;) Vedi tutto su Internet: 'Blocco schermo!'.. e scarichi e installi e ti blocca lo schermo del PC in modo che nessuno possa accedere al tuo PC mentre non ci sei. (Il blocco di Windows fa la stessa cosa a meno che tu non abbia una password.) Questo programma che ho creato utilizza VB. NET per bloccare lo schermo.nei prossimi passaggi ti mostrerò come. Puoi scaricare il mio Blocco schermo qui sotto.

Passaggio 1: creare lo schermo (parte 1)

Qui ti mostrerò la prima parte del blocco dello schermo..la prima immagine è la finestra che appare quando esegui il mio blocco dello schermo. su questo puoi impostare la password.. l'ho fatto quindi devi impostare ogni volta così non potresti mai dimenticarlo. Inoltre, il mio programma è solo 1 file. Hai anche la possibilità di vederlo per vedere attraverso.. questo è solo così la schermata di blocco è leggermente visibile. Quindi puoi vedere la tua immagine del desktop sbiadita. Ora ecco come l'ho fatto: per la password:

Private Sub TextBox1_TextChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Gestisce TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Then Dim process As 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 Sub controlla se il testo in textbox1 è uguale al testo che hai impostato nella prima finestra. Quindi, se lo fa, l'attività uccide il task manager se era in esecuzione e riavvia explorer.exe.here è il bit see through: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load Dim process As System. Diagnostics. Process = Niente Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show() End If End SubQuesto pezzo di script eseguirà l'operazione kill explorer.exe quindi anche se qualcuno supera il mio blocco schermo non sarà in grado per fare qualsiasi cosa! quindi controlla se la casella 'see through' è stata selezionata. Se ce l'ha, imposta l'opacità a 0.5. In caso contrario, mostra il pulsante cambia sfondo.

Passaggio 2: creare lo schermo (parte 2)

Qui ti mostrerò come l'ho fatto annullare il task manager e come si dice sopra altre finestre.:

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 in altre parole dice: quando si perde la messa a fuoco, nascondi il task manager. ma anche perché è la forma più in alto, perde come se il task manager non fosse mai stato eseguito. Rispetto a quando inserisci la password giusta … l'attività uccide il task manager. keyData As System. Windows. Forms. Keys) As Boolean Seleziona Case (keyData) Case Keys. Control Restituisci True Case Keys. Alt O Keys. F4 Restituisci True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch rende inutile l'alt F4!.. e prova a fare lo stesso con il tasto di controllo, ma non ha funzionato.. ma l'ho lasciato acceso nel caso in cui su altri sistemi lo facesse.

Passaggio 3: blocco schermo

Spero che tu abbia trovato questo istruibile utile per tutti i tuoi progetti VB. NET. Se non capisci una parte di questo o hai bisogno di aiuto con uno dei tuoi progetti, per favore lascia un commento o scrivimi in privato. e per favore dammi un feedback su qualsiasi problema e valuta =]Lo schermo lock.exe è un colpo se vuoi scaricare.. assicurati solo che sia salvato come.exe per salvare fare clic con il tasto destro e fare clic su.. salva oggetto come o equivalente quindi salva come exe.