Utilitaire de personalisation du systeme

Soyez le premier à donner votre avis sur cette source.

Vue 7 646 fois - Téléchargée 525 fois

Télécharger le projet
Commenter

Description

Voilà, j'en avais marre de devoir chercher des trucs pendant 3 plombes dans le registre, alors j'ai décidé de faire un prog qui scanne lui même le registre, et qui permet certaines modifications.

Attention, vous utilisez ce prog à vos risks et périls

Source / Exemple : 


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 ;)

Conclusion :


If vous trouvez un bug avec Windows XP ou autre (aucun bug connu sous 98 et ME)...
Or vous voulez des fonctions en plus
Or vous voulez simplement des explications
Or vous trouvez des fotes dortograff
Then
Send me a mail at dostoivsky@hotmail.com

Voilà.

Je remercie DARKSIDIOUS, Koiu, ElDoktor, Spr et tout ceux qui m'ont conseillé.

Je tiens à préciser que pour la modif de ActivDesktop, ça ne vient pas du truc d'administration posté il y a quelques temps (ou en tout cas j'ai pas regardé)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
Jujufouq
Messages postés
254
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
5 mars 2006
 -
Pas d'accord avec iubito, faut regarder le titre et le comprendre!!! ;-)
D'accord avec Programmix, parce que là, c'est du charabia renforcé!!!

Bon, allez, bon courage à toi vbsupernul. @+
Signaler
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
 -
Je n'ai pas testé... j'aurais aimé trouver une Capture... De plus (je sais c'est du détail), il me parait important de nommer plus explicitement les boutons sans être obligé de lire le code pour savoir ce qu'ils font...
Signaler
cs_iubito
Messages postés
629
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
9 octobre 2006
 -
cherche Tweak UI sur Internet ;)
Franchement ça me déçoit, le projet ne peut pas se charger et après quand je le fais manuellement il ne peut pas s'exécuter... bon et puis moi j'm'attendais à un truc du genre du cherche "MSN" et ça te déniche tous les endroits où le mot MSN est présent, ça te présente ça sous forme comme dans le regedit et que tu peux tout modifier.... ou supprimer!
S'inscrire maintenant

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.

Du même auteur (Vbsupernul)