قفل صفحه (VB.NET): 3 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:59

من قصد دارم به شما نشان دهم که چگونه قفل صفحه خود را ایجاد کردم.. بنابراین شاید شما خودتان خودتان را بسازید. یا فقط می توانید از من استفاده کنید ؛) شما در سراسر اینترنت می بینید: "قفل صفحه!".. و شما بارگیری و نصب می کنید و صفحه کامپیوتر شما قفل می شود تا هیچ کس نتواند به رایانه شما دسترسی پیدا کند. (قفل ویندوز همین کار را می کند مگر اینکه رمز عبور داشته باشید.). NET برای قفل کردن صفحه. در چند مرحله بعدی به شما نشان خواهم داد. می توانید قفل صفحه من را در زیر بارگیری کنید.

مرحله 1: ساختن صفحه (قسمت 1)

در اینجا من قصد دارم اولین قسمت قفل صفحه را به شما نشان دهم.. اولین عکس پنجره ای است که هنگام اجرای قفل صفحه نمایش داده می شود. در این صورت می توانید رمز عبور را تنظیم کنید.. من آن را تنظیم کردم بنابراین شما باید تنظیم کنید هربار آن را می توانید فراموش کنید همچنین برنامه من فقط 1 فایل است. شما همچنین می توانید آن را برای مشاهده کامل مشاهده کنید. این فقط به این دلیل است که صفحه قفل کمی قابل مشاهده است. بنابراین می توانید عکس دسکتاپ خود را محو کنید. در اینجا نحوه انجام این کار را مشاهده می کنید: برای رمز عبور:

Private Sub TextBox1_TextChanged (فرستنده ByVal As System. Object، ByVal e As System. EventArgs) TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text سپس فرآیند را بعنوان System. Diagnostics. Process = هیچ ضعیف psi به عنوان New ProcessStart UseShellExecute = 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 این کار را می کند تا ببیند آیا متن موجود در textbox1 با متنی که در پنجره اول تنظیم کرده اید برابر است یا خیر. سپس در صورت انجام وظیفه ، مدیر وظیفه را از بین می برد ، و explorer.exe را مجدداً راه اندازی می کند. اینجا see see bit: Private Sub Form2_Load (فرستنده ByVal به عنوان System. Object، ByVal e As System. EventArgs) MyBase. Load Dim را کنترل می کند. process As System. Diagnostics. Process = هیچ چیز Dim psi As New ProcessStartInfo psi. UseShellExecute = 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 این قطعه از اسکریپت وظیفه kill explorer.exe را دارد ، بنابراین حتی اگر کسی از قفل صفحه من عبور کند ، قادر نخواهد بود برای انجام هر کاری! سپس بررسی می کند که آیا کادر 'see through' علامت زده شده است یا خیر. اگر دارای شفافیت 0.5 باشد ، در غیر این صورت دکمه تغییر پس زمینه را نشان می دهد.

مرحله 2: ساختن صفحه (قسمت دوم)

در اینجا من به شما نشان خواهم داد که چگونه باعث لغو مدیر وظیفه شده و چگونه روی پنجره های دیگر می گوید. برای تنظیم آن به عنوان فرم برتر که تازه تنظیم کرده اید::

Private Sub Form2_LostFocus (فرستنده ByVal As Object ، ByVal e As System. EventArgs) من را مدیریت می کند. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe"، vbHide) End SubWitch به عبارت دیگر می گوید: هنگامی که تمرکز از دست می رود ، مدیر وظیفه را پنهان کنید. اما همچنین به دلیل این که بالاترین شکل است ، مانند این که مدیر وظیفه هرگز اجرا نمی شود. تا زمانی که رمز عبور مناسب را وارد کنید … این وظیفه مدیر وظیفه را از بین می برد. من همچنین از: Protected Overrides Function ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) به صورت Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt یا Keys. F4 Return True End را انتخاب کنید Return MyBase. ProcessDialogKey (keyData) End Functionwitch باعث می شود alt F4 بی فایده باشد!.. و سعی می کند همین کار را با کلید کنترل انجام دهد ، اما این کار نمی کند.. اما من آن را برای هر سیستم دیگری روشن می کنم.

مرحله 3: قفل صفحه

امیدوارم این آموزش برای همه پروژه های VB. NET شما مفید واقع شده باشد. اگر بخشی از این موضوع را درک نکرده اید یا در یکی از پروژه های خود به کمک نیاز دارید لطفاً نظر دهید یا برای من پیام بگذارید. و لطفاً به من بازخورد دهید اگر می خواهید بارگیری کنید ، صفحه قفل شده است. لطفاً مطمئن شوید که به صورت.exet ذخیره شده است. کلیک راست کرده و کلیک کنید. ذخیره هدف به عنوان معادل شما و ذخیره به عنوان exe