Zaklepanje zaslona (VB.NET): 3 koraki

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:09

Pokazal vam bom, kako sem si sam naredil zaklepanje zaslona.. zato si morda naredite sami. Ali pa uporabite samo mojega;) Po vsem internetu vidite: 'Zaklepanje zaslona!'.. in prenesete in namestite ter zaklene vaš računalniški zaslon, tako da nihče ne more dostopati do vašega računalnika, medtem ko vas ni. (Zaklepanje sistema Windows naredi isto, če nimate gesla.) Ta program, ki sem ga naredil, uporablja VB. NET za zaklepanje zaslona. V naslednjih nekaj korakih vam bom pokazal, kako. Zaklepanje zaslona lahko prenesete spodaj.

1. korak: Ustvarjanje zaslona (1. del)

Tukaj vam bom pokazal prvi del zaklepanja zaslona.. prva slika je okno, ki se prikaže, ko zaženete zaklepanje zaslona. Na tem lahko nastavite geslo.. uspelo mi je, zato morate nastaviti vsakič, da ne pozabite. Tudi zato je moj program samo 1 datoteka. Imate tudi možnost, da ga vidite skozi … to je samo zato, da je zaklenjeni zaslon rahlo viden. Tako lahko vidite, da je slika na namizju zbledela. Zdaj sem to naredil: za geslo:

Zasebni podnapis TextBox1_TextChanged (pošiljatelj ByVal kot System. Object, ByVal e As System. EventArgs) obravnava TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Nato zatemni proces kot 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 () End If End Sub Kaj naredi, preveri, ali je besedilo v besedilnem polju1 enako besedilu, ki ste ga nastavili v prvem oknu. Potem, če opravi nalogo, ubije upravitelja opravil, če se je izvajal, in znova zažene explorer.exe. Tukaj je pregledni bit: Zasebna podrejena datoteka Form2_Load (pošiljatelj ByVal kot System. Object, ByVal e As System. EventArgs) Upravlja MyBase. Load Dim proces kot System. Diagnostics. Process = Nič Dim psi kot nov ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Če je Form1. CheckBox1. Checked = True Potem Me. Opacity = 0,5 Else Button1. Show () End If End Sub Ta del skripta bo nalogo ubil explorer.exe, tako da tudi če nekdo preide zaklepanje zaslona, ne bo mogel da naredi karkoli! nato preveri, ali je polje za pregled 'videti skozi' potrjeno. Če ima, nastavi motnost na 0,5. Če ne, potem prikaže gumb za spremembo ozadja.

2. korak: Ustvarjanje zaslona (2. del)

Tukaj vam bom pokazal, kako sem preklical upravitelja opravil in kako piše na vrhu drugih oken. Če ga želite nastaviti kot zgornji obrazec, ki ste ga pravkar nastavili: me.topmost = trueon load, da bo upravitelj opravil neuporaben, sem uporabil to kodiranje:

Private Sub Form2_LostFocus (pošiljatelj ByVal kot objekt, ByVal e kot System. EventArgs) obravnava Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Končaj SubWitch z drugo besedo pravi: ko izgubite osredotočenost, skrijete upravitelja opravil. ampak tudi zato, ker je to najvišja oblika, kot da upravitelj opravil ni bil nikoli zagnan. Potem, ko vnesete pravo geslo v … to opravilo ubije upravitelja opravil. Uporabil sem tudi: Zaščiteno preglasi funkcijo ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) Kot Boolean Select Case (keyData) Case Keys. Control Vrni True Case Keys. Alt Or Keys. F4 Vrni True End Izberite Return MyBase. ProcessDialogKey (keyData) Konec funkcije Funkcijawitch naredi alt F4 neuporabno!.. in poskuša storiti enako s kontrolno tipko, vendar to ni delovalo.. vendar sem jo pustil vklopljena za vsak slučaj, če bi se v drugih sistemih.

3. korak: Zaklepanje zaslona

Upam, da vam je bilo to navodilo v pomoč pri vseh vaših projektih VB. NET. Če ne razumete dela tega ali potrebujete pomoč pri enem od svojih projektov, pustite komentar ali mi pišite. morebitne težave in prosim ocenite =] Screen lock.exe je pokvarjen, če ga želite prenesti.. samo se prepričajte, da je shranjen kot.exe, da shranite z desno tipko miške in kliknite.. shrani cilj kot ali enakovreden, nato pa shrani kot exe.