נעילת מסך (VB.NET): 3 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

אני הולך להראות לך איך יצרתי נעילת מסך משלי.. אז אולי תוכל ליצור משלך. או שאתה יכול פשוט להשתמש בשלי;) אתה רואה ברחבי האינטרנט: 'נעילת מסך!'.. ואתה מוריד ומתקין וזה נועל את מסך המחשב האישי שלך כך שאף אחד לא יוכל לגשת למחשב שלך בזמן שאתה לא שם. (נעילת Windows עושה את אותו הדבר אלא אם אין לך סיסמה.) תוכנית זו שיצרתי משתמשת ב- VB. NET כדי לנעול את המסך. בשלבים הבאים אראה לך כיצד. תוכל להוריד את נעילת המסך שלי למטה.

שלב 1: הכנת המסך (חלק 1)

הנה אני הולך להראות לך את החלק הראשון של נעילת המסך.. התמונה הראשונה היא החלון שמופיע כאשר אתה מפעיל את נעילת המסך שלי. על זה אתה יכול להגדיר את הסיסמה.. עשיתי את זה אז אתה צריך להגדיר כל פעם כדי שלעולם לא תוכל לשכוח זאת. כמו כן אז התוכנית שלי היא רק קובץ אחד. יש לך גם את האפשרות לראות אותו כדי לראות דרך.. זה רק כדי שמסך הנעילה יהיה מעט שקוף. אז אתה יכול לראות את התמונה שלך שולחן העבודה דהויה. עכשיו הנה איך עשיתי את זה: עבור הסיסמה:

Sub Sub Private TextBox1_TextChanged (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל ב- TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text ואז עמום תהליך כ- System. Diagnostics. Process = Nothing Dimi PSSt. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) מעטפת ("explorer.exe") Form1. Close () סיום אם סיים משנה מה הדבר עושה הוא לבדוק אם הטקסט בתיבת הטקסט 1 שווה לטקסט שהגדרת בחלון הראשון. ואז אם היא עושה את זה המשימה הורגת את מנהל המשימות אם הוא היה פועל, ומפעיל מחדש את explorer.exe. כאן נמצא סיבית הביקורת: Private Sub Form2_Load (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל ב- MyBase. Load Dim process As System. Diagnostics. Process = Nothing psi כחדש ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) אם Form1. CheckBox1. Checked = True ואז Me. Opacity = 0.5 אחר כפתור 1. הצג () סוף אם קצה תת חלק זה של התסריט יבצע הוראה של explorer.exe כך שגם אם מישהו יעבור את נעילת המסך שלי הוא לא יוכל לעשות כל דבר! ואז הוא בודק אם התיבה 'ראה דרך' מסומנת. אם יש לו הוא מגדיר את האטימות ל- 0.5. אם לא אז הוא מציג את לחצן הרקע לשנות.

שלב 2: הכנת המסך (חלק 2)

כאן אראה לך כיצד ביטלתי את ביטול מנהל המשימות וכיצד הוא כתוב על גבי חלונות אחרים. כדי להגדיר אותו כטופס העליון שהגדרת זה עתה: me.topmost = trueon load כדי להפוך אותו למנהל המשימות חסר תועלת השתמשתי בקידוד זה:

תת פרטי Form2_LostFocus (שולח ByVal כאובייקט, ByVal e As System. EventArgs) מטפל ב- Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) סיום SubWitch במילה אחרת אומר: כאשר איבד את המיקוד, הסתר את מנהל המשימות. אך גם מכיוון שהוא הצורה העליונה ביותר שהוא משתחרר כמו שמנהל המשימות מעולם לא הופעל. מאשר כשאתה שם את הסיסמה הנכונה ב … המשימה הורגת את מנהל המשימות. השתמשתי גם בו: Protected Overrides Function ProcessDialogKey (ByVal keyData כ- System. Windows. Forms. Keys) כמקרה לבולאני (KeyData) Case Keys. Control Return Key Keys. Alt Or Keys. F4 Return True Select בחר Return MyBase. ProcessDialogKey (keyData) פונקציית המכשיר הופך את F4 לחסר תועלת!.. והוא מנסה לעשות את אותו הדבר עם מפתח הבקרה, אבל זה לא עבד.. אבל השארתי אותו למקרה שמדובר במערכות אחרות.

שלב 3: נעילת מסך

אני מקווה שמצאת את ההנחיה מועילה לכל הפרויקטים שלך ב- VB. NET. אם אינך מבין חלק מזה או שאתה זקוק לעזרה באחד מהפרויקטים שלך אנא השאר הערה או שלח לי הודעה. אנא תן לי להאכיל כל בעיה ובבקשה דרג =] המסך lock.exe הוא מכה אם אתה רוצה להוריד.. רק וודא שהוא נשמר כקובץ ימני של exeto שמור ולחץ.. שמור יעד כמו או המקבילה שלך ואז שמור כ exe.