Modifier une valeur (binaire) dans la base de registre
Résolu
little boy62
Messages postés
3603
Date d'inscription
Statut
Membre
Dernière intervention
-
little boy62 Messages postés 3603 Date d'inscription Statut Membre Dernière intervention -
little boy62 Messages postés 3603 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Modifier une valeur (binaire) dans la base de registre
- Base de registre - Guide
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Modifier une story facebook - Guide
- Binaire - Guide
1 réponse
Lu"
Résolu.
J'ai trouvé ceci : https://www.vbforums.com/showthread.php?627621-Setting-Registry-Values-with-Binary-Value-Kind&p=3882405&viewfull=1#post3882405
et en effet, ce bout de code m'a aidé :
Dim hexString As String = "1A,2B,3C,4D,5E,6F,70"
Dim bytes As Byte() = hexString.Split(","c).Select(Function(s) Convert.ToByte(s, 16)).ToArray(
J'ai donc fait ceci, comme fonction :
Private Sub BougeTaBarre(valeur) Dim position As String = valeur.Remove(0, 2) position = Regex.Replace(position, ".{2}", "$0,") position = position.Remove(position.Length - 1) Dim bytes As Byte() = position.Split(","c).Select(Function(s) Convert.ToByte(s, 16)).ToArray() Dim keys As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRectsLegacy", True) keys.SetValue("Settings", bytes) Dim myProcesses() As Process = Process.GetProcessesByName("explorer") For Each Process In myProcesses Process.Kill() Next End Sub
Ca fonctionne.
++