如何隐藏我的电脑中的磁盘

原创 2004年07月17日 17:55:00

用过超级兔子的都知道,有一个隐藏磁盘

的功能,选择隐藏的磁盘,确定后,

重新启动,看到磁盘隐藏了

主要是通过操作注册表来实现这个功能的

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

打开注册表

打开HKEY_CURRENT_USER/Software

/Microsoft/Windows/CurrentVersion

/Policies/Explorer分支

在这个分支下,NoDrives键值可以进行设置。

磁盘驱动器一一对应的键值如下:

A:0x00000001,B:0x00000002,

C:0x00000004,D:0x00000008,

E:0x00000010,F:0x00000020.

即按磁盘驱动器的英文字母顺序(A~Z)从十六进制的二倍数递增.将你要隐藏的磁盘驱动器所对应的键值按十六进制相加赋值给”NoDrivers”,如果要隐藏A,C,D,则将0x0000000D赋值给”NoDrives”

 

代码如下:WinXP+VB+SP6

winxp下注销重新登陆即可看到

添加list控件,command控件

Option Explicit

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

 

Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

 

Private Sub Command3_Click()

Dim i As Integer

Dim KeyValue As Long

Dim hCurKey As Long

Dim lRegResult As Long

Dim KeyID As Long

Dim subKey As String

Dim regkey As String

Dim retvalue As Long

 

For i = 0 To List1.ListCount - 1

If List1.Selected(i) Then

    MsgBox List1.List(i)

    KeyValue = KeyValue + List1.ItemData(i)

End If

Next

'如果没有选择,删除NoDrivers键值,取消所有磁盘的隐藏

regkey = "Software/Microsoft/Windows/CurrentVersion/Policies/Explorer"

subKey = "NoDrives"

   

If KeyValue = 0 Then

    lRegResult = RegOpenKey(HKEY_CURRENT_USER, regkey, hCurKey)

    lRegResult = RegDeleteValue(hCurKey, subKey)

    lRegResult = RegCloseKey(hCurKey)

Else

'根据选择的磁盘进行隐藏

    retvalue = RegCreateKey(HKEY_CURRENT_USER, regkey, KeyID)

    subKey = "NoDrives"

    'KeyValue = a1

    retvalue = RegSetValueEx(KeyID, subKey, 0&, 4, KeyValue, 4)

End If

 

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

List1.AddItem "A:"

List1.ItemData(0) = 1

List1.AddItem "B:"

List1.ItemData(1) = 2

List1.AddItem "C:"

List1.ItemData(2) = 4

List1.AddItem "D:"

List1.ItemData(3) = 8

List1.AddItem "E:"

List1.ItemData(4) = 16

List1.AddItem "F:"

List1.ItemData(5) = 32

List1.AddItem "G:"

List1.ItemData(6) = 64

List1.AddItem "H:"

List1.ItemData(7) = 128

List1.AddItem "I:"

List1.ItemData(8) = 256

List1.AddItem "J:"

List1.ItemData(9) = 512

List1.AddItem "K:"

List1.ItemData(10) = 1024

List1.AddItem "L:"

List1.ItemData(11) = 2048

List1.AddItem "M:"

List1.ItemData(12) = 4096

List1.AddItem "N:"

List1.ItemData(13) = 8192

List1.AddItem "O:"

List1.ItemData(14) = 16384

List1.AddItem "P:"

List1.ItemData(15) = 32768

List1.AddItem "Q:"

List1.ItemData(16) = 65536

List1.AddItem "R:"

List1.ItemData(17) = 131072

List1.AddItem "S:"

List1.ItemData(18) = 262144

List1.AddItem "T:"

List1.ItemData(19) = 524288

List1.AddItem "U:"

List1.ItemData(20) = 1048576

List1.AddItem "V:"

List1.ItemData(21) = 2097152

List1.AddItem "W:"

List1.ItemData(22) = 4194304

List1.AddItem "X:"

List1.ItemData(23) = 8388608

List1.AddItem "Y:"

List1.ItemData(24) = 16777216

List1.AddItem "Z:"

List1.ItemData(25) = 33554432

End Sub

数字与字母乱序输入a34b56c7777d8,数字在前字母在后输出345677778abcd

// JIEFA_2.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include #include #include using namespac...
  • u010002184
  • u010002184
  • 2016年04月05日 23:13
  • 435

关于为什么电脑32位系统在处理数据时是4个字节的二进制数据以及byte取值范围的考虑?

如果表达数据只用两种状态,开闭(0,1),那么能够表达的数据就比较少,比如英文字母,数字,标点符号,汉字等,两个状态肯定是不够的,为了能够表示更多的数据,国际化标准组织就规定:用八个开闭(1,0)信号...
  • guai7guai11
  • guai7guai11
  • 2015年10月03日 22:59
  • 724

电脑中如何配置JDK

步奏如下: 1 计算机右键--属性--高级系统设置--环境变量-- 新建一个JAVA_HOME,变量值为所下载的jdk的文件目录 path中,添加一句%JAVA_HOME%\...
  • m0_38121868
  • m0_38121868
  • 2018年01月16日 14:26
  • 8

查看计算机连接过的WiFi密码(三种方法)

查看计算机连接过的WiFi密码(三种方法)
  • yangyisen0713
  • yangyisen0713
  • 2017年10月20日 12:29
  • 455

电脑中的32与64

曾经乐此不彼的装系统,不断的尝试新的方法。学会了几种方法。但是总有一种是自己最常用的,我始终钟情于PE。刚学会装系统的时候是快乐的,现在装个系统是痛苦的。装系统倒是花费不聊多少时间,但是装驱动,安装软...
  • u013045552
  • u013045552
  • 2014年06月15日 21:27
  • 1129

枚举电脑中的串口

我们一般对串口进行通信的时候,是自己指定的端口,但是个人感觉不是很方便,今天在网上找到了枚举串口的两种方法感觉很实用,不用自己去设备管理器查看串口了。 第一种方式 :通过注册表来枚举串口 void...
  • cxq_1993
  • cxq_1993
  • 2015年08月11日 15:15
  • 423

怎样查看计算机本地安装的证书certmgr.msc

证书在计算机及网络中起着非常重要的作用,那如何查看本地计算机有没有安装某个证书呢。 开始运行中输入certmgr.msc 注意事项 不要轻易删除证书。...
  • M_0307
  • M_0307
  • 2017年05月09日 09:23
  • 584

如何从电脑中卸载cocoapods

今天为了写一篇教大家使用cocoapods的文章 ,特意研究了以下 如何卸载cocoapods, 因为本人的机子上已经安装成功了,所以要研究一下 如何卸载,然后在从新安装。 接下来我就教大家如何卸...
  • qq_18670721
  • qq_18670721
  • 2015年12月30日 10:31
  • 14117

解决"mex setup或mbuild setup找不到编译器"问题

软件环境:Win7 64位 + Matlab7.0 + VC++6.0英文版   问题一:“mex -setup编译器找不到”   在Matlab7.0的命令行窗口输入:   mex -setu...
  • sanqima
  • sanqima
  • 2015年10月30日 18:46
  • 3396

修改文件夹名称隐藏文件夹_电脑中的上帝模式

首页 » 其它 » 修改文件夹名称隐藏文件夹_电脑中的上帝模式 修改文件夹名称隐藏文件夹_电脑中的上帝模式 网络中的一些小技术,分享给有需要的朋友。 ...
  • qq_36345181
  • qq_36345181
  • 2017年11月18日 12:01
  • 78
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何隐藏我的电脑中的磁盘
举报原因:
原因补充:

(最多只允许输入30个字)