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

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:38

Pokazat ću vam kako sam napravio vlastito zaključavanje zaslona.. pa možda možete sami napraviti.ili biste mogli koristiti samo moje;) Vidite svuda po internetu: 'Zaključavanje zaslona!'.. i preuzmete i instalirate te vam zaključava zaslon računala tako da nitko ne može pristupiti vašem računalu dok vas nema. (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 zaslona možete preuzeti u nastavku.

Korak 1: Izrada zaslona (dio 1)

Ovdje ću vam pokazati prvi dio zaključavanja zaslona.. prva slika je prozor koji se pojavi kada pokrenete zaključavanje zaslona. Na ovom mjestu možete postaviti lozinku.. ja sam to napravio pa morate postaviti to svaki put kako to nikada ne biste mogli zaboraviti. Također, tako da moj program ima samo 1 datoteku. Također imate mogućnost da ga vidite kako bi se prozreo.. ovo je samo tako da se zaključani zaslon malo vidi. Dakle, možete vidjeti da je slika na vašoj radnoj površini izblijedjela. Sada evo kako sam to učinio: za lozinku:

Private Sub TextBox1_TextChanged (ByVal pošiljatelj 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 s onim što 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, te ponovno pokreće explorer.exe.to je prozor za pregled: 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 Dim psi kao novi 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 učiniti bilo što! onda provjerava je li potvrđen okvir 'vidi kroz'. Ako ima, postavlja neprozirnost na 0,5. Ako nije, tada prikazuje gumb za promjenu pozadine.

Korak 2: Izrada zaslona (dio 2)

Ovdje ću vam pokazati kako sam uspio poništiti upravitelja zadataka i kako to piše na vrhu drugih prozora.da biste ga postavili kao gornji obrazac koji ste upravo postavili: me.topmost = trueon loadda bi upravitelja zadataka učinio beskorisnim upotrijebio sam ovo kodiranje:

Private Sub Form2_LostFocus (ByVal pošiljatelj kao objekt, ByVal e 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: kad izgubite fokus, sakrijte upravitelja zadataka. ali i zato što je to najviši oblik koji izgleda kao da se upravitelj zadataka nikada nije pokrenuo. nego kad postavite pravu lozinku u … taj zadatak ubija upravitelja zadataka. Također sam koristio: Zaštićena nadjačava funkciju ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) Kao Boolean Select Case (keyData) Case Keys. Control Vraćanje True Case Keys. Alt Or 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 kontrolnom tipkom, ali to nije uspjelo.. ali ostavio sam je uključen za svaki slučaj na drugim sustavima.

Korak 3: Zaključavanje zaslona

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 jednog od vaših projekata, ostavite komentar ili mi pošaljite poruku natrag. bilo kakvih problema i molimo vas da ocijenite =] Zaključavanje zaslona.exe je otkazano ako želite preuzeti.. samo provjerite je li spremljeno kao.exeza spremanje desnom tipkom miša i kliknite.. spremite cilj kao ili ekvivalent, a zatim spremite kao exe.