TehWoas Index du Forum
TehWoas
Site des challenges lobby
 
TehWoas Index du ForumFAQRechercherS’enregistrerConnexion

:: Source Cacher Clè Regitre ::

 
Poster un nouveau sujet   Répondre au sujet    TehWoas Index du Forum -> Programmations Codages -> Sources Visual Basic
Sujet précédent :: Sujet suivant  
Auteur Message
TehWoas
Invité





MessagePosté le: Mar 18 Sep - 22:38 (2012)    Sujet du message: Source Cacher Clè Regitre Répondre en citant

Bonjour les amis je vous partage cette code utile
pour quelques un.
cacher clé de registre in vb.net.


Public Enum HKEY
        ClassesRoot
        CurrentUser
        LocalMachine
        Users
        CurrentConfig
    End Enum

    Public Shared Sub HideValueFromRegistry(ByVal HKEY As HKEY, ByVal SubKey As String, ByVal Name As String, ByVal KeyValue As String)
        Dim List As New List(Of String)
        For Each Proc As Process In Process.GetProcesses
            List.Add(Proc.ProcessName)
        Next
        If List.Contains("regedit") Then
            Select Case HKEY
                Case HKEY.ClassesRoot
                    Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                    If Key.GetValue(Name) IsNot Nothing Then
                        My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).DeleteValue(Name)
                    End If
                Case HKEY.CurrentUser
                    Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                    If Key.GetValue(Name) IsNot Nothing Then
                        My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).DeleteValue(Name)
                    End If
                Case HKEY.LocalMachine
                    Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                    If Key.GetValue(Name) IsNot Nothing Then
                        My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).DeleteValue(Name)
                    End If
                Case HKEY.Users
                    Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                    If Key.GetValue(Name) IsNot Nothing Then
                        My.Computer.Registry.Users.OpenSubKey(SubKey, True).DeleteValue(Name)
                    End If
                Case HKEY.CurrentConfig
                    Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                    If Key.GetValue(Name) IsNot Nothing Then
                        My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).DeleteValue(Name)
                    End If
            End Select
        Else
            Select Case HKEY
                Case HKEY.ClassesRoot
                    Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                    If Key.GetValue(Name) Is Nothing Then
                        My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                    End If
                Case HKEY.CurrentUser
                    Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                    If Key.GetValue(Name) Is Nothing Then
                        My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                    End If
                Case HKEY.LocalMachine
                    Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                    If Key.GetValue(Name) Is Nothing Then
                        My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                    End If
                Case HKEY.Users
                    Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                    If Key.GetValue(Name) Is Nothing Then
                        My.Computer.Registry.Users.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                    End If
                Case HKEY.CurrentConfig
                    Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                    If Key.GetValue(Name) Is Nothing Then
                        My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                    End If
            End Select
        End If

    End Sub 




j’espère que ça va vous être utile....


Revenir en haut
Publicité






MessagePosté le: Mar 18 Sep - 22:38 (2012)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    TehWoas Index du Forum -> Programmations Codages -> Sources Visual Basic Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Thème créé par TehWoas'
Powered by phpBB © 2012 phpBB Group
Traduction par : phpBB-fr.com
  • TehWoas™ ©2012-2013