Soyez le premier à donner votre avis sur cette source.
Vue 7 769 fois - Téléchargée 548 fois
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 ;)
D'accord avec Programmix, parce que là, c'est du charabia renforcé!!!
Bon, allez, bon courage à toi vbsupernul. @+
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!
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.