VB 高手帮帮忙写个小程序?

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:48:21
用VB写个隐藏磁盘分区
下面的代码如何改写.
这个网址是一样的问题.
http://zhidao.baidu.com/question/93562250.html

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
大哥帮我写好个工程给我好不好.我对VB不是很会.
发给我邮箱:yao11028@qq.com (.....P)

Dim hKey As Long, SubKey, Exe(0 To 4) As Byte
Const HKEY_CURRENT_USER = &H80000001
Const REG_BINARY = 3
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpregBINARYSubKey$, lphKey&)
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 Sub Command1_Click()
If Check1(0).Value = 1 Then
Exe(0) = &H8: Exe(1) = &H0: Exe(2) = &H0: Exe(3) = &H0
SubKey =