Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Coded By Hicham Hacker BX1
- Public Sub RemoveMyComputerFromAllThing(ByVal Enable As Boolean)
- Select Case Enable
- Case True
- My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "0", Microsoft.Win32.RegistryValueKind.DWord)
- Case False
- My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "1", Microsoft.Win32.RegistryValueKind.DWord)
- End Select
- End Sub
Add Comment
Please, Sign In to add comment