Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
wess3310 a couché sur son écran :Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
Je te fais un copier/coller d'un code trouvé il y a qq temps, l'auteur
se reconnaîtra peut être. Avec ça tu peux créer ou
supprimer une clef,
ou la lire dans la bdr. Très simple à utiliser.
A coller dans un module:
Public Enum HKEYs
HKEY_CLASSES_ROOT = 0
HKEY_CURRENT_USER = 1
HKEY_LOCAL_MACHINE = 2
HKEY_USERS = 3
HKEY_CURRENT_CONFIG = 4
End Enum
Public Enum REG_TYPE
REG_String = 0
REG_Number = 1
REG_Binary = 2
REG_Expand_String = 3
End Enum
Public Sub REcrit(HKEY As HKEYs, Endroit As String, Valeur As String,
Optional Type_Of_Reg As REG_TYPE = REG_String)
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Select Case Type_Of_Reg
Case 0: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur, "REG_SZ"
Case 1: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_DWORD"
Case 2: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_BINARY"
Case 3: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_EXPAND_SZ"
End Select
End Sub
Public Function Lit(HKEY As HKEYs, Endroit As String, Optional
Retourner_En_Erreur As String = "zero") As String
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Lit = WSHShell.RegRead(HK(HKEY) & Endroit)
Retourner_En_Erreur = Lit
If Err <> 0 Then Lit = Retourner_En_Erreur
End Function
Public Sub Suprime(HKEY As HKEYs, Endroit As String)
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegDelete HK(HKEY) & Endroit
End Sub
Private Function HK(HKEY As HKEYs) As String
Select Case HKEY
Case 0: HK = "HKCR"
Case 1: HK = "HKCU"
Case 2: HK = "HKLM"
Case 3: HK = "HKEY_USERS"
Case 4: HK = "HKEY_CURRENT_CONFIG"
End Select
End Function
==============================
Ensuite, voici un exemple pour supprimer une clef :
Suprime HKEY_CURRENT_USER,
"SOFTWAREMicrosoftWindowsCurrentVersionRuntest"
Pour toi ça devrait donner
Suprime HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows
NTCurrentVersionHotFIX"
ps: la faute d'ortographe à "suprime" est d'origine, je
laisse,
question de copyright ;)
wess3310 a couché sur son écran :
Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
Je te fais un copier/coller d'un code trouvé il y a qq temps, l'auteur
se reconnaîtra peut être. Avec ça tu peux créer ou
supprimer une clef,
ou la lire dans la bdr. Très simple à utiliser.
A coller dans un module:
Public Enum HKEYs
HKEY_CLASSES_ROOT = 0
HKEY_CURRENT_USER = 1
HKEY_LOCAL_MACHINE = 2
HKEY_USERS = 3
HKEY_CURRENT_CONFIG = 4
End Enum
Public Enum REG_TYPE
REG_String = 0
REG_Number = 1
REG_Binary = 2
REG_Expand_String = 3
End Enum
Public Sub REcrit(HKEY As HKEYs, Endroit As String, Valeur As String,
Optional Type_Of_Reg As REG_TYPE = REG_String)
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Select Case Type_Of_Reg
Case 0: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur, "REG_SZ"
Case 1: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_DWORD"
Case 2: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_BINARY"
Case 3: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_EXPAND_SZ"
End Select
End Sub
Public Function Lit(HKEY As HKEYs, Endroit As String, Optional
Retourner_En_Erreur As String = "zero") As String
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Lit = WSHShell.RegRead(HK(HKEY) & Endroit)
Retourner_En_Erreur = Lit
If Err <> 0 Then Lit = Retourner_En_Erreur
End Function
Public Sub Suprime(HKEY As HKEYs, Endroit As String)
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegDelete HK(HKEY) & Endroit
End Sub
Private Function HK(HKEY As HKEYs) As String
Select Case HKEY
Case 0: HK = "HKCR"
Case 1: HK = "HKCU"
Case 2: HK = "HKLM"
Case 3: HK = "HKEY_USERS"
Case 4: HK = "HKEY_CURRENT_CONFIG"
End Select
End Function
==============================
Ensuite, voici un exemple pour supprimer une clef :
Suprime HKEY_CURRENT_USER,
"SOFTWAREMicrosoftWindowsCurrentVersionRuntest"
Pour toi ça devrait donner
Suprime HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows
NTCurrentVersionHotFIX"
ps: la faute d'ortographe à "suprime" est d'origine, je
laisse,
question de copyright ;)
wess3310 a couché sur son écran :Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le registre
suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
merci
Je te fais un copier/coller d'un code trouvé il y a qq temps, l'auteur
se reconnaîtra peut être. Avec ça tu peux créer ou
supprimer une clef,
ou la lire dans la bdr. Très simple à utiliser.
A coller dans un module:
Public Enum HKEYs
HKEY_CLASSES_ROOT = 0
HKEY_CURRENT_USER = 1
HKEY_LOCAL_MACHINE = 2
HKEY_USERS = 3
HKEY_CURRENT_CONFIG = 4
End Enum
Public Enum REG_TYPE
REG_String = 0
REG_Number = 1
REG_Binary = 2
REG_Expand_String = 3
End Enum
Public Sub REcrit(HKEY As HKEYs, Endroit As String, Valeur As String,
Optional Type_Of_Reg As REG_TYPE = REG_String)
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Select Case Type_Of_Reg
Case 0: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur, "REG_SZ"
Case 1: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_DWORD"
Case 2: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_BINARY"
Case 3: WSHShell.RegWrite HK(HKEY) & Endroit, Valeur,
"REG_EXPAND_SZ"
End Select
End Sub
Public Function Lit(HKEY As HKEYs, Endroit As String, Optional
Retourner_En_Erreur As String = "zero") As String
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
Lit = WSHShell.RegRead(HK(HKEY) & Endroit)
Retourner_En_Erreur = Lit
If Err <> 0 Then Lit = Retourner_En_Erreur
End Function
Public Sub Suprime(HKEY As HKEYs, Endroit As String)
On Error Resume Next
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegDelete HK(HKEY) & Endroit
End Sub
Private Function HK(HKEY As HKEYs) As String
Select Case HKEY
Case 0: HK = "HKCR"
Case 1: HK = "HKCU"
Case 2: HK = "HKLM"
Case 3: HK = "HKEY_USERS"
Case 4: HK = "HKEY_CURRENT_CONFIG"
End Select
End Function
==============================
Ensuite, voici un exemple pour supprimer une clef :
Suprime HKEY_CURRENT_USER,
"SOFTWAREMicrosoftWindowsCurrentVersionRuntest"
Pour toi ça devrait donner
Suprime HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindows
NTCurrentVersionHotFIX"
ps: la faute d'ortographe à "suprime" est d'origine, je
laisse,
question de copyright ;)
merci pour le code
bon je suis debutant j'ai pas bien compris
j'ai declaré les registres dans mon module pour supprimer les url
je vais vous donner le code et la declaration et essaiez de m'aider avec une
petite modification si c'est possible merci d'avance
merci pour le code
bon je suis debutant j'ai pas bien compris
j'ai declaré les registres dans mon module pour supprimer les url
je vais vous donner le code et la declaration et essaiez de m'aider avec une
petite modification si c'est possible merci d'avance
merci pour le code
bon je suis debutant j'ai pas bien compris
j'ai declaré les registres dans mon module pour supprimer les url
je vais vous donner le code et la declaration et essaiez de m'aider avec une
petite modification si c'est possible merci d'avance
bahn po a écrit le 05/09/2008 à 12h06 :wess3310 a couché sur son écran :Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le
registre suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
bahn po a écrit le 05/09/2008 à 12h06 :
wess3310 a couché sur son écran :
Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le
registre suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX
bahn po a écrit le 05/09/2008 à 12h06 :wess3310 a couché sur son écran :Bonjour,
j'ai besoin d'un code source en VB6 qui me permet de supprimer le
registre suivant :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionHotFIX