注册表中显示与隐藏技术应用
显示与隐藏。
启动计算机时候，桌面都会有“我的电脑”“回收站”。。。等等快捷方式，如果
在网吧的时候，我们又不能访问注册表，又想隐藏桌面上不起眼的东西。那我们就
要利用编程来时现隐藏显示了。
我们就拿 隐藏 我的电脑 回收站 网上邻居来说 为了大家的时间 代码我写好了
这些是定义常量与变量的
Const REG_BINARY As Long = 3
Const REG_DWORD As Long = 4
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001
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 RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Dim ret1 As Long, ret2 As Long, ret3 As Long
Private Sub Command1_Click() '隐藏/显示我的电脑
ret1 = RegOpenKey(HKEY_CLASSES_ROOT, "CLSID\
{20D04FE0-3AEA-1069-A2D8-08002B30309D}\ShellFolder", hKey)
If ret1 = 0 Then
If Command1.Caption = "隐藏我的电脑" Then
RegSetValueEx hKey, "Attributes", 0, REG_BINARY, &HFFFFFFFF, 4
MsgBox "设置成功，重新启动计算机或注销后桌面上我的电脑将被隐藏！", 64, "小脸贼帅"
Command1.Caption = "显示我的电脑"
Command1.Picture = LoadPicture(App.Path & "\image\我的电脑隐.jpg")
ElseIf Command1.Caption = "显示我的电脑" Then
RegSetValueEx hKey, "Attributes", 0, REG_BINARY, &H0, 4
MsgBox "设置成功，重新启动计算机或注销后桌面上我的电脑将会显示！", 64, "小脸贼帅"
Command1.Caption = "隐藏我的电脑"
Command1.Picture = LoadPicture(App.Path & "\image\我的电脑原.jpg")
End If
RegCloseKey hKey
End If
End Sub
Private Sub Command2_Click() '显示/隐藏回收站
ret2 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\
Explorer\Desktop\NameSpace", hKey)
If ret2 = 0 Then
If Command2.Caption = "隐藏回收站" Then
RegDeleteKey hKey, "{645FF040-5081-101B-9F08-00AA002F954E}"
MsgBox "设置成功，重新启动计算机或注销后桌面上回收站将被隐藏！", 64, "小脸贼帅"
Command2.Caption = "显示回收站"
Command2.Picture = LoadPicture(App.Path & "\image\回收站藏.jpg")
ElseIf Command2.Caption = "显示回收站" Then
RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\
{645FF040-5081-101B-9F08-00AA002F954E}", hKey
MsgBox "设置成功，重新启动计算机或注销后桌面上回收站将会显示！", 64, "小脸贼帅"
Command2.Caption = "隐藏回收站"
Command2.Picture = LoadPicture(App.Path & "\image\回收站原.jpg")
End If
RegCloseKey hKey
End If
End Sub
Private Sub Command3_Click() '显示/隐藏网上邻居
ret3 = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey)
If ret3 = 0 Then
If Command3.Caption = "隐藏网上邻居" Then
RegSetValueEx hKey, "NoNetHood", 0, REG_DWORD, 1, 4
MsgBox "设置成功，重新启动计算机或注销后桌面上网上邻居将被隐藏！", 64, "小脸贼帅"
Command3.Caption = "显示网上邻居"
Command3.Picture = LoadPicture(App.Path & "\image\网上邻居藏.jpg")
ElseIf Command3.Caption = "显示网上邻居" Then
RegSetValueEx hKey, "NoNetHood", 0, REG_DWORD, 0, 4
MsgBox "设置成功，重新启动计算机或注销后桌面上网上邻居将显示！", 64, "小脸贼帅"
Command3.Caption = "隐藏网上邻居"
Command3.Picture = LoadPicture(App.Path & "\image\网上邻居原.jpg")
End If
RegCloseKey hKey
End If
End Sub
Private Sub Form_Load()
End Sub
最新报道 
