VBScript Sürücü Kilidi: 5 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:44

Yeniləmə: Bu proqram artıq müəyyən edilmiş kilidli diskləri gizlətmə qabiliyyətinə malikdir

İstifadəçilərin kompüterini kilidləyən ekran kilidimi hazırladıqdan sonra, sürücünü kilidləyən bir sürücü kilidi hazırlamaq problemini həll etməyə qərar verdim.

Hamımız bəzən istifadəçiləri bir sürücüdən (xüsusən də usb sürücüsündən) uzaq tutmaq istəyirik. Beləliklə, bu proqram, icazəsiz istifadəçilərin ona daxil olmasını qarşısını almaq üçün sürücünü kilidləyəcək.

Ekran kilidimdən fərqli olaraq bu skript olduqca mürəkkəbdir. Əsasən, proqrama peşəkar bir fikir vermək üçün çoxlu if if və sonra əlavə etdiyim üçün.

Bu proqram VBScript -də hazırlanmışdır. Növbəti bir neçə addımda sizə bunu necə etdiyimi göstərəcəyəm.

Addım 1: Proqramım…

Sürücü Kilidimi aşağıda yükləyə bilərsiniz:

İşdə xam VBScript faylı LINK. "DriveLock.vbs" və ya.vbs ilə bitdiyi müddətcə istədiyiniz nə olduğu üçün sonunda "s" lərdən birini çıxarmalı olacaqsınız.

Addım 2: Sürücü Kilidinin Hazırlanması (1 -ci hissə)

Burada sizə sürücü kilidinin ilk hissəsini göstərəcəyəm … İlk şəkil proqramı ilk işə salanda ortaya çıxan şeydir.

Mən bunu etdim ki, burada bir sürücünü kilidləmək, sürücünün kilidini açmaq və ya çıxmaq üçün üç seçiminiz var.

İndi bunu necə etdiyim budur:

DisplayPrompt () intSplash = MsgBox ("Nə etmək istərdiniz?" & VbCrLf & vbCrLf _ & "[Sürücünü kilidləmək üçün YES düyməsini basın]" & vbCrLf _ & "[Sürücünün kilidini açmaq üçün YOX düyməsini basın] ", 35, cTitleBarMsg) intSplash = 2 Sonra DisplaySplashScreen () ElseIf intSplash = 7 Sonra Səhvdə Növbəti ObjWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrive. RegRegRegRegDrive "objWLHL / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "Əgər Err. Number 0 Olarsa MsgBox" Sürücülər artıq kiliddən çıxarılır. ", 16, cTitleBarMsg DisplayPrompt () Xətada Gitirsə 0 ObjWshShl. Run" Taskkill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" Sürücünün kilidi açıldı! ", 64, cTitleBarMsg DisplayPrompt () End Function

Sürücü (lər) in kilidini açmaq üçün YOX düyməsini basarsanız, sürücünün kilidini açıb açmadığını yoxlamaq üçün sürücünü kilidləyən/gizlədən parametrləri olan qeyd defteri açarlarını silir. Sonra dəyişikliklər dərhal qüvvəyə minməsi üçün explorer.exe yenidən başlayır.

Ləğv et düyməsini basarsanız, açılış ekranı görünür və sonra çıxır.

Nəhayət YES düyməsini basarsanız, növbəti menyuya keçir. Növbəti addımda izah edəcəyəm.

Addım 3: Sürücü Kilidinin Hazırlanması (2 -ci hissə)

Sonra kilidləmək istədiyiniz ifritə sürücüsünü seçdiyiniz menyunu sizə göstərəcəyəm (şəkil 1).

ColDrives = objFSO. Drives seçin

ColDrives -dəki hər bir objDrive üçün strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Next strDrives = LCase (Replace (strDriveList, "", "", 1, -1)) Set colDrives = objFSO. Drives strDriveList = "" colDrives -da objDrive strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Space (5) Sonrakı

InputMenu ()

Sub InputMenu strChoice = InputBox ("Kilidləmək istədiyiniz sürücünün hərfini daxil edin." & _ "Ya da bütün sürücüləri kilidləmək üçün ALL yazın." & _ Vbcrlf & vbcrlf & "Available drives" & Space (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

İlk kod biti bütün mövcud sürücülərin siyahısını yaradır. Növbəti hissə, kilidləmək istədiyiniz sürücünün hərfini daxil etdiyiniz zaman giriş qutusudur.

Etibarlı bir sürücü məktubundan başqa bir şey yazmağa çalışsanız və proqram bundan imtina edər. Budur bunu necə etdim:

Əgər IsEmpty (strChoice) Sonra

DisplaySplashScreen () ElseIf strChoice = "" O zaman MsgBox "Bunu boş buraxmayın.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Sonra ElseIf Len (strChoice) 1 Sonra MsgBox "daxil olmalısınız. YALNIZ hərf. ", 16, cTitleBarMsg InputMenu () Başqa bir halda InStr deyilsə (1, strDrives, LCase (strChoice), 1) 0 Sonra MsgBox" Yanlış seçimdir, yenidən cəhd edin. ", 16, cTitleBarMsg InputMenu () Bitərsə

İlk iki sətir, istifadəçinin ləğv düyməsini vurub vurmadığını və proqramdan çıxdığını yoxlayır.

Növbəti üç sətir istifadəçinin giriş sahəsini boş buraxıb -boşaltmadığını yoxlayır.

Kodun qalan hissəsi olduqca çaşqındır, amma əsasən istifadəçinin etibarlı bir sürücü yazdığından əmin olmaqdır.

Addım 4: Sürücü Kilidinin Hazırlanması (3 -cü hissə)

Nədənsə qeyd dəftəri sürücü məktubunu tək oxuya bilmir, ona görə də müvafiq tamsayıya daxil edilməlidir. Aşağıdakı kod bunu edir. Bu barədə daha çox məlumat üçün buraya vurun.

ElseIf strChoice = "a" Sonra

intDriveNumber = 1 ElseIf strChoice = "b" Sonra intDriveNumber = 2 ElseIf strChoice = "c" Sonra intDriveNumber = 4

Tam ədəd konfiqurasiya edildikdən sonra skript indi bu kodu istifadə edərək reyestrə yaza bilər:

Başqa bir qeyd, bu proqramın HKCU yerinə HKLM -ə yazmasıdır. HKLM, kilidin daha təsirli olması üçün yalnız daxil olan istifadəçi yerinə bütün istifadəçiləri təsir edir.

objWshShl. RegWrite "HKLM / Proqram / Microsoft / Windows / CurrentVersion / Siyasətlər / Explorer / NoViewOnDrive", intDriveNumber, "REG_DWORD"

objWshShl. RegWrite "HKLM / Proqram / Microsoft / Windows / CurrentVersion / Siyasətlər / Explorer / NoDrives", intDriveNumber, "REG_DWORD"

Addım 5: Sürücü Kilidi

Ümid edirəm bu təlimatı faydalı tapdınız. Bunun bir hissəsini başa düşmürsənsə, şərh yaz və ya mənə yaz.

Və hər hansı bir problemlə bağlı mənə rəy bildirin və zəhmət olmasa qiymət verin. Buna çox vaxt sərf etdim.

Xam vbs faylını yükləmək istəyirsinizsə, bir.vbs fayl uzantısı ilə saxlandığından əmin olun. Bunun başqa bir gözəl tərəfi, portativ olmasıdır ki, onu bir flash sürücüdən işlədə bilərsiniz və heç bir şey yükləməyinizə ehtiyac yoxdur.