Bildschirmsperre (VB.NET): 3 Schritte

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:23

Ich zeige dir, wie ich meine eigene Bildschirmsperre gemacht habe… und Sie laden es herunter und installieren es und es sperrt Ihren PC-Bildschirm, so dass niemand auf Ihren PC zugreifen kann, wenn Sie nicht da sind. (Windows-Sperre macht dasselbe, es sei denn, Sie haben kein Passwort.) Dieses Programm, das ich erstellt habe, verwendet VB. NET zum Sperren des Bildschirms. In den nächsten Schritten zeige ich Ihnen, wie. Sie können meine Bildschirmsperre unten herunterladen.

Schritt 1: Erstellen des Bildschirms (Teil1)

Hier zeige ich Ihnen den ersten Teil der Bildschirmsperre. Das erste Bild ist das Fenster, das sich öffnet, wenn Sie meine Bildschirmsperre ausführen es jedes Mal, damit Sie es nie vergessen können. Auch so ist mein Programm nur 1 Datei. Sie haben auch die Möglichkeit, es zu durchschauen.. dies ist nur so, dass der Sperrbildschirm leicht durchsichtig ist. So können Sie sehen, dass Ihr Desktop-Bild ausgeblendet ist. Jetzt habe ich es so gemacht: für das Passwort:

Private Sub TextBox1_TextChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Behandelt 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 SubDamit wird überprüft, ob der Text in Textbox1 dem Text entspricht, den Sie im ersten Fenster festgelegt haben. Wenn dies der Fall ist, tötet die Task den Task-Manager, wenn er ausgeführt wurde, und startet explorer.exe neu process As System. Diagnostics. Process = Nichts 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 SubDieses Skript wird explorer.exe töten um etwas zu tun! Dann wird überprüft, ob das Kontrollkästchen "Durchschauen" aktiviert wurde. Wenn dies der Fall ist, wird die Deckkraft auf 0,5 festgelegt. Wenn nicht, wird die Schaltfläche zum Ändern des Hintergrunds angezeigt.

Schritt 2: Erstellen des Bildschirms (Teil2)

Hier zeige ich Ihnen, wie ich es geschafft habe, den Task-Manager zu löschen und wie es oben auf anderen Fenstern steht:

Private Sub Form2_LostFocus(ByVal sender As Object, ByVal e As System. EventArgs) Behandelt Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch mit anderen Worten: Wenn Sie den Fokus verlieren, verstecken Sie den Task-Manager. Aber auch weil es die oberste Form ist, wird der Task-Manager nie ausgeführt keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Oder Keys. F4 Return True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch macht Alt F4 nutzlos!.. und es versucht das gleiche mit der Control-Taste zu tun, aber das hat nicht funktioniert.

Schritt 3: Bildschirmsperre

Ich hoffe, Sie fanden dieses instructable hilfreich für alle Ihre VB. NET-Projekte. Wenn Sie einen Teil davon nicht verstehen oder Hilfe bei einem Ihrer Projekte benötigen, hinterlassen Sie bitte einen Kommentar oder PN an mich irgendwelche Probleme und bitte bewerten =]Die screen lock.exe ist kaputt, wenn Sie sie herunterladen möchten. Stellen Sie nur sicher, dass sie als.exe gespeichert ist, klicken Sie mit der rechten Maustaste und klicken Sie auf.. Ziel speichern als oder Ihr Äquivalent und dann als exe speichern.