Blocare ecran (VB.NET): 3 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

Vă voi arăta cum mi-am făcut propria blocare a ecranului.. așa că poate vă puteți face propria dvs. sau ați putea să o folosiți pe a mea;) Vedeți peste tot pe internet: „Blocare ecran!”.. și descărcați și instalați și vă blochează ecranul computerului, astfel încât nimeni să nu vă poată accesa computerul în timp ce nu sunteți acolo. (Blocarea Windows face același lucru dacă nu aveți o parolă.) Acest program pe care l-am făcut folosește VB. NET pentru a bloca ecranul. În următorii pași vă voi arăta cum. Puteți descărca blocarea ecranului de mai jos.

Pasul 1: Realizarea ecranului (partea 1)

Aici am să vă arăt prima parte a blocării ecranului.. prima poză este fereastra care apare când rulați blocarea ecranului. Pe aceasta puteți seta parola.. Am făcut-o astfel încât să trebuie să de fiecare dată, astfel încât să nu o puteți uita niciodată. De asemenea, așa că programul meu este doar un fișier. Aveți, de asemenea, opțiunea de a-l vedea pentru a vedea prin.. acest lucru este doar astfel încât ecranul de blocare să fie ușor de văzut. Deci, puteți vedea imaginea de pe desktop a dispărut. Acum iată cum am făcut-o: pentru parolă:

Private Sub TextBox1_TextChanged (expeditor ByVal ca System. Object, ByVal e ca System. EventArgs) Manevrează TextBox1. TextChanged Dacă TextBox1. Text = Form1. TextBox1. Text Apoi Dim proces ca System. Diagnostics. Process = Nimic Dim psi Ca proces nou StartStartInfo 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 Subwhat this does is checks to see if the text in textbox1 is equal to the text that you set on the first window. Apoi, dacă face acest lucru, ucide managerul de activități dacă acesta rulează și repornește explorer.exe. proces Ca System. Diagnostics. Process = Nimic nu psi ca nou ProcessStartInfo psi. UseShellExecute = Adevărat psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" proces = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True Then Me. pentru a face orice! apoi verifică dacă a fost bifată caseta „a vedea prin”. Dacă are, setează opacitatea la 0,5. Dacă nu, atunci afișează butonul de schimbare a fundalului.

Pasul 2: Realizarea ecranului (partea 2)

Aici îți voi arăta cum l-am făcut să anulez managerul de sarcini și cum scrie pe partea de sus a altor windows.pentru a-l seta ca forma de top pe care tocmai l-ai setat: me.topmost = trueon loadpentru a face inutilizarea managerului de sarcini:

Private Sub Form2_LostFocus (ByVal sender as Object, ByVal e As System. EventArgs) Handles Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch cu alte cuvinte spune: când ați pierdut focalizarea, ascundeți task manager.dar, de asemenea, pentru că este cea mai înaltă formă, se pierde ca și cum managerul de activități nu a fost niciodată rulat. keyData Ca System. Windows. Forms. Keys) Ca Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch face alt F4 inutil!.. și încearcă să facă același lucru cu tasta de control, dar asta nu a funcționat.. dar l-am lăsat aprins doar în caz că pe alte sisteme ar funcționa.

Pasul 3: Blocare ecran

Sper că ați găsit acest lucru util pentru toate proiectele dvs. VB. NET.dacă nu înțelegeți o parte din acest lucru sau aveți nevoie de ajutor pentru unul dintre proiectele dvs., vă rugăm să lăsați un comentariu sau să-mi dați feedback. orice probleme și vă rugăm să evaluați =] Ecranul de blocare.exe este activ dacă doriți să descărcați.. asigurați-vă că este salvat ca.exeto pentru a face clic dreapta și faceți clic pe.. salvați ținta ca sau echivalentul dvs. apoi salvați ca exe.