VBScript ড্রাইভ লক: 5 টি ধাপ

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

আপডেট: এই প্রোগ্রামটিতে এখন নির্দিষ্ট লকড ড্রাইভ লুকানোর ক্ষমতা রয়েছে।

আমার স্ক্রিন লক বানানোর পরে যা ব্যবহারকারীদের কম্পিউটার লক করে আমি একটি ড্রাইভ লক তৈরির চ্যালেঞ্জ নেওয়ার সিদ্ধান্ত নিয়েছি যা একটি ড্রাইভ লক করে।

আমরা সবাই কখনও কখনও ব্যবহারকারীদের একটি ড্রাইভ (বিশেষত একটি ইউএসবি ড্রাইভ) থেকে দূরে রাখতে চাই। সুতরাং এই প্রোগ্রামটি অননুমোদিত ব্যবহারকারীদের এতে অ্যাক্সেস পেতে বাধা দিতে ড্রাইভটি লক করবে।

আমার স্ক্রিন লকের মত এই স্ক্রিপ্টটি বেশ জটিল। প্রধানত কারণ আমি অনেক যোগ করেছি যদি এবং তারপর প্রোগ্রাম একটি পেশাদারী অনুভূতি দিতে।

এই প্রোগ্রামটি VBScript এ তৈরি করা হয়েছিল পরবর্তী কয়েক ধাপে আমি আপনাকে দেখাব কিভাবে আমি এটি তৈরি করেছি।

ধাপ 1: আমার প্রোগ্রাম …

আপনি নীচে আমার ড্রাইভ লক ডাউনলোড করতে পারেন:

এখানে কাঁচা VBScript ফাইল LINK। আপনাকে শেষ পর্যন্ত 'গুলি' এর একটিকে সরিয়ে ফেলতে হবে তাই এটি 'DriveLock.vbs' বা যতক্ষণ আপনি এটি চান ততক্ষণ পর্যন্ত এটি.vbs এ শেষ হবে।

ধাপ 2: ড্রাইভ লক তৈরি করা (পর্ব 1)

এখানে আমি আপনাকে ড্রাইভ লকের প্রথম অংশ দেখাবো … প্রথম ছবিটি হল যখন আপনি প্রথম প্রোগ্রামটি চালান।

আমি এটি তৈরি করেছি যাতে আপনার এখানে তিনটি বিকল্প থাকে, একটি ড্রাইভ লক করা, ড্রাইভ (গুলি) আনলক করা বা প্রস্থান করা।

এখন আমি এটা কিভাবে করেছি:

ফাংশন DisplayPrompt () intSplash = MsgBox ("আপনি কি করতে চান?" ", 35, cTitleBarMsg) যদি intSplash = 2 তারপর DisplaySplashScreen () ElseIf intSplash = 7 তারপর ত্রুটি পুনরায় শুরু করুন। / Microsoft / Windows / CurrentVersion icies Policy / Explorer / NoDrives "যদি Err. Number 0 তাহলে MsgBox" ড্রাইভ ইতিমধ্যেই আনলক করা আছে। ", 16, cTitleBarMsg DisplayPrompt () End if On Error Goto 0 objWshShl. Run" Taskkill /f /explore.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" আনলক করা ড্রাইভ সফল ছিল! ", 64, cTitleBarMsg DisplayPrompt () শেষ হলে ফাংশন শেষ করুন

যদি আপনি ড্রাইভ (গুলি) আনলক করতে NO ক্লিক করেন, এটি রেজিস্ট্রি কীগুলি মুছে দেয় যার মধ্যে সেটিংস রয়েছে যা ড্রাইভটি লক/লুকিয়ে রাখে এটি ড্রাইভটি ইতিমধ্যেই আনলক আছে কিনা তা পরীক্ষা করে। তারপর এটি explorer.exe পুনরায় চালু করে যাতে পরিবর্তনগুলি অবিলম্বে কার্যকর হয়।

যদি আপনি বাতিল ক্লিক করেন, এটি স্প্ল্যাশ স্ক্রিন প্রদর্শন করে এবং তারপর প্রস্থান করে।

অবশেষে যদি আপনি হ্যাঁ ক্লিক করেন তবে এটি পরবর্তী মেনুতে চলে যাবে। যা আমি পরবর্তী ধাপে ব্যাখ্যা করব।

ধাপ 3: ড্রাইভ লক তৈরি করা (অংশ 2)

পরবর্তীতে আমি আপনাকে মেনু দেখাব যদি আপনি জাদুকরী ড্রাইভ চয়ন করেন যা আপনি লক করতে চান (ছবি 1)।

ColDrives = objFSO. Drives সেট করুন

ColDrives এর প্রতিটি objDrive এর জন্য strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Next strDrives = LCase (প্রতিস্থাপন (strDriveList, "", "", 1, -1)) সেট colDrives = objFSO. Drives " colDrives- এ objDrive

ইনপুট মেনু ()

সাব ইনপুট মেনু strChoice = ইনপুটবক্স ("যে ড্রাইভটি আপনি লক করতে চান তার চিঠি লিখুন।" & _ "অথবা সমস্ত ড্রাইভ লক করার জন্য ALL টাইপ করুন।" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

কোডের প্রথম বিট সমস্ত উপলব্ধ ড্রাইভের একটি তালিকা তৈরি করে। পরবর্তী অংশটি হল ইনপুটবক্স যদি আপনি ড্রাইভের অক্ষরটি প্রবেশ করান যা আপনি লক করতে চান।

আপনি যদি বৈধ ড্রাইভ লেটার ছাড়া অন্য কিছু টাইপ করার চেষ্টা করেন এবং প্রোগ্রামটি তা প্রত্যাখ্যান করবে। এখানে আমি এটা কিভাবে করেছি:

যদি IsEmpty (strChoice) তাহলে

DisplaySplashScreen () ElseIf strChoice = "" তাহলে MsgBox "এই ফাঁকা রাখবেন না।", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "সব" তাহলে 'আর কিছুই করবেন না কেবলমাত্র চিঠি।

প্রথম দুটি লাইন চেক করে দেখুন যে ব্যবহারকারী বাতিল বোতামটি টিপছে কিনা, এবং যদি তারা প্রোগ্রামটি প্রস্থান করে।

পরবর্তী তিনটি লাইন ব্যবহারকারী ইনপুট এলাকা ফাঁকা রেখেছে কিনা তা পরীক্ষা করে।

বাকী কোডটি বেশ বিভ্রান্তিকর, তবে এটি মূলত নিশ্চিত করছে যে ব্যবহারকারী একটি বৈধ ড্রাইভে টাইপ করেছেন।

ধাপ 4: ড্রাইভ লক তৈরি করা (পার্ট 3)

কিছু কারণে রেজিস্ট্রি ড্রাইভ লেটার একা পড়তে পারে না, তাই এটি অবশ্যই একটি পূর্ণসংখ্যার মধ্যে রাখতে হবে। নীচের এই কোডটি কি করছে। এই বিষয়ে আরও তথ্যের জন্য এখানে ক্লিক করুন।

ElseIf strChoice = "a" তারপর

intDriveNumber = 1 ElseIf strChoice = "b" তারপর intDriveNumber = 2 ElseIf strChoice = "c" তারপর intDriveNumber = 4

একবার পূর্ণসংখ্যা কনফিগার হয়ে গেলে স্ক্রিপ্ট এখন এই কোডটি ব্যবহার করে রেজিস্ট্রিতে লিখতে পারে:

আরেকটি নোট, এই প্রোগ্রামটি HKCU এর পরিবর্তে HKLM- কে লিখছে। HKLM সমস্ত ব্যবহারকারীকে প্রভাবিত করে শুধু ব্যবহারকারীর বর্তমান লগ ইন করার পরিবর্তে যাতে লকটি আরও কার্যকর হয়।

objWshShl. RegWrite "HKLM / Software / Microsoft / Windows / CurrentVersion / Policy / Explorer / NoViewOnDrive", intDriveNumber, "REG_DWORD"

objWshShl. RegWrite "HKLM / Software / Microsoft / Windows / CurrentVersion / Policy / Explorer / NoDrives", intDriveNumber, "REG_DWORD"

ধাপ 5: ড্রাইভ লক

আমি আশা করি আপনি এই নির্দেশযোগ্য সহায়ক পেয়েছেন। আপনি যদি এর একটি অংশ বুঝতে না পারেন, দয়া করে একটি মন্তব্য পোস্ট করুন অথবা আমাকে pm করুন।

এবং দয়া করে আমাকে কোন সমস্যা সম্পর্কে প্রতিক্রিয়া দিন এবং রেট দয়া করে। আমি এই কাজে অনেক সময় ব্যয় করেছি।

আপনি যদি কাঁচা vbs ফাইলটি ডাউনলোড করতে চান, তবে নিশ্চিত করুন যে এটি একটি.vbs ফাইল এক্সটেনশন দিয়ে সংরক্ষিত আছে। এটি সম্পর্কে আরেকটি চমৎকার জিনিস হল যে এটি পোর্টেবল তাই আপনি এটি একটি ফ্ল্যাশ ড্রাইভ থেকে চালাতে পারেন এবং আপনাকে কিছু ইনস্টল করার দরকার নেই।