VBScript хөтчийн түгжээ: 5 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:02

Шинэчлэлт: Энэ програм нь одоо заасан түгжигдсэн драйвуудыг нуух чадвартай болсон

Хэрэглэгчдийн компьютерийг түгждэг дэлгэцийн түгжээг хийснийхээ дараа би хөтөчийг түгждэг хөтчийн түгжээг хийхээр шийдсэн.

Бид бүгд заримдаа хэрэглэгчдийг хөтөчөөс (ялангуяа USB драйв) хол байлгахыг хүсдэг. Тиймээс энэ програм нь зөвшөөрөлгүй хэрэглэгчид хандах эрхгүй болохын тулд хөтчийг түгжих болно.

Миний дэлгэцийн түгжээнээс ялгаатай нь энэ скрипт нь нэлээд төвөгтэй юм. Гол нь би программын мэргэжлийн мэдрэмжийг өгөхийн тулд маш олон if -ийг нэмж оруулсан болохоор тэр.

Энэ програмыг VBScript дээр хийсэн бөгөөд дараагийн хэдэн алхам дээр би үүнийг хэрхэн хийснээ харуулах болно.

Алхам 1: Миний програм…

Та миний Drive Lock -ийг доороос татаж авах боломжтой.

Энд түүхий VBScript файл LINK байна. Та төгсгөлд байгаа 's' тэмдгүүдийн нэгийг арилгах хэрэгтэй болно, ингэснээр энэ нь 'DriveLock.vbs' эсвэл.vbs дээр дууссан л бол таны хүссэн зүйл байх болно.

Алхам 2: Драйвын түгжээг хийх (1 -р хэсэг)

Энд би танд хөтчийн түгжээний эхний хэсгийг үзүүлэх болно … Эхний зураг нь програмыг анх ажиллуулахад гарч ирэх зүйл юм.

Би үүнийг хийсэн болохоор танд драйв түгжих, хөтөчийн түгжээг тайлах эсвэл гарах гэсэн гурван сонголт байна.

Одоо би үүнийг хэрхэн хийснийг энд харуулав.

DisplayPrompt () intSplash = MsgBox ("Та юу хийхийг хүсч байна вэ?" & VbCrLf & vbCrLf _ & "[Дискийг түгжихийн тулд YES дээр дарна уу" "& vbCrLf _ &" [Драйвын түгжээг тайлахын тулд NO дээр дарна уу]) ", 35, cTitleBarMsg) Хэрэв intSplash = 2 Дараа нь DisplaySplashScreen () ElseIf intSplash = 7 Дараа нь алдааг үргэлжлүүлээд дараа нь objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrive. / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "Хэрэв Err. Number 0 байвал MsgBox" Драйвуудыг аль хэдийн түгжээгүй болгосон байна. ", 16, cTitleBarMsg DisplayPrompt () End бол алдаа гарсан тохиолдолд 0 objWshShl. Run" Taskkill /f /im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Run" cmd /c explorer.exe ", 0 MsgBox" Drive unlocked амжилттай боллоо! ", 64, cTitleBarMsg DisplayPrompt () End End Function

Хэрэв та "NO" товчлуурыг дарж дискний түгжээг тайлвал дискийг түгжих/нуух тохиргоог агуулсан бүртгэлийн түлхүүрүүдийг устгаж, хөтчийн түгжээг тайлсан эсэхийг шалгадаг. Дараа нь explorer.exe -ийг дахин эхлүүлэх бөгөөд ингэснээр өөрчлөлтүүд тэр даруй хүчин төгөлдөр болно.

Хэрэв та цуцлах товчлуурыг дарвал энэ нь дэлгэцийг харуулах бөгөөд дараа нь гарах болно.

Эцэст нь хэрэв та YES дээр дарвал дараагийн цэс рүү орно. Үүнийг би дараагийн алхамд тайлбарлах болно.

Алхам 3: Драйвын түгжээг хийх (2 -р хэсэг)

Дараа нь би та түгжихийг хүсч буй шулам хөтчийг сонгосон цэсийг үзүүлэх болно (Зураг 1).

ColDrives = objFSO. Drives -ийг тохируулна уу

ColDrives дахь objDrive бүрийн хувьд strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Дараагийн strDrives = LCase (Replace (strDriveList, "", "", 1, -1)) colDrives = objFSO. Drives strDriveList = "" тохируулна уу. colDrives дахь objDrive 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) = "all" Дараа нь юу ч хийхгүй бол ElseIf Len (strChoice) 1 Дараа нь MsgBox "Та оруулах ёстой. ЗӨВХӨН гэсэн үсэг"

Эхний хоёр мөр нь хэрэглэгч цуцлах товчлуурыг дарсан эсэхийг шалгаж, програмыг хийсэн эсэхийг шалгадаг.

Дараагийн гурван мөр нь хэрэглэгч оролтын хэсгийг хоосон орхисон эсэхийг шалгадаг.

Кодын үлдсэн хэсэг нь нэлээд төөрөгдөлд оруулдаг боловч энэ нь хэрэглэгчийн зөв хөтөч оруулсан эсэхийг баталгаажуулах явдал юм.

Алхам 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 файлын өргөтгөлөөр хадгалсан эсэхийг шалгаарай. Үүний бас нэг сайхан зүйл бол зөөврийн төхөөрөмж бөгөөд үүнийг флаш дискнээс ажиллуулах боломжтой бөгөөд та юу ч суулгах шаардлагагүй болно.