1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Sub RunAtStartUp()
'Ecriture dans la Base de Registre de la Clé de Démarrage
RegEcrire 0, "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "thechat.exe", "I:\Program Files\thechat\thechat.exe"
End Sub
Public Sub RegEcrire(StyleDeClé As Integer, CheminComplet As String, Valeur As String)
'Style de Clé :
'0 -> Valeur Chaîne
'1 -> DWord
'2 -> Binaire
Set WshShell = CreateObject("Wscript.Shell")
If StyleDeClé = 0 Then WshShell.RegWrite CheminComplet, Valeur
If StyleDeClé = 1 Then WshShell.RegWrite CheminComplet, Valeur, "REG_DWORD"
If StyleDeClé = 2 Then WshShell.RegWrite CheminComplet, Valeur, "REG_BINARY"
End Sub |
Partager