UTILITAIRE DE PERSONALISATION DU SYSTEME

Assez de blabla! Le source


'Modification de Active desktop et autres
Private Sub Command1_Click()
'Bon, les comments, ç'est limite...
'Enfin: crée un truc (y faudra qu'on m'explique à quoi sert ce truc un jour
Set WshShell = CreateObject("Wscript.Shell")
'Ecrit la valeur 0 ou 1 à chaque ligne....
'Je commente pas +
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallPaper", 0, "REG_DWORD"
End Sub

Private Sub Command2_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallPaper", 1, "REG_DWORD"
End Sub

Private Sub Command3_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", 0, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Command4_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", 1, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Command5_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu", 0, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Command6_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu", 1, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Command7_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose", 1, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Command8_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose", 0, "REG_DWORD"
MsgBox ("Les changements n'apparaîtront qu'au prochain lancement de Windows."), vbInformation, "Attention"
End Sub

Private Sub Form_Load()
MsgBox ("Bienvenue à toi, ô noble programmeur, dans cet utilitaire de configuration du système"), vbExclamation, "Bienvenue à toi, ô noble programmeur"
End Sub



Le reste

Private Sub scan_Click()
Text1.Enabled = True
Text2.Enabled = True
Text6.Enabled = True
Text9.Enabled = True
'-------------------------------------------------------
'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")
'là, le nom d'utilisateur
Text1.Text = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOwner")
'En fonction de si l'utilisateur a le droit de changer ou non, inscrit la valeur dans un textbox ou un label
Text1.Enabled = False
'--------------------------------------------------------
'là le nom de la société
Text2.Text = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOrganization")
Text2.Enabled = False
'--------------------------------------------------------
'la version de Windows
winname = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Version")
Label1 = " " & winname
'--------------------------------------------------------
'le numéro de série Windows
winver = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductKey")
Label2 = " " & winver
'--------------------------------------------------------
'le dossier système
dirsys = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SystemRoot")
Label3 = " " & dirsys
'--------------------------------------------------------
'le répertoire d'installation par défaut
Text6.Text = WshShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
Text6.Enabled = False
'--------------------------------------------------------
'Le nom du processeur
processname = WshShell.Regread("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0\Identifier")
Label4 = " " & processname
'--------------------------------------------------------
'le fabriquant du processeur
fabrpross = WshShell.Regread("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0\VendorIdentifier")
Label5 = " " & fabrpross
'--------------------------------------------------------
'le papier peint
Text9.Text = WshShell.Regread("HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper")
Text9.Enabled = False
'--------------------------------------------------------
'la résolution de l'écran
resecr = WshShell.Regread("HKEY_CURRENT_CONFIG\Display\Settings\Resolution")
Label6 = " " & resecr
'--------------------------------------------------------
'la fréquence approximative du processeur
freqprocess = WshShell.Regread("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0\~MHz")
Label7 = " " & freqprocess
End Sub
Private Sub Command1_Click()
'demande si l'on est sur de vouloir modifier
a = MsgBox("Êtes vous sûr de vouloir modifier le nom de l'utilisateur?", vbYesNo, "Validation des modifications")
Select Case a
'Si non
Case vbNo
'Aller à no
GoTo no
'Si Oui
Case vbYes:
GoTo yes
End Select
yes:
'Définit le nouveau nom que veut l'utilisateur
uti = InputBox("Entrez le nom d'utilisateur que vous désirez.")
'Si le nom d'utilisateur est vide
If uti = "" Then
GoTo no
End If
'Rend le texte modifiable
Text1.Enabled = True
'Enregistre la valeur de uti dans le TextBox
Text1 = " " & uti
'--------------------------
'Modifs dans le registre
'crée WshShell
Set WshShell = CreateObject("Wscript.Shell")
'écrit la valeur de Text1
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOwner", " " & Text1.Text
no:
'rend le text incheangeable
Text1.Enabled = False
End Sub
'---------------------------
'Même principe pour les autres choses modifiables, je commente pas...
Private Sub Command2_Click()
a = MsgBox("Êtes vous sûr de vouloir modifier le nom de la société?", vbYesNo, "Validation des modifications")
Select Case a
Case vbNo
GoTo no
Case vbYes:
GoTo yes
End Select
yes:
comp = InputBox("Entrez le nom de société que vous désirez.")
If comp = "" Then
GoTo no
End If
Text2.Enabled = True
Text2 = " " & comp
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOrganization", " " & Text2.Text
no:
Text2.Enabled = False
End Sub
'---------------------------
Private Sub Command6_Click()
a = MsgBox("Êtes vous sûr de vouloir modifier le dossier d'installation par défaut?", vbYesNo, "Validation des modifications")
Select Case a
Case vbNo
GoTo no
Case vbYes:
GoTo yes
End Select
yes:
inst = InputBox("Entrez le CHEMIN D'ACCES du dossier que vous désirez définir dossier d'installation par défaut.")
If inst = "" Then
GoTo no
End If
Text6.Enabled = True
Text6 = " " & inst
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramsFilesDir", " " & Text6.Text
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramsFilesPath", " " & Text6.Text
no:
Text6.Enabled = False
End Sub

Private Sub Command9_Click()
a = MsgBox("Êtes vous sûr de vouloir modifier le papier peint WINDOWS", vbYesNo, "Validation des modifications")
Select Case a
Case vbNo
GoTo no
Case vbYes:
GoTo yes
End Select
yes:
wallp = InputBox("Entrez le CHEMIN D'ACCES du papier peint windows que vous désirez")
If wallp = "" Then
GoTo no
End If
Text9.Enabled = True
Text9 = " " & wallp
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WallPaper", " " & Text9.Text
no:
Text9.Enabled = False
End Sub



'Pas de modification de certaines choses...
Private Sub Command3_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub
Private Sub Command4_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub
Private Sub Command5_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub

Private Sub Command8_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub
Private Sub Command7_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub
Private Sub Command11_Click()
MsgBox ("MODIFICATION INTERDITE!"), vbCritical
End Sub
Private Sub Command12_Click()
MsgBox ("Vous ne croyez tout de même pas que je vous laisserais changer ça..."), vbCritical, "Sale tricheur!"
End Sub
Private Sub Command10_Click()
'là, ç'est les changements de la config
config.Show
End Sub


Si ça vous fait chier de jouer aux devinettes pour essayer de comprendre qu'est ce que chaque truc, un zip est mit à votre disposition

readme:
Download zip
Extract
Run File
If you don't like the prog Then
Mail me for me dire que c'est pourri
End If
Sinon
Mettez moi une bonne note ;) 

Télécharger le zip