《禪隱者、電腦程式設計、零和壹發生事件、三》

    右按滑鼠右下角那個視窗圖標，按執行（R）鏈，輸入 〔 regedit.exe 〕，按圖索驥找出如下地址，隱藏妳要收藏的那隻硬碟機。
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDrives"=dword:00000000
dword:00000000     'All Harddisks Show
Bin                                                   Disk    Dec       Hex
0001                                                   A =  1
0010                                                B =  2
0100                                                C =  4
1000                                                D =  8
0001 0000                                           E =  16               10
0010 0000                                           F =  32                20 
0100 0000                                           G =  64               40
1000 0000                                           H =  128             80
0001 0000 0000                             I =   256             100
0010 0000 0000                                     J =   512             200
0100 0000 0000                                     K =  1024           400
1000 0000 0000                                     L =   2048           800
0001 0000 0000 0000                            M =  4096           1000
0010 0000 0000 0000                            N =  8192            2000
0100 0000 0000 0000                            O =  16384          4000
1000 0000 0000 0000                        P =  32768          8000
0001 0000 0000 0000 0000                   Q =  65536         10000
0010 0000 0000 0000 0000                   R =  131072        20000
0100 0000 0000 0000 0000                   S =   262144       40000
1000 0000 0000 0000 0000                   T =   524288       80000
0001 0000 0000 0000 0000 0000           U =  1048576     100000
0010 0000 0000 0000 0000 0000           V =  2097152     200000
0100 0000 0000 0000 0000 0000           W =  4194304    400000
1000 0000 0000 0000 0000 0000           X =   8388608    800000
0001 0000 0000 0000 0000 0000 0000   Y =  16777216  1000000
0010 0000 0000 0000 0000 0000 0000   Z =  33554432   2000000

網際網路介紹：
How-to: Hide drive letters from Windows Explorer - "NoDrives"
https://ss64.com/nt/syntax-nodrives.html

用 Visual Basic 2019 建立如下工具。

Imports Microsoft.Win32
Public Class Form1
    Dim Val As Integer
    Dim str As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        str = Me.TextBox1.Text
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", True)
        regKey.SetValue("NoDrives", 0)
        regKey.Close()
        MsgBox("Created NoDrives Hide")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim str As String = TextBox1.Text
        Select_Disk(str)
        'MsgBox("Created Hide The Disk " & str & " =  " & Val)
        'Exit Sub
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", True)
        regKey.SetValue("NoDrives", Val)
        regKey.Close()
        MsgBox("Created Hide The Disk " & str & " =  " & Val)
    End Sub

    Function Select_Disk(str As String)
        str = TextBox1.Text
        Select Case str
            Case "A", "a"
                Val = 1
            Case "B", "b"
                Val = 2
            Case "C", "c"
                Val = 4
            Case "D", "d"
                Val = 8
            Case "E", "e"
                Val = 16
            Case "F", "f"
                Val = 32
            Case "G", "g"
                Val = 64
            Case "H", "h"
                Val = 128
            Case "I", "i"
                Val = 256
            Case "J", "j"
                Val = 512
            Case "K", "k"
                Val = 1024
            Case "L", "l"
                Val = 2048
            Case "M", "m"
                Val = 4096
            Case "N", "n"
                Val = 8192
            Case "O", "o"
                Val = 16384
            Case "P", "p"
                Val = 32768
            Case "Q", "q"
                Val = 65536
            Case "R", "r"
                Val = 131072
            Case "S", "s"
                Val = 262144
            Case "T", "t"
                Val = 524288
            Case "U", "u"
                Val = 1048576
            Case "V", "v"
                Val = 2097152
            Case "W", "w"
                Val = 4194304
            Case "X", "x"
                Val = 8388608
            Case "Y", "y"
                Val = 16777216
            Case "Z", "z"
                Val = 33554432
        End Select
        Return Val
    End Function
End Class

以下網際網路為下載近執行檔範例：
https://drive.google.com/file/d/1xv5iipUgJUJCPuhdUfjxPPnFP4danlff/view?usp=sharing

請撥冗光臨-快樂和尚_香港《快樂和尚_香港、【忍】、【算盡則死】》
http://blog.xuite.net/cheerful_monk.1950hk/5/302604924
‎2015‎年‎01‎月‎30‎日    下午 06:08:39

If you are patient in one moment of anger, you will escape a hundred days of sorrow.
忍一時風平浪靜，退一步海闊天空 / 忍一時之氣，免百日之憂。
各位觀眾，好戲還在後頭。
創作日期：‎星期二 ‎2022年‎六月‎7日    下午 09:35:56