VBScript Drive Lock: 5 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:24

Жаңарту: Бұл бағдарлама енді құлыпталған дискілерді жасыру мүмкіндігіне ие

Қолданушының компьютерін құлыптайтын экран құлпын жасағаннан кейін мен дискіні құлыптайтын құлыптауды жасауды шештім.

Біз бәріміз кейде пайдаланушыларды дискіден (әсіресе USB -дискіден) сақтағымыз келеді. Бұл бағдарлама рұқсат етілмеген пайдаланушылардың оған кіруіне жол бермеу үшін дискіні құлыптайды.

Менің экран құлпынан айырмашылығы, бұл сценарий өте күрделі. Негізінен, егер мен бағдарламаға кәсіби әсер беру үшін көптеген «егер» дегенді қостым.

Бұл бағдарлама VBScript -те жасалған. Келесі бірнеше қадамдарда мен оны қалай жасағанымды көрсетемін.

1 -қадам: Менің бағдарламам…

Сіз менің Drive Lock бағдарламасын төменде жүктей аласыз:

Міне, LINK шикі VBScript файлы. Соңында 'DriveLock.vbs' немесе.vbs -те аяқталғанша қалаған нәрсенің біреуін жою қажет болады.

2 -қадам: Дискіні құлыптау (1 -бөлім)

Бұл жерде мен сізге дискіні құлыптаудың бірінші бөлігін көрсетемін … Бірінші сурет - бұл бағдарламаны бірінші рет іске қосқанда пайда болатын сурет.

Мен осында жасадым, осында сізде үш нұсқа бар: дискіні құлыптау, дискіні құлыптан босату немесе шығу.

Енді мен мұны қалай жасадым:

DisplayPrompt () intSplash = MsgBox функциясы («Сіз не істегіңіз келеді?» & VbCrLf & vbCrLf _ & «[Дискіні құлыптау үшін ИӘ түймесін басыңыз]» & vbCrLf _ & «[Дискілердің құлпын ашу үшін ЖОҚ түймесін басыңыз] «, 35, cTitleBarMsg) Егер intSplash = 2 болса, онда DisplaySplashScreen () ElseIf intSplash = 7 Содан кейін қатені жалғастыру Келесі objWshShl. RegDelete» HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrite. RegHashLshKrlHRHKHLHLK « / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives «Егер Err. Number 0 болса, MsgBox» Дискілер қазірдің өзінде құлыптан босатылған. «, 16, cTitleBarMsg DisplayPrompt () End on Gato 0 objWshShl. Run қатесі болса» Taskkill /f /im explorer.exe «, 0 WScript. Sleep 300 objWshShl. Run» cmd /c explorer.exe «, 0 MsgBox» Дискінің құлпы ашылды! «, 64, cTitleBarMsg DisplayPrompt () End End Function

Егер сіз дискіні құлыптан босату үшін ЖОҚ түймесін бассаңыз, ол дискіні құлыптайтын/жасыратын параметрлерді қамтитын тізбе кілттерін жояды, сонымен қатар дисктің құлпы ашылғанын тексереді. Содан кейін ол explorer.exe файлын қайта бастайды, осылайша өзгерістер бірден күшіне енеді.

Егер сіз бас тарту түймесін бассаңыз, ол экранды көрсетеді, содан кейін шығады.

Егер сіз ИӘ түймесін бассаңыз, ол келесі мәзірге өтеді. Мен келесі қадамда түсіндіремін.

3 -қадам: Дискіні құлыптау (2 -бөлім)

Келесіде мен сіз құлыптағыңыз келетін сиқырды таңдаған мәзірді көрсетемін (1 -сурет).

ColDrives = objFSO. Drives орнатыңыз

ColDrives ішіндегі әрбір objDrive үшін strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Келесі strDrives = LCase (Ауыстыру (strDriveList, «», «», 1, -1)) colDrives = objFSO. Drives strDriveList = «» орнатыңыз. colDrives ішіндегі objDrive strDriveList = strDriveList & objDrive. DriveLetter & «: \» & Space (5) Келесі

InputMenu ()

Sub InputMenu strChoice = InputBox («Құлыптағыңыз келетін дискінің әрпін енгізіңіз.» & _ «Немесе барлық дискілерді құлыптау үшін БАРЛЫҒЫН теріңіз.» & _ Vbcrlf & vbcrlf & «Қол жетімді дискілер» & Space (3) & _ «:» & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Кодтың бірінші биті барлық қол жетімді дискілердің тізімін жасайды. Келесі бөлім - сіз құлыптағыңыз келетін дискінің әрпін енгізген кезде кіріс жәшігі.

Егер сіз жарамды дискідегі әріптен басқа ештеңе теруге тырыссаңыз, бағдарлама одан бас тартады. Міне, мен мұны қалай жасадым:

Егер IsEmpty (strChoice) болса

DisplaySplashScreen () ElseIf strChoice = «» Содан кейін MsgBox «Бұл бос қалдырмаңыз.», 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = «all» Содан кейін ештеңе жасамаңыз ElseIf Len (strChoice) 1 Содан кейін сіз MsgBox «енгізуіңіз керек. ТЕК әріп. «, 16, cTitleBarMsg InputMenu () Басқасы InStr болмаса (1, strDrives, LCase (strChoice), 1) 0 Содан кейін MsgBox» Жарамсыз таңдау, қайталап көріңіз. «, 16, cTitleBarMsg InputMenu () Аяқталса

Алғашқы екі жолда пайдаланушы бас тарту түймесін басқанын және бағдарлама жасағанын тексереді.

Келесі үш жол пайдаланушының енгізу аймағын бос қалдырғанын тексереді.

Қалған код өте түсініксіз, бірақ бұл пайдаланушының жарамды дискіні енгізгеніне сенімді.

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 / Policies / Explorer / NoViewOnDrive», intDriveNumber, «REG_DWORD»

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

5 -қадам: Drive Lock

Сізге бұл нұсқаулық пайдалы болды деп үміттенемін. Егер сіз оның бір бөлігін түсінбесеңіз, түсініктеме жазыңыз немесе маған жазыңыз.

Және маған кез келген мәселелер бойынша кері байланыс беріңіз және баға беріңіз. Мен бұған көп уақыт жұмсадым.

Егер сіз шикі vbs файлын жүктегіңіз келсе, оның.vbs файл кеңейтімімен сақталғанына көз жеткізіңіз. Тағы бір жағымды нәрсе - бұл портативті, сондықтан оны флэш -дискіден өшіруге болады және ештеңені орнатудың қажеті жоқ.