Zaključavanje ekrana (VB.NET): 3 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:10

Pokazat ću vam kako sam napravio svoje zaključavanje ekrana.. pa možda možete sami napraviti.ili biste mogli koristiti samo moje;) Vidite svuda po internetu: 'Zaključavanje ekrana!'.. i preuzmete i instalirate i zaključava vam ekran računara tako da niko ne može pristupiti vašem računaru dok niste tamo. (Windows zaključavanje radi istu stvar ako nemate lozinku.) Ovaj program koji sam napravio koristi VB. NET za zaključavanje ekrana. U sljedećih nekoliko koraka pokazat ću vam kako. Moje zaključavanje ekrana možete preuzeti ispod.

Korak 1: Izrada ekrana (1. dio)

Ovdje ću vam pokazati prvi dio zaključavanja ekrana.. prva slika je prozor koji se pojavi kada pokrenete zaključavanje ekrana. Na ovom mjestu možete postaviti lozinku.. napravio sam ga pa morate postaviti to svaki put da nikada ne biste zaboravili. Takođe, tako da moj program ima samo 1 datoteku. Takođe imate mogućnost da ga vidite kako bi se prozreo.. ovo je samo tako da se zaključani ekran malo vidi. Tako da možete vidjeti sliku svoje radne površine izblijedjelu. Sada evo kako sam to učinio: za lozinku:

Privatni podTextBox1_TextChanged (ByVal pošiljalac kao System. Object, ByVal e As System. EventArgs) Rukuje TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Zatim zatamni kao System. Diagnostics. Process = Ništa Dim psi kao 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 () Završi ako završi Sub Šta radi, provjerava se je li tekst u okviru za tekst1 jednak tekstu koji ste postavili u prvom prozoru. Zatim, ako to učini, zadatak ubija upravitelja zadataka ako je bio pokrenut, i ponovo pokreće explorer.exe. evo bita kroz koji se vidi: Privatni pod Form2_Load (pošiljatelj ByVal kao System. Object, ByVal e kao System. EventArgs) Rukuje MyBase. Load Dim obraditi kao System. Diagnostics. Process = Ništa prigušeno kao novi ProcessStartInfo psi. UseShellExecute = Istinsko psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Ako je Form1. CheckBox1. Checked = Tačno tada Me. Opacity = 0,5 Else Button1. Show () End If End SubOvaj dio skripte će ubiti explorer.exe pa čak i ako neko prođe moje zaključavanje ekrana, neće moći da uradi bilo šta! onda proverava da li je potvrđen okvir „vidi kroz“. Ako ima, postavlja neprozirnost na 0.5. Ako nije, prikazuje gumb za promjenu pozadine.

Korak 2: Izrada ekrana (dio 2)

Ovdje ću vam pokazati kako sam uspio poništiti upravitelja zadataka i kako piše na vrhu drugih prozora.da biste ga postavili kao gornji obrazac koji ste upravo postavili: me.topmost = trueon load kako bi upravitelj zadataka postao beskoristan, koristio sam ovo kodiranje:

Privatni pod Form2_LostFocus (ByVal pošiljalac kao objekt, ByVal i kao System. EventArgs) Rukuje Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Kraj SubWitch drugom riječju kaže: kada izgubite fokus, sakrijte upravitelja zadataka.ali i zato što je to najviši oblik koji izgleda kao da upravitelj zadataka nikada nije pokrenut. Onda kad stavite pravu lozinku u … taj zadatak ubija upravitelja zadataka. Također sam koristio: Zaštićene funkcije Nadjačava funkciju ProcessDialogKey (ByVal keyData Kao System. Windows. Forms. Keys) Kao Boolean Select Case (keyData) Case Keys. Control Vraćanje True Case Keys. Alt ili Keys. F4 Povratak True End Odabir Povratak MyBase. ProcessDialogKey (keyData) Prekidač funkcije Funkcijski prekidač čini alt F4 beskorisnim!.. i pokušava učiniti isto s kontrolnim ključem, ali to nije uspjelo.. ali sam ga ostavio uključenim za svaki slučaj na drugim sistemima.

Korak 3: Zaključavanje ekrana

Nadam se da vam je ovo uputstvo pomoglo u svim vašim projektima VB. NET.ako ne razumijete dio ovoga ili vam je potrebna pomoć oko nekog od vaših projekata, ostavite komentar ili mi pošaljite poruku. bilo kakvih problema i molimo vas da ocijenite =] Zaključavanje ekrana.exe je pokvareno ako želite preuzeti.. samo provjerite je li sačuvano kao.exeza spremanje desnom tipkom miša i kliknite.. spremite cilj kao ili ekvivalent, a zatim spremite kao exe.