Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UTILITAIRE DE PERSONALISATION DU SYSTEME


Information sur la source

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 021 / 408

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
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!

signaler à un administrateur
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...

signaler à un administrateur
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

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.