XtremDuke
Messages postés626Date d'inscriptionsamedi 28 septembre 2002StatutMembreDernière intervention18 mai 20094 12 janv. 2006 à 11:39
C'est pas mal mais un peu trop touffu je pense. Y'a un peu plus simple je pense :
Public Sub RegSupprimer(CheminComplet As String)
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegDelete CheminComplet
End Sub
Public Sub RegEcrire(StyleDeClé As Integer, CheminComplet As String, Valeur As String)
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
If StyleDeClé = 0 Then WshShell.RegWrite CheminComplet, Valeur 'correspond à REG_SZ=texte
If StyleDeClé = 1 Then WshShell.RegWrite CheminComplet, Valeur, "REG_DWORD" 'correspond à REG_DWORD=booléen
If StyleDeClé = 2 Then WshShell.RegWrite CheminComplet, Valeur, "REG_BINARY" 'correspond à REG_BINARY=données binaires
End Sub
Public Sub RunAtStartUp(nom As String, chemin As String)
RegEcrire 0, "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" & nom_de_lappli, chemin_de_lappli
End Sub
Public Sub StopRunningStartUp(nom As String)
RegSupprimer "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" & nom_de_lappli
End Sub
12 janv. 2006 à 11:39
Public Sub RegSupprimer(CheminComplet As String)
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegDelete CheminComplet
End Sub
Public Sub RegEcrire(StyleDeClé As Integer, CheminComplet As String, Valeur As String)
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
If StyleDeClé = 0 Then WshShell.RegWrite CheminComplet, Valeur 'correspond à REG_SZ=texte
If StyleDeClé = 1 Then WshShell.RegWrite CheminComplet, Valeur, "REG_DWORD" 'correspond à REG_DWORD=booléen
If StyleDeClé = 2 Then WshShell.RegWrite CheminComplet, Valeur, "REG_BINARY" 'correspond à REG_BINARY=données binaires
End Sub
Public Sub RunAtStartUp(nom As String, chemin As String)
RegEcrire 0, "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" & nom_de_lappli, chemin_de_lappli
End Sub
Public Sub StopRunningStartUp(nom As String)
RegSupprimer "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" & nom_de_lappli
End Sub