স্ক্রিন লক (VB.NET): 3 টি ধাপ

2024 লেখক: John Day | [email protected]. সর্বশেষ পরিবর্তিত: 2024-01-30 08:04

আমি আপনাকে দেখাতে যাচ্ছি কিভাবে আমি আমার নিজের স্ক্রিন লক তৈরি করেছি.. তাই হয়তো আপনি আপনার নিজের তৈরি করতে পারেন অথবা আপনি শুধু আমার ব্যবহার করতে পারেন;) আপনি ইন্টারনেটের চারপাশে দেখতে পাবেন: 'স্ক্রিন লক!'.. এবং আপনি ডাউনলোড এবং ইন্সটল করেন এবং এটি আপনার পিসি স্ক্রিন লক করে দেয় যাতে কেউ আপনার পিসি অ্যাক্সেস করতে না পারে যখন আপনি সেখানে থাকেন না। (উইন্ডোজ লক একই কাজ করে যদি না আপনার পাসওয়ার্ড না থাকে।) আমি যে প্রোগ্রামটি তৈরি করেছি তা VB ব্যবহার করে. NET পরের কয়েক ধাপে লক করতে আমি আপনাকে দেখাব কিভাবে আপনি নিচে আমার স্ক্রিন লক ডাউনলোড করতে পারেন।

ধাপ 1: পর্দা তৈরি করা (অংশ 1)

এখানে আমি আপনাকে স্ক্রিন লকের প্রথম অংশটি দেখাতে যাচ্ছি.. প্রথম ছবিটি হল উইন্ডোটি যখন আপনি আমার স্ক্রিন লক চালান তখন এটি পাসওয়ার্ড সেট করতে পারে.. আমি এটি তৈরি করেছি তাই আপনাকে সেট করতে হবে এটি প্রতিবার যাতে আপনি এটি কখনই ভুলতে না পারেন। এছাড়াও আমার প্রোগ্রামটি মাত্র 1 টি ফাইল।আপনার কাছে এটি দেখার বিকল্পটিও আছে। তাই আপনি আপনার ডেস্কটপ ছবি বিবর্ণ দেখতে পারেন এখন আমি কিভাবে এটা করেছি: পাসওয়ার্ডের জন্য:

প্রাইভেট সাব টেক্সটবক্স 1_ টেক্সট চেঞ্জড (বাইভাল প্রেরক সিস্টেম হিসাবে UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () শেষ যদি শেষ হয় তবে যা শেষ হয় তা পরীক্ষা করে দেখা যায় যে টেক্সটবক্স 1 এর পাঠ্যটি প্রথম উইন্ডোতে সেট করা পাঠ্যের সমান কিনা। তারপর যদি এটি কাজ করে তবে এটি টাস্ক ম্যানেজারকে হত্যা করে যদি এটি চলমান থাকে, এবং explorer.exe পুনরায় চালু করে। সিস্টেম হিসাবে প্রক্রিয়া। (psi) যদি Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Else Button1. Show () End if End Sub এই স্ক্রিপ্টের টুকরা Explorer.exe কে কাজ করবে তাই কেউ আমার স্ক্রিন লক পেরিয়ে গেলেও তারা পারবে না কিছু করার জন্য! যদি এটি থাকে তবে এটি 0.5 তে অস্বচ্ছতা সেট করে। যদি না হয় তবে এটি পরিবর্তনের পটভূমি বোতামটি দেখায়।

ধাপ 2: পর্দা তৈরি করা (অংশ 2)

এখানে আমি আপনাকে দেখাব কিভাবে আমি এটিকে টাস্ক ম্যানেজার বাতিল করে দিয়েছি এবং কিভাবে এটি অন্য উইন্ডোজের উপরে বলে। এটিকে আপনি ঠিক সেট করা শীর্ষ ফর্ম হিসাবে সেট করুন::

প্রাইভেট সাব ফর্ম 2_LostFocus (ByVal প্রেরক অবজেক্ট হিসাবে, ByVal e as System. EventArgs) আমাকে পরিচালনা করে। LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) অন্য কথায় শেষ সাবউইচ বলে: যখন ফোকাস হারিয়ে যায়, টাস্ক ম্যানেজারকে লুকিয়ে রাখুন।কিন্তু এটি টপ ম্যানেজারের মতো এটিও সর্বোচ্চ ফর্ম। keyData as System. Windows. Forms. Keys) বুলিয়ান সিলেক্ট কেস (keyData) কেস কীস হিসাবে কন্ট্রোল করুন রিটার্ন ট্রু কেস কী। অল্ট বা কীস। F4 রিটার্ন ট্রু এন্ড সিলেক্ট রিটার্ন মাইবেস। প্রসেসডিয়ালককে (কীডাটা) এন্ড ফাংশনউইচটি এফ F4 অকেজো করে তোলে!.. এবং এটি কন্ট্রোল কী দিয়ে একই কাজ করার চেষ্টা করে, কিন্তু সেটা কাজ করেনি..

ধাপ 3: স্ক্রিন লক

আমি আশা করি আপনি আপনার সমস্ত VB. NET প্রকল্পের জন্য এই নির্দেশযোগ্য সহায়ক পেয়েছেন। যেকোন সমস্যা এবং রেট করুন =] যদি আপনি ডাউনলোড করতে চান তাহলে স্ক্রিন lock.exe ঝাঁকুনি.. শুধু নিশ্চিত করুন যে এটি একটি.exeto হিসাবে সংরক্ষণ করা আছে ডান ক্লিক করুন এবং ক্লিক করুন.. লক্ষ্য হিসাবে বা আপনার সমতুল্য সংরক্ষণ করুন তারপর exe হিসাবে সংরক্ষণ করুন।