VBScript Drive Lock: 5 քայլ

2025 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2025-01-23 14:48

Թարմացում. Այս ծրագիրը այժմ հնարավորություն ունի թաքցնել նշված կողպված կրիչները:

Էկրանի կողպումը կատարելուց հետո, որը կողպում է օգտվողների համակարգիչը, ես որոշեցի մարտահրավեր ընդունել ՝ սկավառակն արգելափակող սկավառակի կողպեք պատրաստելու համար:

Մենք բոլորս երբեմն ցանկանում ենք օգտվողներին հեռու պահել սկավառակից (հատկապես USB կրիչից): Այսպիսով, այս ծրագիրը կողպելու է սկավառակը `կանխելու համար չարտոնված օգտվողների մուտքը այն:

Ի տարբերություն իմ էկրանի կողպման, այս սցենարը բավականին բարդ է: Հիմնականում այն պատճառով, որ ես ավելացրել եմ շատ, եթե և ապա պարզապես ծրագրին մասնագիտական տրամադրություն հաղորդելու համար:

Այս ծրագիրը պատրաստվել է VBScript- ում: Հաջորդ մի քանի քայլերում ես ձեզ ցույց կտամ, թե ինչպես եմ այն պատրաստել:

Քայլ 1: Իմ ծրագիրը…

Ստորև կարող եք ներբեռնել իմ Drive Lock- ը ՝

Ահա VBScript հումքի ֆայլը LINK: Վերջում ստիպված կլինեք հեռացնել «ներից» մեկը, որպեսզի այն լինի «DriveLock.vbs» կամ այն, ինչ ցանկանում եք, քանի դեռ այն ավարտվում է.vbs- ով:

Քայլ 2. Drive Drive- ի կողպեքի պատրաստում (մաս 1)

Այստեղ ես ձեզ ցույց կտամ սկավառակի կողպեքի առաջին մասը … Առաջին նկարն այն է, ինչ հայտնվում է, երբ առաջին անգամ գործարկում եք ծրագիրը:

Ես այնպես արեցի, որ այստեղ ունենաք երեք տարբերակ ՝ արգելափակել սկավառակը, բացել սկավառակը (ներ) ը կամ դուրս գալ:

Այժմ ահա թե ինչպես դա արեցի.

Ֆունկցիա DisplayPrompt () intSplash = MsgBox («Ի՞նչ կցանկանայիք անել» & vbCrLf & vbCrLf _ & "[Սեղմեք ԱՅՈ` սկավառակն արգելափակելու համար] "& vbCrLf _ &" [Կտտացրեք ՈՉ ՝ սկավառակը (ներ) ը բացելու համար] ", 35, cTitleBarMsg) If intSplash = 2 Ապա DisplaySplashScreen () ElseIf intSplash = 7 Ապա Սխալի վերսկսման հաջորդ objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrive / " / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "If Err. Number 0 Այնուհետեւ MsgBox" Drive- երն արդեն բացված են: ", 16, cTitleBarMsg DisplayPrompt () End If Error Erot Goto 0 objWshShl. Run" Taskkill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" Ապակողպված Drive- ը հաջողակ էր ", 64, cTitleBarMsg DisplayPrompt () End If End Function

Եթե սեղմում եք ՈՉ ՝ սկավառակը (ներ) ը բացելու համար, այն ջնջում է ռեեստրի բանալիները, որոնք պարունակում են կարգավորումները, որոնք արգելափակում/թաքցնում են սկավառակը, այն նաև ստուգում է ՝ արդյոք սկավառակն արդեն ապակողպված է: Այնուհետև այն վերագործարկում է explorer.exe- ն, որպեսզի փոփոխություններն անմիջապես ուժի մեջ մտնեն:

Եթե սեղմում եք չեղարկել, այն ցուցադրում է շաղ տալու էկրանը, այնուհետև դուրս է գալիս:

Վերջապես, եթե սեղմեք ԱՅՈ, ապա այն անցնում է հաջորդ ընտրացանկին: Ինչը ես կբացատրեմ հաջորդ քայլին:

Քայլ 3. Drive Drive- ի կողպեքի պատրաստում (մաս 2)

Հաջորդը ես ձեզ ցույց կտամ ընտրացանկը, եթե ընտրում եք կախարդ վարիչը, որը ցանկանում եք կողպել (նկար 1):

Սահմանել colDrives = objFSO. Drives

ColDrives- ում յուրաքանչյուր objDrive- ի համար strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Հաջորդ strDrives = LCase (Փոխարինել (strDriveList, "", "", 1, -1)) Սահմանել colDrives = objFSO. Drives strDriveList = " objDrive in colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Space (5) Հաջորդ

InputMenu ()

Sub InputMenu strChoice = InputBox ("Մուտքագրեք սկավառակի տառը, որը ցանկանում եք կողպել:" & _ "Կամ մուտքագրեք ALL- ը` բոլոր կրիչները կողպելու համար: "& _ vbcrlf & vbcrlf &" Available drives "& Space (3) & _": " & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Կոդի առաջին բիթը ստեղծում է բոլոր առկա կրիչների ցանկը: Հաջորդ մասը մուտքի տուփն է, եթե մուտքագրեք սկավառակի այն տառը, որը կցանկանայիք կողպել:

Եթե փորձեք մուտքագրել որևէ այլ բան, քան վավեր սկավառակի տառը, և ծրագիրը կհրաժարվի դրանից: Ահա թե ինչպես ես դա արեցի.

Եթե IsEmpty (strChoice) Ապա

DisplaySplashScreen () ElseIf strChoice = "" Ապա MsgBox "Մի թողեք սա դատարկ:", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "բոլորը" Հետո 'այլևս ոչինչ չանելԵթե Len (strChoice) 1 Այնուհետև պետք է մուտքագրեք տառը ՄԻԱՅՆ »:

Առաջին երկու տողերը ստուգում են ՝ արդյոք օգտվողը սեղմե՞լ է չեղարկման կոճակը, և արդյոք նրանք դուրս են եկել ծրագրի ելքերից:

Հաջորդ երեք տողերը ստուգում են ՝ արդյոք օգտագործողը դատարկ է թողել մուտքի տարածքը:

Մնացած ծածկագիրը բավականին շփոթեցնող է, բայց դա հիմնականում պարզապես համոզվելն է, որ օգտագործողը մուտքագրել է վավեր սկավառակ:

Քայլ 4. Drive- ի կողպեքի պատրաստում (մաս 3)

Ինչ -ինչ պատճառներով գրանցամատյանը չի կարող միայնակ կարդալ սկավառակի տառը, ուստի այն պետք է դրվի համապատասխան ամբողջ թվին: Ահա թե ինչ է անում ստորև բերված այս ծածկագիրը: Այս մասին լրացուցիչ տեղեկությունների համար կտտացրեք այստեղ:

ElseIf strChoice = "a" Հետո

intDriveNumber = 1 Այլապես Եթե strChoice = "b" Հետո intDriveNumber = 2 ElseIf strChoice = "c" Հետո intDriveNumber = 4

Երբ ամբողջ թիվը կազմաձևվի, սցենարը այժմ կարող է գրել գրանցամատյանում ՝ օգտագործելով այս ծածկագիրը.

Մեկ այլ նշում այն է, որ այս ծրագիրը HKCU- ի փոխարեն գրում է HKLM- ին: HKLM- ն ազդում է բոլոր օգտվողների վրա ՝ ընթացիկ մուտք գործած օգտվողի փոխարեն, որպեսզի կողպումն ավելի արդյունավետ լինի:

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

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

Քայլ 5: Drive Lock

Հուսով եմ, որ օգտակար գտաք այս ուսանելի ծրագիրը: եթե դուք չեք հասկանում այս հատվածը, խնդրում ենք տեղադրել մեկնաբանություն կամ գրել ինձ:

Եվ խնդրում եմ ինձ հետադարձ կապ տալ ցանկացած խնդրի վերաբերյալ և խնդրում եմ գնահատել: Ես շատ ժամանակ եմ ծախսել դրա վրա:

Եթե ցանկանում եք ներբեռնել չմշակված vbs ֆայլը, պարզապես համոզվեք, որ այն պահպանված է.vbs ֆայլի ընդլայնմամբ: Մեկ այլ հաճելի բան այն է, որ այն դյուրակիր է, որպեսզի կարողանաք այն անջատել ֆլեշ կրիչից, և ձեզ ոչինչ պետք չէ տեղադրել: