स्क्रीन लॉक (VB.NET): 3 चरण

2024 लेखक: John Day | [email protected]. अंतिम बार संशोधित: 2024-01-30 09:24

मैं आपको दिखाने जा रहा हूं कि मैंने अपना स्क्रीन लॉक कैसे बनाया.. तो हो सकता है कि आप अपना खुद का बना सकें। या आप बस मेरा इस्तेमाल कर सकते हैं;) आप इंटरनेट के चारों ओर देखते हैं: 'स्क्रीन लॉक!'.. और आप डाउनलोड और इंस्टॉल करते हैं और यह आपको पीसी स्क्रीन लॉक कर देता है ताकि कोई भी आपके पीसी तक नहीं पहुंच सके, जबकि आप वहां नहीं हैं। (विंडोज लॉक वही काम करता है जब तक आपके पास पासवर्ड न हो।) यह प्रोग्राम जिसे मैंने बनाया है वीबी का उपयोग करता है. NET स्क्रीन लॉक करने के लिए। अगले कुछ चरणों में मैं आपको दिखाऊंगा कि कैसे। आप नीचे मेरा स्क्रीन लॉक डाउनलोड कर सकते हैं।

चरण 1: स्क्रीन बनाना (भाग 1)

यहां मैं आपको स्क्रीन लॉक का पहला भाग दिखाने जा रहा हूं..पहली तस्वीर वह विंडो है जो मेरे स्क्रीन लॉक को चलाने पर सामने आती है। इस पर आप पासवर्ड सेट कर सकते हैं.. मैंने इसे बनाया है इसलिए आपको सेट करना होगा यह हर बार ताकि आप इसे कभी न भूल सकें। इसके अलावा मेरा प्रोग्राम केवल 1 फ़ाइल है। आपके पास इसे देखने के लिए विकल्प भी है.. यह लॉक स्क्रीन को थोड़ा सा देखने के लिए है। तो आप देख सकते हैं कि आपका डेस्कटॉप चित्र फीका पड़ गया है। अब यह है कि मैंने यह कैसे किया: पासवर्ड के लिए:

निजी उप टेक्स्टबॉक्स 1_ टेक्स्ट चेंज किया गया (सिस्टम के रूप में बायवैल प्रेषक। ऑब्जेक्ट, बायवैल ई के रूप में सिस्टम। इवेंटआर्ग) टेक्स्टबॉक्स 1 को संभालता है। टेक्स्ट चेंज किया गया है अगर टेक्स्टबॉक्स 1. टेक्स्ट = फॉर्म 1. टेक्स्टबॉक्स 1. टेक्स्ट फिर सिस्टम के रूप में मंद प्रक्रिया। डायग्नोस्टिक्स। प्रक्रिया = नई प्रक्रिया स्टार्टइन्फो साई के रूप में कुछ भी मंद नहीं है। UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM taskmgr.exe" प्रक्रिया = System. Diagnostics. Process. Start(psi) Shell("explorer.exe") Form1. Close() End If End Sub क्या करता है यह यह देखने के लिए जांच करता है कि टेक्स्टबॉक्स 1 में टेक्स्ट उस टेक्स्ट के बराबर है जिसे आपने पहली विंडो पर सेट किया है। फिर यदि यह कार्य करता है तो कार्य प्रबंधक को मार देता है यदि यह चल रहा था, और explorer.exe को पुनरारंभ करता है। यहां बिट के माध्यम से देखें: निजी उप फॉर्म 2_लोड (सिस्टम के रूप में बायवैल प्रेषक। ऑब्जेक्ट, बायवैल ई सिस्टम के रूप में। EventArgs) MyBase को संभालता है। लोड मंद सिस्टम के रूप में प्रक्रिया। डायग्नोस्टिक्स। प्रक्रिया = नई प्रक्रिया के रूप में कुछ भी मंद नहीं है (साई) अगर फॉर्म १.चेकबॉक्स १.चेक किया गया = सही है तो मैं। अस्पष्टता = ०.५ और बटन १। दिखाएँ () अंत अगर सब समाप्त हो जाए तो स्क्रिप्ट का यह टुकड़ा एक्सप्लोरर को मार देगा। कुछ भी करने के लिए! फिर यह देखने के लिए जांचता है कि 'देखें' बॉक्स चेक किया गया है या नहीं। यदि यह है तो यह ०.५ के लिए अस्पष्टता सेट करता है। यदि नहीं तो यह परिवर्तन पृष्ठभूमि बटन दिखाता है।

चरण 2: स्क्रीन बनाना (भाग 2)

यहां मैं आपको दिखाऊंगा कि कैसे मैंने इसे टास्क मैनेजर को रद्द कर दिया और यह अन्य विंडो के शीर्ष पर कैसे कहता है। इसे आपके द्वारा अभी सेट किए गए शीर्ष फॉर्म के रूप में सेट करने के लिए: me.topmost = trueon load इसे कार्य प्रबंधक को बेकार बनाने के लिए मैंने इस कोडिंग का उपयोग किया:

Private Sub Form2_LostFocus(ByVal sender as Object, ByVal e As System. EventArgs) मुझे हैंडल करता है। लॉस्टफोकस डिम k जैसे लॉन्ग k = शेल ("c: / windows / system32 / taskmgr.exe", vbHide) एंड सबविच दूसरे शब्दों में कहता है: जब फोकस खो जाता है, तो कार्य प्रबंधक छुपाएं। लेकिन यह भी क्योंकि यह सबसे ऊपरी रूप है जैसे कार्य प्रबंधक कभी नहीं चलाया गया था। जब आप सही पासवर्ड डालते हैं … keyData As System. Windows. Forms. Keys) बूलियन सिलेक्ट केस (कीडाटा) केस कीज के रूप में। कंट्रोल रिटर्न ट्रू केस कीज। ऑल्ट या कीज। F4 रिटर्न ट्रू एंड सेलेक्ट रिटर्न MyBase. ProcessDialogKey(keyData) End Functionwitch alt F4 को बेकार बना देता है!.. और यह नियंत्रण कुंजी के साथ ऐसा करने की कोशिश करता है, लेकिन यह काम नहीं करता है.. लेकिन मैंने इसे अन्य प्रणालियों के मामले में छोड़ दिया।

चरण 3: स्क्रीन लॉक

मुझे आशा है कि आपने अपने सभी VB. NET प्रोजेक्ट्स के लिए यह निर्देश योग्य पाया है। यदि आप इसका एक हिस्सा नहीं समझते हैं या आपको अपनी किसी प्रोजेक्ट में मदद की ज़रूरत है तो कृपया एक टिप्पणी छोड़ दें या मुझे दोपहर दें। और कृपया मुझे फ़ीडबैक दें किसी भी समस्या और कृपया दर =] यदि आप डाउनलोड करना चाहते हैं तो स्क्रीन लॉक.एक्सई झटका है.. बस सुनिश्चित करें कि इसे.exe के रूप में सहेजा गया है राइट क्लिक को बचाने के लिए और क्लिक करें.. लक्ष्य को या अपने समकक्ष के रूप में सहेजें, फिर exe के रूप में सहेजें।