Schermvergrendeling (VB.NET): 3 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:20

Ik ga je laten zien hoe ik mijn eigen schermvergrendeling heb gemaakt.. dus misschien kun je er zelf een maken. of je kunt gewoon de mijne gebruiken;) Je ziet overal op internet: 'Schermvergrendeling!'.. en je downloadt en installeert en het vergrendelt je pc-scherm zodat niemand toegang heeft tot je pc terwijl je er niet bent. (Windows-vergrendeling doet hetzelfde tenzij je geen wachtwoord hebt.) Dit programma dat ik heb gemaakt, gebruikt VB. NET om het scherm te vergrendelen. In de volgende paar stappen zal ik je laten zien hoe. Je kunt mijn Screen Lock hieronder downloaden.

Stap 1: Het scherm maken (deel1)

Hier ga ik je het eerste deel van de schermvergrendeling laten zien.. de eerste foto is het venster dat verschijnt wanneer je mijn schermvergrendeling uitvoert. Hierop kun je het wachtwoord instellen.. ik heb het zo gemaakt dat je het moet instellen het elke keer zodat je het nooit zou kunnen vergeten. Ook mijn programma is dus maar 1 bestand. je hebt ook de mogelijkheid om het door te kijken.. dit is alleen zo dat het vergrendelscherm een beetje doorkijkt. Dus je kunt zien dat je desktopfoto vervaagd is. Nu is hier hoe ik het deed: voor het wachtwoord:

Private Sub TextBox1_TextChanged (ByVal afzender As System. Object, ByVal e As System. EventArgs) Verwerkt TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Dim vervolgens proces As System. Diagnostics. Process = Niets 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 Subwat dit doet, is controleren of de tekst in tekstvak1 gelijk is aan de tekst die u in het eerste venster hebt ingesteld. Als dit het geval is, wordt taakbeheer uitgeschakeld als het actief was, en herstart explorer.exe. Hier is het doorzichtige bit: Private Sub Form2_Load (ByVal-afzender As System. Object, ByVal e As System. EventArgs) Behandelt MyBase. Load Dim process As System. Diagnostics. Process = Niets 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 SubDit stuk script zal explorer.exe doden, dus zelfs als iemand voorbij mijn schermvergrendeling komt, zal hij niet in staat zijn om iets te doen! dan controleert het of het vakje 'doorzien' is aangevinkt. Als het deze heeft, wordt de dekking ingesteld op 0,5. Zo niet, dan wordt de knop achtergrond wijzigen weergegeven.

Stap 2: Het scherm maken (deel 2)

Hier zal ik je laten zien hoe ik het heb gemaakt om taakbeheer te annuleren en hoe het bovenop andere vensters staat.:

Private Sub Form2_LostFocus(ByVal afzender As Object, ByVal e As System. EventArgs) Behandelt Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch zegt met andere woorden: wanneer de focus verloren gaat, verberg taakbeheer. maar ook omdat het de bovenste vorm is, lijkt het alsof taakbeheer nooit is uitgevoerd. Dan wanneer u het juiste wachtwoord invoert … het taak doodt taakbeheer. keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Of Keys. F4 Return True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch maakt de alt F4 nutteloos!.. en het probeert hetzelfde te doen met de bedieningstoets, maar dat werkte niet.. maar ik liet het aan voor het geval dat het op andere systemen wel zou gebeuren.

Stap 3: Schermvergrendeling

Ik hoop dat je dit leerzaam vond voor al je VB. NET-projecten. Als je een deel hiervan niet begrijpt of hulp nodig hebt bij een van je projecten, laat dan een reactie achter of stuur me een pb. en geef me feedback over eventuele problemen en beoordeel =]De screen lock.exe is kapot als je wilt downloaden.. zorg er gewoon voor dat het is opgeslagen als een.exeom op te slaan klik met de rechtermuisknop en klik op.. sla doel op als of uw equivalent en sla op als exe.