Kunci Pemacu VBScript: 5 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:08

Kemas kini: Program ini kini mempunyai kemampuan untuk menyembunyikan pemacu terkunci yang ditentukan

Setelah membuat kunci skrin saya yang mengunci komputer pengguna, saya memutuskan untuk mengambil cabaran membuat kunci pemacu yang mengunci pemacu.

Kita semua kadang-kadang mahu menjauhkan pengguna dari pemacu (terutamanya pemacu usb). Oleh itu, program ini akan mengunci pemacu untuk mengelakkan pengguna yang tidak dibenarkan mendapatkannya.

Tidak seperti kunci skrin saya skrip ini cukup rumit. Terutama kerana saya menambah banyak jika dan kemudian hanya untuk memberi rasa profesional kepada program.

Program ini dibuat dalam VBScript. Dalam beberapa langkah seterusnya saya akan menunjukkan kepada anda bagaimana saya membuatnya.

Langkah 1: Program Saya …

Anda boleh memuat turun Kunci Pemacu saya di bawah:

Berikut adalah LINK fail VBScript mentah. Anda mesti membuang salah satu 's' di hujungnya sehingga 'DriveLock.vbs' atau apa sahaja yang anda mahukan selagi ia berakhir di.vbs.

Langkah 2: Membuat Kunci Pemacu (bahagian 1)

Di sini saya akan menunjukkan kepada anda bahagian pertama kunci pemacu … Gambar pertama adalah apa yang muncul semasa anda pertama kali menjalankan program ini.

Saya berjaya sehingga anda mempunyai tiga pilihan di sini, untuk mengunci pemacu, untuk membuka kunci pemacu atau keluar.

Sekarang inilah cara saya melakukannya:

Fungsi DisplayPrompt () intSplash = MsgBox ("Apa yang ingin anda lakukan?" & VbCrLf & vbCrLf _ & "[Klik YES untuk mengunci pemacu]" & vbCrLf _ & "[Klik TIDAK untuk membuka kunci pemacu] ", 35, cTitleBarMsg) Jika intSplash = 2 Kemudian DisplaySplashScreen () ElseIf intSplash = 7 Kemudian Sambung Ralat Seterusnya objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoViewOnDrive "objWshShl. / Microsoft / Windows / CurrentVersion / Policies / Explorer / NoDrives "If Err. Number 0 Kemudian MsgBox" Drives sudah dibuka kuncinya. ", 16, cTitleBarMsg DisplayPrompt () Tamat Jika Kesalahan Goto 0 objWshShl. Run" Taskkill / f / im explorer.exe ", 0 WScript. Sleep 300 objWshShl. Jalankan" cmd / c explorer.exe ", 0 MsgBox" Drive dibuka tidak berjaya! ", 64, cTitleBarMsg DisplayPrompt () End if End Function

Sekiranya anda mengklik TIDAK untuk membuka kunci pemacu, ia akan menghapus kunci pendaftaran yang mengandungi tetapan yang mengunci / menyembunyikan pemacu, ia juga memeriksa untuk melihat apakah pemacu sudah dibuka. Kemudian dimulakan semula explorer.exe supaya perubahan itu berlaku serta merta.

Sekiranya anda mengklik batal, ia akan memaparkan skrin percikan dan kemudian keluar.

Akhirnya jika anda klik YA maka ia pergi ke menu seterusnya. Yang akan saya jelaskan pada langkah seterusnya.

Langkah 3: Membuat Kunci Pemacu (bahagian 2)

Seterusnya saya akan menunjukkan kepada anda menu sekiranya anda memilih pemacu penyihir yang ingin anda kunci (gambar 1).

Tetapkan colDrives = objFSO. Drives

Untuk Setiap objDrive dalam colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space (10) StrDrives seterusnya = LCase (Ganti (strDriveList, "", "", 1, -1)) Tetapkan colDrives = objFSO. Drives strDriveList = "" Untuk Masing-masing objDrive dalam colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" & Space (5) Seterusnya

InputMenu ()

Sub InputMenu strChoice = InputBox ("Masukkan huruf pemacu yang ingin dikunci." & _ "Atau ketik SEMUA untuk mengunci semua pemacu." & _ Vbcrlf & vbcrlf & "Pemacu yang ada" & Space (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Bit kod pertama menghasilkan senarai semua pemacu yang ada. Bahagian seterusnya adalah kotak input sekiranya anda memasukkan huruf pemacu yang ingin anda kunci.

Sekiranya anda cuba menaip apa-apa kecuali huruf pemacu yang sah, dan program akan menolaknya. Inilah cara saya melakukannya:

Sekiranya IsEmpty (strChoice) Kemudian

DisplaySplashScreen () ElseIf strChoice = "" Kemudian MsgBox "Jangan biarkan ini kosong.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Then 'Do Not ElseIf Len (strChoice) 1 Kemudian MsgBox "Anda mesti memasukkan huruf HANYA. ", 16, cTitleBarMsg InputMenu () ElseIf Not InStr (1, strDrives, LCase (strChoice), 1) 0 Kemudian MsgBox" Pilihan tidak sah, sila cuba lagi. ", 16, cTitleBarMsg InputMenu () Tamat Jika

Dua baris pertama memeriksa untuk melihat apakah pengguna menekan butang batal, dan jika mereka melakukan program keluar.

Tiga baris seterusnya memeriksa untuk melihat apakah pengguna membiarkan kawasan input kosong.

Selebihnya kodnya agak membingungkan, tetapi pada dasarnya hanya memastikan pengguna menaip pemacu yang sah.

Langkah 4: Membuat Kunci Pemacu (Bahagian 3)

Atas sebab tertentu, pendaftaran tidak dapat membaca huruf pemacu sahaja, jadi mesti dimasukkan ke dalam bilangan bulat yang sesuai. Itulah yang dilakukan oleh kod di bawah ini. Untuk maklumat lebih lanjut mengenai ini, klik di sini.

ElseIf strChoice = "a" Kemudian

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

Setelah bilangan bulat dikonfigurasi, skrip kini boleh menulis ke pendaftaran menggunakan kod ini:

Catatan lain, adalah bahawa program ini menulis kepada HKLM dan bukannya HKCU. HKLM mempengaruhi semua pengguna dan bukan hanya pengguna log masuk semasa supaya kunci lebih berkesan.

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"

Langkah 5: Kunci Pemacu

Saya harap anda mendapat pengajaran yang berguna ini. jika anda tidak memahami bahagian ini, sila hantar komen atau pm saya.

Dan beri saya maklum balas mengenai sebarang masalah dan beri penilaian. Saya menghabiskan banyak masa untuk perkara ini.

Sekiranya anda ingin memuat turun fail vbs mentah, pastikan ia disimpan dengan sambungan fail.vbs. Satu lagi perkara yang menarik, ia adalah mudah alih sehingga anda dapat menjalankannya dari pemacu denyar dan anda tidak perlu memasang apa-apa.