WINDOWS XP CONFIGURATION

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