Private Sub mycontrol211_click() '隐藏驱动器
Dim str As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
str = InputBox("例如要隐藏c盘则输入c(小写字母)", "请输入要隐藏的驱动器")
Dim hKey As Long
Dim bArr(0 To 3) As Byte
Select Case str
Case c
bArr(0) = &H4: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case d
bArr(0) = &H8: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case e
bArr(0) = &H10: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case f
bArr(0) = &H20: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case g
bArr(0) = &H40: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case h
bArr(0) = &H80: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
Case i
bArr(0) = &H0: bArr(1) = &H1: bArr(2) = &H0: bArr(3) = &H0
End Select
Dim Ret As Long
Ret = RegOpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey)
RegSetValueEx hKey, "NoDrivers", 0, REG_BINARY, bArr(0), 4
End Sub
每次运行结果NoDrivers都是00 00 00 00,哪里错了?
飘渺羽毛说对了,没有赋值成功,改怎么解决呢?
|