Il permet de modifer la base des registres Windows pour personnaliser windows afin de désactiver les trucs chiants du genre les bips a tout bout de champs.
Source / Exemple :
Private Sub apropo_Click()
MsgBox "Programme créé par Broccard Grégrory EMVs" & vbCrLf & _
"Email : gregoryb@netplus.ch http://metos.homeip.net" & vbCrLf & _
"Version 1.0 "
End Sub
Private Sub Ch1_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch1.Value = 0 Then
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\FontSmoothingType", 1, "REG_DWORD"
End If
If Ch1.Value = 1 Then
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\FontSmoothingType", 2, "REG_DWORD"
End If
Form_Load
End Sub
Private Sub Ch10_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch10.Value = 1 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\Enable", "Y"
End If
If Ch10.Value = 0 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\Enable", "N"
End If
End Sub
Private Sub Ch11_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch11.Value = 1 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\DisablePagingExecutive", "1", "REG_DWORD"
End If
If Ch11.Value = 0 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\DisablePagingExecutive", "0", "REG_DWORD"
End If
End Sub
Private Sub Ch12_Click()
Set WSHShell = CreateObject("Wscript.Shell")
Dim temp As String
temp = "C:\Program Files\Messenger\msmsgs.exe" & " /background"
If Ch12.Value = 1 Then
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MSMSGS", temp
End If
If Ch12.Value = 0 Then
WSHShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MSMSGS"
End If
End Sub
Private Sub Ch2_Click()
'Set WSHShell = CreateObject("Wscript.Shell")
'WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}"
If Ch3.Value = 1 Then
Ch3.Value = 0
End If
End Sub
Private Sub Ch3_Click()
'Set WSHShell = CreateObject("Wscript.Shell")
'WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}"
If Ch2.Value = 1 Then
Ch2.Value = 0
End If
End Sub
Private Sub Ch4_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch4.Value = 1 Then
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ColorName", "Metallic"
End If
If Ch4.Value = 0 Then
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ColorName", "NormalColor"
End If
End Sub
Private Sub Ch5_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch5.Value = 1 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl\AutoReboot", 1, "REG_DWORD"
End If
If Ch5.Value = 0 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl\AutoReboot", 0, "REG_DWORD"
End If
End Sub
Private Sub ch6_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch6.Value = 0 Then
WSHShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Sound\Beep", "no"
End If
If Ch6.Value = 1 Then
WSHShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Sound\Beep", "yes"
End If
End Sub
Private Sub Ch8_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch8.Value = 1 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", txt_nomf.Text
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", txt_message.Text
End If
If Ch8.Value = 0 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", ""
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", ""
End If
End Sub
Private Sub Ch9_Click()
Set WSHShell = CreateObject("Wscript.Shell")
If Ch9.Value = 1 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown", 1, "REG_DWORD"
End If
If Ch9.Value = 0 Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown", 0, "REG_DWORD"
End If
End Sub
Private Sub cmd_time_Click()
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\HungAppTimeout", txt_timeout.Text 'Le 1, c'est la valeur de la valeur binaire (!)
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set WSHShell = CreateObject("Wscript.Shell")
Dim tempS As String
Dim tempI As Integer
On Error Resume Next
'lit les valeurs dans la base de registre
tempI = WSHShell.RegRead("HKEY_USERS\.DEFAULT\Control Panel\Desktop\FontSmoothingType") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempI = 2 Then
Ch1.Value = 1
Else
Ch1.Value = 0
End If
tempS = WSHShell.RegRead("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ColorName") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempS = "NormalColor" Then
Ch4.Value = 1
Else
Ch4.Value = 0
End If
tempI = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl\AutoReboot") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempI = 1 Then
Ch5.Value = 1
Else
Ch5.Value = 0
End If
Set WSHShell = CreateObject("Wscript.Shell")
tempS = WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\Sound\Beep") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempS = "yes" Then
Ch6.Value = 1
Else
Ch6.Value = 0
End If
tempI = WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\HungAppTimeout") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
txt_timeout.Text = tempI
tempS = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
txt_nomf.Text = tempS
tempS = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
txt_message.Text = tempS
Set WSHShell = CreateObject("Wscript.Shell")
tempI = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempI = 1 Then
Ch9.Value = 1
Else
Ch9.Value = 0
End If
tempS = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\Enable") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempS = "Y" Then
Ch10.Value = 1
Else
Ch10.Value = 0
End If
tempI = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\DisablePagingExecutive") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If tempI = 1 Then
Ch11.Value = 1
Else
Ch11.Value = 0
End If
tempS = "null"
tempS = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MSMSGS") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
If temp = "null" Then
Ch12.Value = 0
Else
Ch12.Value = 1
End If
'Remarque :HKEY_CURRENT_USER peut être remplacé par HKCU
'On peut mettre n'importe quelle branche comme ça
End Sub
Private Sub info1_Click()
MsgBox "Lisse les polices de l'écran d'accueil"
End Sub
Private Sub info10_Click()
MsgBox "Si vous activez cette option Windows ne stockera plus les données des aplications sur le disque dur. Le système et les applications en cours d'exécution restent donc en permanence chargés en mémoire."
End Sub
Private Sub info11_Click()
MsgBox "Améliore la sécurité de Windows XP. Ce fichier stocke certaines informations lorsque la mémoire vive est pleine. Une partie des travaux risques d'être sauvegardés dans ces fichiers de mémoire paginée. Une personne peut extraire certain de vos travaux sans que vous ne vous en doutiez. Le temps de redémarrage et d'extinction risque d'être plus long."
End Sub
Private Sub info12_Click()
MsgBox "Empêche le démarrage de Messenger"
End Sub
Private Sub info2_Click()
MsgBox "Supprime le dossier Documents partagés"
End Sub
Private Sub info3_Click()
MsgBox "Modifie l'écran d'accueil"
End Sub
Private Sub info4_Click()
MsgBox "Désactive le lancement automatique de l'autorun lorsqu'on insère un CD dans le lecteur de CD"
End Sub
Private Sub info5_Click()
MsgBox "Lorsqu'un programme désire redémarrer il peut le faire sans intervention de l'utilisateur"
End Sub
Private Sub info6_Click()
MsgBox "Evite que le système produise des bips a tout bout de champs"
End Sub
Private Sub info7_Click()
MsgBox "Modifie le temps pendant lequelle Windows attend avant de déclarer une application plantée"
End Sub
Private Sub info8_Click()
MsgBox "Permet d'afficher un message au démarrage"
End Sub
Private Sub info9_Click()
MsgBox "Au démarrage de Windows XP le disque dur est automatiquement défragementé. Ceci peut ralentir considérablement le démarrage du système"
End Sub
Private Sub quitter_Click()
Unload Me
End Sub
Conclusion :
Mon site :
http://metos.homeip.net
Si quelqu'un arriver a faire marcher l'option 2 et 3 ca serait simpa de m'avertir. Merci d'avance.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.