Ekran Kilidi (VB.NET): 3 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

Mən sizə öz ekran kilidimi necə düzəltdiyimi göstərəcəyəm.. bəlkə özünüz edə bilərsiniz. Ya da sadəcə mənimki istifadə edə bilərsiniz;) İnternetin hər tərəfində görürsünüz: 'Ekran Kilidi!'.. və siz yükləyib quraşdırırsınız və kompüterinizin ekranını kilidləyirsiniz ki, orada olmadığınız zaman heç kim kompüterinizə daxil ola bilməz. (Şifrəniz olmadıqca Windows kilidi eyni şeyi edir.) Hazırladığım bu proqram VB istifadə edir Ekranı kilidləmək üçün. NET. Növbəti bir neçə addımda sizə necə göstərəcəyəm. Aşağıdakı Ekran Kilidimi yükləyə bilərsiniz.

Addım 1: Ekranın hazırlanması (1 -ci hissə)

Burada sizə ekran kilidinin ilk hissəsini göstərəcəyəm.. ilk şəkil ekran kilidimi işə saldığınızda görünən pəncərədir. Bunun üzərinə şifrəni təyin edə bilərsiniz.. bunu elə qurdum hər dəfə bunu heç vaxt unuda bilməzsən. Həm də proqramım yalnız 1 file.you da görmək üçün görmək imkanınız var.. bu, kilid ekranının bir az göründüyü üçün belədir. Beləliklə, masaüstünüzdəki şəklin solğun olduğunu görə bilərsiniz. İndi bunu necə etdiyimi burada görürəm: parol üçün:

Şəxsi Alt TextBox1_TextChanged (System. Object olaraq ByVal göndərən, SystemV. EventArgs olaraq ByVal göndərən) TextBox1. Text = Form1. TextBox1. Text Sonra TextBox1. TextChanged Dəstəkləyir. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Bitirsə Sub Subwhat, son mətn qutusundakı mətnin birinci pəncərədə təyin etdiyiniz mətnə bərabər olub olmadığını yoxlayır. Sonra tapşırığı yerinə yetirirsə, işləyərkən tapşırıq menecerini öldürür və explorer.exe faylını yenidən başlatır: bit keçidi var: Şəxsi Alt Form2_Load (ByVal göndərən System. Object olaraq, ByVal e System. EventArgs olaraq) MyBase. Load Dim işləyir. proses kimi System. Diagnostics. Process = Heç bir şey Yeni psi. UseShellExecute = Yeni psi. UseShellExecute = Əsl psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" prosesi = System. Diagnostics. Process. Start (psi) Əgər Form1. CheckBox1. Checked = Doğru O zaman Mən. Opacity = 0.5 Başqa Düymə1. Show () Bitir Əgər Sub SubBu skript parçası explorer.exe faylını öldürəcək, buna görə də kimsə mənim ekran kilidimi aşsa belə edə bilməyəcək. bir şey etmək üçün! sonra 'vasitəsilə görmək' qutusunun yoxlanıldığını yoxlayır. Əgər varsa, qeyri -şəffaflığı 0,5 -ə qoyur. Əks halda, fon dəyişdir düyməsini göstərir.

Addım 2: Ekranın hazırlanması (hissə 2)

Burada sizə tapşırıq menecerini necə ləğv etdiyimi və digər pəncərələrin üstündə necə yazıldığını göstərəcəyəm. Onu təyin etdiyiniz ən yaxşı forma kimi təyin etmək üçün: me.topmost = trueon loadto tapşırıq menecerini yararsız hala salmaq üçün bu kodlamadan istifadə etdim.:

Şəxsi Alt Form2_LostFocus (Obyekt Olaraq Göndərən, ByVal e System. EventArgs) Me. LostFocus Dim k Uzun Q = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Subwitch'i başqa sözlə bitir: Diqqət itirildikdə, tapşırıq menecerini gizləyin. amma eyni zamanda, vəzifə menecerinin heç vaxt işə salınmadığı kimi itirdiyi ən yüksək formadır. Doğru şifrəni daxil etdiyinizdən sonra, tapşırıq tapşırıq menecerini öldürür. keyData As System. Windows. Forms. Keys) Boolean Case kimi (keyData) Case Keys. Control True Case Keys. Alt və ya Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch alt F4 -ü yararsız hala gətirir!.. və idarəetmə düyməsi ilə eyni şeyi etməyə çalışır, amma bu alınmadı.. amma başqa sistemlərdə olduğu halda buraxdım.

Addım 3: Ekran Kilidi

Ümid edirəm bu təlimatı bütün VB. NET layihələriniz üçün faydalı hesab etdiniz. Bunun bir hissəsini anlamırsınızsa və ya layihələrinizdən birində köməyə ehtiyacınız varsa, şərh yazın və ya mənə yazın. hər hansı bir problem və dərəcəsi xahiş edirik =] Yükləmək istəyirsinizsə ekran kilidi.exe zərbədir.. yalnız sağ klikləmək və klikləmək üçün.exet olaraq saxlanıldığından əmin olun.. hədəfi və ya ekvivalentini sonra exe olaraq qeyd edin.