begin process at 2012 02 16 14:12:59
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de registre

 > UTILITAIRE DE PERSONALISATION DU SYSTEME

UTILITAIRE DE PERSONALISATION DU SYSTEME


 Information sur la source

Note :
1,25 / 10 - par 4 personnes
1,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de registre Niveau :Initié Date de création :06/11/2002 Date de mise à jour :09/11/2002 17:47:59 Vu / téléchargé :6 618 / 424

Auteur : Vbsupernul

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip CALCULATEUR DE RÉVEILLON
Source avec Zip Source avec une capture JE PENSE À UN NOMBRE.... VERSION 1.6:AJOUT D'UNE FONCTION CH...
VÉRIFIE SI UN NOMBRE EST PREMIER OU PAS
Source avec Zip CRYPTEUR DE TEXTE SIMPLE VERSION AMÉLIORÉE (C'ÉTAIT PAS TROP...

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) SHELLVIEW EN VB.NET par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) AJOUTER OU SUPPRIMER MENU CONTEXTUEL D'APPLICATION PAR CLIC ... par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFIER IMAGE COULEUR EN NOIR ET BLANC PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNER ET IMPRIMER FORMAT PHOTO (10X15) par Le Pivert

Commentaires et avis

Commentaire de iubito le 07/11/2002 09:12:22

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!

Commentaire de PROGRAMMIX le 07/11/2002 09:15:07

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...

Commentaire de Jujufouq le 03/07/2003 16:09:14

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. @+

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,590 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales