Κλείδωμα οθόνης (VB.NET): 3 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:39

Θα σας δείξω πώς έφτιαξα το δικό μου κλείδωμα οθόνης….. και κατεβάζετε και εγκαθιστάτε και κλειδώνει την οθόνη του υπολογιστή σας, ώστε κανείς να μην έχει πρόσβαση στον υπολογιστή σας ενώ δεν είστε εκεί. (Το κλείδωμα των Windows κάνει το ίδιο πράγμα, εκτός εάν δεν έχετε κωδικό πρόσβασης.) Αυτό το πρόγραμμα που έφτιαξα χρησιμοποιεί VB. NET για να κλειδώσετε την οθόνη. Στα επόμενα βήματα θα σας δείξω πώς. Μπορείτε να κατεβάσετε το Screen Lock μου παρακάτω.

Βήμα 1: Δημιουργία της οθόνης (μέρος 1)

Εδώ θα σας δείξω το πρώτο μέρος του κλειδώματος οθόνης..η πρώτη φωτογραφία είναι το παράθυρο που εμφανίζεται όταν εκτελείτε το κλείδωμα οθόνης μου. Σε αυτό μπορείτε να ορίσετε τον κωδικό πρόσβασης.. το έκανα έτσι πρέπει να ρυθμίσετε αυτό κάθε φορά για να μην το ξεχάσεις ποτέ. Επίσης, το πρόγραμμά μου είναι μόνο 1 αρχείο. Έχετε επίσης την επιλογή να το δείτε για να το δείτε.. αυτό συμβαίνει μόνο έτσι ώστε η οθόνη κλειδώματος να είναι ελαφρώς διαφανής. Έτσι, μπορείτε να δείτε την εικόνα της επιφάνειας εργασίας σας να έχει ξεθωριάσει. Τώρα εδώ είναι πώς το έκανα: για τον κωδικό πρόσβασης:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Then Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStart UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Τέλος Αν Τέλος Αυτό που κάνει είναι να ελέγξει εάν το κείμενο στο πλαίσιο κειμένου1 είναι ίσο με το κείμενο που έχετε ορίσει στο πρώτο παράθυρο. Στη συνέχεια, εάν το κάνει, σκοτώνει τον διαχειριστή εργασιών εάν ήταν σε λειτουργία, και επανεκκίνηση του explorer.exe.εδώ είναι το see through bit: Private Sub Form2_Load (Αποστολέας ByVal ως System. Object, ByVal e As System. EventArgs) Χειρίζεται το MyBase. Load Dim process As System. Diagnostics. Process = Τίποτα 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 Sub Αυτό το κομμάτι του σεναρίου θα εκτελέσει το kill explorer.exe, οπότε ακόμη και αν κάποιος ξεπεράσει το κλείδωμα οθόνης μου δεν θα είναι σε θέση για να κάνετε οτιδήποτε! τότε ελέγχει αν έχει επιλεγεί το πλαίσιο "see through". Εάν έχει, ορίζει την αδιαφάνεια στο 0,5. Αν όχι, τότε εμφανίζει το κουμπί αλλαγής φόντου.

Βήμα 2: Δημιουργία της οθόνης (μέρος 2)

Εδώ θα σας δείξω πώς το έκανα να ακυρώσει τη διαχείριση εργασιών και πώς γράφει πάνω από άλλα παράθυρα. Για να το ορίσετε ως την κορυφαία φόρμα που μόλις ορίσατε::

Private Sub Form2_LostFocus (Αποστολέας ByVal Ως αντικείμενο, ByVal e Ως System. EventArgs) Με χειρίζεται. LostFocus Dim k Όσο καιρό k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Τέλος SubWitch με άλλη λέξη λέει: όταν χάσετε την εστίαση, αποκρύψτε τον διαχειριστή εργασιών. αλλά και επειδή είναι η κορυφαία μορφή που φαίνεται ότι δεν εκτελέστηκε ποτέ ο διαχειριστής εργασιών. Από τότε που βάζετε τον σωστό κωδικό πρόσβασης … η εργασία σκοτώνει τον διαχειριστή εργασιών. χρησιμοποίησα επίσης: Προστατευμένη παράκαμψη της λειτουργίας ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) Ως Boolean Επιλογή Περίπτωσης (keyData) Κλειδιά Περίπτωσης. Control Control Return True Case Keys. Alt Or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch καθιστά το alt F4 άχρηστο!.. και προσπαθεί να κάνει το ίδιο με το κλειδί ελέγχου, αλλά αυτό δεν λειτούργησε.. αλλά το άφησα για κάθε περίπτωση σε άλλα συστήματα.

Βήμα 3: Κλείδωμα οθόνης

Ελπίζω να το βρήκατε χρήσιμο για όλα τα έργα σας VB. NET. Αν δεν καταλαβαίνετε ένα μέρος αυτού ή χρειάζεστε βοήθεια σε ένα από τα έργα σας, αφήστε ένα σχόλιο ή στείλτε μου pm. Και παρακαλώ δώστε μου ανατροφοδότηση τυχόν προβλήματα και παρακαλώ βαθμολογήστε =] Το lock.exe της οθόνης χτυπά αν θέλετε να κάνετε λήψη.. απλά βεβαιωθείτε ότι έχει αποθηκευτεί ως.exet για να αποθηκεύσετε δεξί κλικ και κλικ.. αποθήκευση στόχου ως ή ισοδύναμό σας και στη συνέχεια αποθήκευση ως exe.