Option Strict On
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Macle As String = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" 'applications au démarrage de Windows (mettre le chemin de ta clé)
Dim var As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Applets\Regedit", True) 'ouvre la clé
var.SetValue("Lastkey", Macle, RegistryValueKind.String) 'ajoute la valeur
var.Close() 'Fermeture du registre
Process.Start("C:\Windows\regedit.exe")
End Sub
End Class
Dim Reg As RegistryKey = Registry.LocalMachine
Dim i As Integer
Reg = Registry.LocalMachine.OpenSubKey("SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers")
'obtient le nombre de valeur associé a la clé
i = Reg.ValueCount
'charge les valeurs dans une tableau memoire
Dim Tabvaleur(Reg.ValueCount) As String
Dim tmp As Integer
Tabvaleur = Reg.GetValueNames
'charge la liste des valeur a partir du tableau memoire
For i = 0 To UBound(Tabvaleur)
tmp = InStr(1, Tabvaleur(i), "MySQL", CompareMethod.Text)
If tmp > 0 Then DriverODBC = Tabvaleur(i)
Next (i)
'ferme la clé
Reg.Close()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit", "LastKey", Me._RegKey, RegistryValueKind.String)
Shell("regedit", AppWinStyle.NormalFocus)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question"My Computer\" & Me._RegKey
Me._RegKey