用VB写个隐藏磁盘分区.追+50分?
直接读取是读不了的，需要打开隐藏分区，读完在隐藏。
打开和隐藏可以用VB SHELL 使用BOOTICE的参数或命令行方法。
0.78版的显示和隐藏分区可以用下面的命令行
解除隐藏：
BOOTICE /AUTO /DEVICE=0:1 /PBR /UNHIDE
隐藏：
BOOTICE /AUTO /DEVICE=0:1 /PBR /HIDE
有任何疑问请追问，满意请采纳，谢谢。
Visual Basic 6.0.with.SP6┊包括全部常用功能和最新补丁┊大企集成安装版
1、VisualBasic6.0中文企业版。->包括全部常用功能和最新补丁。
2、类型库Win.tlb。->省却大部分的API声明。
3、全部vb6sp5ActiveX控件。->全部vb6sp5ActiveX控件。
4、XP可视设计优化。->XP下在设计模式直接显示XP风格控件。
5、完整卸载功能。->安装、卸载一条龙。
6、EXE特别优化及压缩。->自动压缩EXE文件至最小。
序列号: e5kr-jg48a-ab3a3
授权钥匙：h7z-zex
产品编号：CPE1360CPFS180.BCB_6 C++BUILDER 6 Enterprise
SN:111-1111111
S/N:425-0052536
http://www.greendown.cn/soft/4238.html
你判断一下你的复选控件如果值为true就向注册表写入数据是就了要隐藏多个要把数值相加即可
盘符 A B C D E F G H （八位分别对应八个字母（盘符）
数值 01000000 02000000 04000000 08000000 10000000 20000000 40000000 80000000
盘符 I J K L M N O P
数值 00010000 00020000 00040000 00080000 00100000 00200000 00400000 00800000
盘符 Q R S T U V W X
数值 00000100 00000200 00000400 00000800 00001000 00002000 00004000 00008000
盘符 Y Z
数值 00000001 00000002
要重启才生效.
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
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1009&
Const ERROR_BADKEY = 1010&
Const ERROR_CANTOPEN = 1011&
Const ERROR_CANTREAD = 1012&
Const ERROR_CANTWRITE = 1013&
Const ERROR_REGISTRY_RECOVERED = 1014&
Const ERROR_REGISTRY_CORRUPT = 1015&
Const ERROR_REGISTRY_IO_FAILED = 1016&
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Private Sub Command1_Click()
Dim retvalue As Long, result As Long
Dim KeyID As Long, keyvalue As Long
Dim subKey As String
Dim bufSize As Long
Dim regkey As String
Dim abc As Long
Dim a1 As Long
Dim hCurKey As Long
Dim lRegResult As Long
Dim s As String
Dim a As String
'check1代表a盘,.......check8代表h
If Check1.Value = 1 Then
Check1.Tag = 1
Else
Check1.Tag = 0
End If
If Check2.Value = 1 Then
Check2.Tag = 2
Else
Check2.Tag = 0
End If
If Check3.Value = 1 Then
Check3.Tag = 4
Else
Check3.Tag = 0
End If
If Check4.Value = 1 Then
Check4.Tag = 8
Else
Check4.Tag = 0
End If
If Check5.Value = 1 Then
Check5.Tag = 16
Else
Check5.Tag = 0
End If
If Check6.Value = 1 Then
Check6.Tag = 32
Else
Check6.Tag = 0
End If
If Check7.Value = 1 Then
Check7.Tag = 64
Else
Check7.Tag = 0
End If
a1 = CLng(Check1.Tag) + CLng(Check2.Tag) + CLng(Check3.Tag) _
+ CLng(Check4.Tag) + CLng(Check5.Tag) + CLng(Check6.Tag) + _
CLng(Check7.Tag)
If a1 = 0 Then
s = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
a = "NoDrives"
lRegResult = RegOpenKey(HKEY_CURRENT_USER, s, hCurKey)
lRegResult = RegDeleteValue(hCurKey, a)
lRegResult = RegCloseKey(hCurKey)
Else
If a1 <> 0 Then
regkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
retvalue = RegCreateKey(HKEY_CURRENT_USER, regkey, KeyID)
subKey = "NoDrives"
keyvalue = a1
retvalue = RegSetValueEx(KeyID, subKey, 0&, 4, keyvalue, 4)
End If
End If
End Sub
Private Sub Command2_Click()
Dim retvalue As Long, result As Long
Dim KeyID As Long, keyvalue As Long
Dim subKey As String
Dim bufSize As Long
Dim regkey As String
Dim abc As Long
Dim a1 As Long
Dim hCurKey As Long
Dim lRegResult As Long
Dim s As String
Dim a As String
s = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
a = "NoDrives"
lRegResult = RegOpenKey(HKEY_CURRENT_USER, s, hCurKey)
lRegResult = RegDeleteValue(hCurKey, a)
lRegResult = RegCloseKey(hCurKey)
End Sub
给你个思路，用VB写入注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer下的NoDrives,这个键的键值就是隐藏盘符的关键了,下面是一张隐藏数值例表(二进制).
你判断一下你的复选控件如果值为true就向注册表写入数据是就了要隐藏多个要把数值相加即可
盘符 A B C D E F G H （八位分别对应八个字母（盘符）
数值 01000000 02000000 04000000 08000000 10000000 20000000 40000000 80000000
盘符 I J K L M N O P
数值 00010000 00020000 00040000 00080000 00100000 00200000 00400000 00800000
盘符 Q R S T U V W X
数值 00000100 00000200 00000400 00000800 00001000 00002000 00004000 00008000
盘符 Y Z
数值 00000001 00000002
这样就可以了这是我的原创阿！！！
又是注册表。。。
如果这样，用批处理也行，只要知道具体的键值
REG ADD /? REG DELETE /?就知道了。不过黑屏。。。不够友好。。需要包装
VB中获取磁盘的值
Private Sub Command1_Click()Shell "cmd \/c attrib +H c:\\1.exe", 0 MsgBox "OK!"End Sub
vb里的dir怎么用 ?
1）Dir 函数，返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。Dir 函数示例：本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft ...
vb编制的程序保存在磁盘上至少会产生何种文件
vb编制的程序保存在磁盘上至少会产生3种文件：.vbp、.vbw工程文件 .frm窗体文件 .
VB怎样获得磁盘驱动器盘符
Private Sub Form_Load()Dim i As Integer, j As Integer Me.Show For i = 0 To Drive1.ListCount - 1 For j = 1 To 4 If Left(Drive1.List(i), 1) = Mid("cdef", j, 1) Then GoTo hh Next j Print Drive1.List(i)hh:Next i End Sub 当然你也可以把这个移动硬盘的名字...
VB考试教程:文件处理之四文件系统
按照文件的特征属性来分可以分为系统文件、隐藏文件、只读文件、普通文件和存档文件;按照文件的数据性质来分可以分为程序文件和数据文件。程序文件：这种文件存放的是可以由计算机执行的程序，包括源文件和可执行文件。在VB中，扩展名为.exe，.frm，.vbp，.vbg，.bas，.cls等的文件都是程序文件。数据文件...
VB 格式化磁盘代码
建一个Command1. 要特别注意空格以及不要加多余的"".代码如下。＝＝＝ Private Sub Command1_Click()Shell "cmd \/c format e: \/q"End Sub
如何用vb6.0编写文件夹加密程序
打开你的 C盘 并选择查看所有文件，找到你的 回收站 。在回收站的右键属性里去掉隐藏，选种“启用 缩略图 察看方式”。进入回收站，可以看到desktop.ini这个文件夹。在加密文件夹的时候，只要把desktop.ini这个文件复制到所要加密的文件夹下就可以实现了。在vb中用文本保存desktop.ini这个里的内容，然后...
vb\/python在cmd下运行磁盘管理程序diskpart.exe
import subprocess, threading p = subprocess.Popen("diskpart", stdin = subprocess.PIPE, stdout = subprocess.PIPE, bufsize = 0, universal_newlines = True)def Input():global p while True:com = input("input >>>: ")p.stdin.write(com + "\\n")def Output():global p while Tr...
vb如何判断目标是磁盘还是文件夹?
用DIR和GetAttr结合来判断即可：If Dir(Trim(Text1)) <> "" Then '存在 If GetAttr(Trim(Text1)) < 32 Then MsgBox "找到目录：" & Trim(Text1) Else MsgBox "找到文件：" & Trim(Text1) End IfElse MsgBox "不存在：" & Trim(Text1)End If ...
怎样用VB显示每个磁盘的容量?怎样用VB显示每个文件夹的容量?即输入路径...
Option Explicit Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long Private Sub Form_Load()Get...
皮史健胃： 用VB通过对注册表的操作,可以实现.启动注册表编辑器,进入HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,新建二进制值“NoDrives”,缺省值是00000000,表示不隐藏任何驱动器.键值由4个字...
江干区13335374159： 如何隐藏磁盘分区(在线等待!!!) - ？
皮史健胃： 隐藏盘符和禁止查看(适用于Windows系统) 打开注册表编辑器,依次展开如下分支[HKEY_CURRENT_USERsoftwareMicrosoftWindowsCurrentVersionPloiciesExplorer],新建二进制值“NoDrives”,其缺省值均是00 00 00 00,表示不隐藏任...
江干区13335374159： 求高手写两个隐藏磁盘分区的批处理工具 - ？
皮史健胃： 2个问题:1.MSDOS并不自带可以隐藏分区的命令,你可能需要去寻找相关的MS-DOS工具;2.不出现窗口是不可能的,除非用AT,调用SYSTEM权限;个人推荐VBS或者JS,使用WSH可实现,且WSH中有对磁盘管理的高级应用,但这一方面我就不在行了;综上所述,你还是再开个问题吧:求高手写两个隐藏磁盘分区的VBS/JS工具
江干区13335374159： vb如何直接创建隐藏文件 - ？
皮史健胃： Option Explicit Private Const CREATE_NEW = 1 Private Const FILE_ATTRIBUTE_HIDDEN = &H2 Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 Private Const INVALID_HANDLE_VALUE = -1 Private Declare Function CreateFile Lib ＂...
江干区13335374159： 请问如何用vb读出隐藏分区里面的资料? 我用BOOTICE软件把我的U盘分了两个区,一个普通的,一个设为隐藏分区？
皮史健胃： 直接读取是读不了的,需要打开隐藏分区,读完在隐藏. 打开和隐藏可以用VB SHELL 使用BOOTICE的参数或命令行方法. 0.78版的显示和隐藏分区可以用下面的命令行 解除隐藏: BOOTICE /AUTO /DEVICE=0:1 /PBR /UNHIDE 隐藏: BOOTICE /AUTO /DEVICE=0:1 /PBR /HIDE 有任何疑问请追问,满意请采纳,谢谢.
江干区13335374159： 怎样创建硬盘的隐藏分区? - ？
皮史健胃： 用PQmagic等硬盘分区工具,然后运行PQmaic,选定欲隐藏的分区:先以DOS方式启动.具体方法为,选择“Operations”菜单中“Advanced”下的“HidePartition”,退出,如D盘(千万不要隐藏系统分区,否则你的系统可能就进不去了)
江干区13335374159： 怎么用注册表隐藏分区?？
皮史健胃： “开始”→“运行”中输入regedit,打开注册表编辑器. 进入HKEY_CURRENT_USER\SoftWare\microsoft\Windows\CurrentVersion\Policies\Explorer分支中. 在右窗口中新建一个二进值的键值名为“NoDrives”,磁盘驱动器所一一对应的键...
江干区13335374159： 怎样隐藏分区及显示隐藏分区 - ？
皮史健胃： 第一招:修改注册表来隐藏逻辑硬盘 1、隐藏“我的电脑”中的磁盘驱动器图标 操作步骤如下: ①“开始”→“运行”中输入regedit,打开注册表编辑器. ②进入HKEY_CURRENT_USERSoftWareMicrosoftWindowsCurrentVersion ...
江干区13335374159： 怎样才能把硬盘分区隐藏 - ？
皮史健胃： 1、 启动注册表编辑器(当然是命令regedit)2、 打开HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ Explorer 3、 在右边的编辑框中点右键选＂新建_二进制值(B)＂ 4、 将键值:＂新值#1＂改为＂...
江干区13335374159： 怎样创建电脑隐藏分区 - ？
皮史健胃： 可以利用磁盘管理器将磁盘盘符删除,这样系统无法显示该盘即可达到隐藏分区的目的.1、首先,返回到电脑桌面,找到计算机图标,右键点击,进入管理界面,然后在管理界面中点击左侧菜单中的磁盘管理. 2、接下来看右侧窗口中出现的磁盘分区,选择一个比较适合的分区,然后右键点击,选择下滑菜单中的“更改驱动器号和路径”选项,并在弹出来的窗口中选择删除即可.
