قفل الشاشة (VB.NET): 3 خطوات

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:42

سأوضح لك كيف صنعت قفل الشاشة الخاص بي.. لذا ربما يمكنك صنع قفل الشاشة الخاص بك. أو يمكنك فقط استخدام قفل الشاشة الخاص بي ؛) كما ترى في جميع أنحاء الإنترنت: "قفل الشاشة!".. وتقوم بتنزيله وتثبيته ويقفل شاشة جهاز الكمبيوتر الخاص بك حتى لا يتمكن أحد من الوصول إلى جهاز الكمبيوتر الخاص بك أثناء عدم وجودك. (يقوم قفل Windows بنفس الشيء إلا إذا لم يكن لديك كلمة مرور.) هذا البرنامج الذي قمت بإنشائه يستخدم VB NET لقفل الشاشة ، وسأوضح لك كيفية ذلك في الخطوات القليلة التالية ، يمكنك تنزيل قفل الشاشة أدناه.

الخطوة 1: عمل الشاشة (الجزء الأول)

سأعرض لك هنا الجزء الأول من قفل الشاشة.. أول صورة هي النافذة التي تظهر عند تشغيل قفل الشاشة الخاص بي. يمكنك تعيين كلمة المرور.. لقد صنعتها لذا عليك ضبط في كل مرة حتى لا تنساها أبدًا. كذلك فإن برنامجي هو ملف واحد فقط ، ولديك أيضًا خيار رؤيته من خلال.. هذا فقط حتى ترى شاشة القفل قليلاً من خلالها. حتى تتمكن من رؤية صورة سطح المكتب الخاصة بك قد تلاشت ، والآن إليك كيف فعلت ذلك: لكلمة المرور:

TextBox1_TextChanged (المرسل ByVal كـ System. Object ، ByVal e As System. EventArgs) يعالج TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text ثم خافت العملية كـ System. Diagnostics. Process = لا شيء Dim 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 Sub ما يفعله هذا هو التحقق مما إذا كان النص في textbox1 يساوي النص الذي قمت بتعيينه في النافذة الأولى. ثم إذا كان يقوم بذلك ، فإن المهمة تقتل مدير المهام إذا كان يعمل ، ويعيد تشغيل explorer.exe.هنا نرى من خلال بت: Private Sub Form2_Load (المرسل ByVal As System. Object ، ByVal e As System. EventArgs) يعالج MyBase. Load Dim عملية باسم System. Diagnostics. Process = لا شيء باهت psi كعملية جديدة ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" العملية = System. Diagnostics. Process. Start (psi) إذا كان Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 زر آخر 1. Show () End If End Sub هذه القطعة من النص البرمجي ستعمل على قتل explorer.exe لذا حتى إذا تجاوز شخص ما قفل الشاشة الخاص بي فلن يتمكن من ذلك لفعل أي شيء! ثم يتحقق لمعرفة ما إذا تم تحديد مربع "الرؤية من خلال". إذا كان يحتوي على تعيين الشفافية إلى 0.5 ، وإلا فسيتم عرض زر تغيير الخلفية.

الخطوة 2: عمل الشاشة (الجزء الثاني)

سأوضح لك هنا كيف قمت بإلغاء مدير المهام وكيف يقول ذلك أعلى النوافذ الأخرى. لتعيينه على أنه النموذج العلوي الذي قمت بتعيينه للتو: me.topmost = trueon load لجعله مدير المهام عديم الفائدة لقد استخدمت هذا الترميز:

Form2_LostFocus (المرسل ByVal As Object ، ByVal e As System. EventArgs) يعالج Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe" ، vbHide) تقول End SubWitch في كلمة أخرى: عندما تفقد التركيز ، قم بإخفاء مدير المهام. ولكن أيضًا لأنه الشكل الأعلى الذي يفقده مثل مدير المهام لم يتم تشغيله أبدًا. من ذلك عندما تضع كلمة المرور الصحيحة في … تقتل المهمة مدير المهام. أنا أيضًا استخدم: Protected Overrides Function ProcessDialogKey (ByVal keyData باسم System. Windows. Forms. Keys) كمفاتيح حالة اختيار منطقية (keyData) مفاتيح حالة. تحكم إرجاع مفاتيح حالة حقيقية. ALT أو مفاتيح. F4 إرجاع True End حدد إرجاع MyBase. Process.. ويحاول أن يفعل الشيء نفسه مع مفتاح التحكم ، لكن ذلك لم ينجح.. لكنني تركته في حالة تشغيله في حالة وجوده على أنظمة أخرى.

الخطوة 3: قفل الشاشة

أتمنى أن تكون قد وجدت هذه التعليمات مفيدة لجميع مشاريع VB. NET الخاصة بك. إذا كنت لا تفهم جزءًا من هذا أو كنت بحاجة إلى مساعدة في أحد مشاريعك ، فيرجى ترك تعليق أو الاتصال بي. أي مشاكل ويرجى معدل =] إن Screen lock.exe يعد ضربة إذا كنت تريد التنزيل.. فقط تأكد من حفظه كملف. exe للحفظ انقر بزر الماوس الأيمن وانقر.. احفظ الهدف باسمك أو ما يعادله ثم احفظه بتنسيق exe.