Skermslot (VB.NET): 3 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:29

Ek gaan jou wys hoe ek my eie skermslot gemaak het.. so miskien kan jy jou eie maak. Of jy kan net myne gebruik;) Jy sien oral op die internet: 'Skermslot!'.. en jy laai af en installeer en dit sluit jou rekenaarskerm, sodat niemand toegang tot jou rekenaar kan kry terwyl jy nie daar is nie. (Windows-slot doen dieselfde as jy nie 'n wagwoord het nie.) Hierdie program wat ek gemaak het, gebruik VB. NET om die skerm te sluit. In die volgende paar stappe sal ek jou wys hoe. Jy kan my skermslot hieronder aflaai.

Stap 1: Maak die skerm (deel 1)

Hier gaan ek jou die eerste deel van die skermslot wys.. die eerste foto is die venster wat verskyn wanneer jy my skermslot gebruik. Hierop kan jy die wagwoord instel.. ek het dit gemaak sodat jy moet instel dit elke keer, sodat u dit nooit kan vergeet nie. My program is dus slegs 1 lêer. U het ook die opsie om dit te sien om deur te sien.. dit is net sodat die sluitskerm effens deursigtig is. U kan dus sien dat u desktop -foto vervaag het. Nou het ek dit gedoen: vir die wagwoord:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Dan Dim process As System. Diagnostics. Process = Nothing Dim psi As Process. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" proses = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Einde As Eind Subwhat dit doen, is om te kyk of die teks in teksboks1 gelyk is aan die teks wat u in die eerste venster gestel het. As dit dan die taak doen, word die taakbestuurder doodgemaak as dit aan die gang was, en herbegin explorer.exe. Hier is die deursigtige bit: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) hanteer MyBase. Load Dim verwerk As System. Diagnostics. Process = Niks Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" proses = System. Diagnostics. Process. Start (psi) As Form1. CheckBox1. Checked = True dan is Me. Opacity = 0.5 Else Button1. Show () End As End Sub Hierdie stuk script sal die explorer.exe doodmaak, sodat selfs as iemand by my skermslot kom, hulle dit nie kan doen nie om iets te doen! dan kyk dit of die 'deurkyk' -blokkie gemerk is. As dit dit het, stel dit ondeursigtigheid na 0.5. Indien nie, dan wys dit die agtergrondknoppie vir verandering.

Stap 2: Maak die skerm (deel 2)

Hier sal ek jou wys hoe ek die taakbestuurder laat kanselleer het en hoe dit bo -op ander vensters staan. Om dit in te stel as die topvorm wat jy pas gestel het: me.topmost = trueon load om dit taakbestuurder nutteloos te maak, ek het hierdie kodering gebruik:

Private Sub Form2_LostFocus (ByVal sender As Object, ByVal e As System. EventArgs) hanteer Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Einde SubWitch met ander woorde sê: As u fokus verloor, verberg taakbestuurder. maar ook omdat dit die hoogste vorm is, soos taakbestuurder nooit uitgevoer is nie. As u die regte wagwoord insit, vermoor die taak taakbestuurder. ek het ook gebruik: Protected Overrides Function Process 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 maak die alt F4 nutteloos!.. en dit probeer dieselfde doen met die beheersleutel, maar dit het nie gewerk nie … maar ek het dit gelos vir ingeval op ander stelsels.

Stap 3: Skermslot

Ek hoop dat u hierdie instruksies nuttig gevind het vir al u VB. NET -projekte. As u nie 'n deel hiervan verstaan nie, of as u hulp nodig het met een van u projekte, laat dan 'n opmerking of pm my. En gee my asseblief terugvoer oor enige probleme en beoordeel dit asseblief =] Die screen lock.exe is 'n klap as u wil aflaai.. maak net seker dat dit as 'n.ex Save -stoor met die rechtermuisknop gestoor word en klik.. save target as of your equivalent then save as exe.