ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment changer l'allure d'Atoutfox ('changer' les couleurs) avec WMI

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 09 - Automation > WMI (Windows Management Instrumentation) Comment changer l'allure d'Atoutfox ('changer' les couleurs) avec WMI # 0000000211 ajouté le 16/06/2005 13:58:25 et modifié le 29/03/2006 consulté 7220 fois Niveau initié Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0
	Veuillez noter que ceci requiert que WMI soit installé A noter que le code ci-bas ajoute deux entrées dans votre régistre. Pour reverser l'effet. a) Dans internet explorer Tools->Internet options-> accessibilty ->User Style sheet (Décocher) ou b) Dans la base de régistre supprimer l'entré 'user style sheet' qui se trouve dans [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Styles] "User Stylesheet"="c:\\untitled-1.css" A noter que ceci fonctionne pour tous les site web qui ont un tag 'body' dans le code.
	Code source :
	#DEFINE HKEY_CURRENT_USER 2147483649 private var1 && Variable pour créer le fichier css var1 ='body {'+; 'background-color: #9999FF;'+; 'font-family: Arial, Helvetica, sans-serif; '+; 'font-size: 1em;'+; 'line-height: 2em;'+; 'color: #FF66FF;'+; 'margin-top: 0.1em;'+; 'margin-right: 0.1em;'+; 'margin-bottom: 0.1em;'+; 'margin-left: 0.1em}' fso = CreateObject('Scripting.FileSystemObject') tf = fso.CreateTextFile('C:\untitled-1.css', .t.) && Créer un fichier css tf.WriteLine(var1) && Écrire dans le fichier css tf.Close && Fermer le fichier lcComputer = "." oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" +; lcComputer + "\root\default:StdRegProv") && Chemin pour le régistre lcKeyPath = "Software\Microsoft\Internet Explorer\Styles\" lcValueName = "User Stylesheet" lcValue = "c:\untitled-1.css" oReg.SetStringValue(HKEY_CURRENT_USER,lcKeyPath,lcValueName,lcValue) && Créer une clef dans le régistre lcValueName = "Use My Stylesheet" lcValue = "1" oReg.SetDwordValue(HKEY_CURRENT_USER,lcKeyPath,lcValueName,lcValue) && Deuxième entrée oIe = CREATEOBJECT("hyperlink") oIe.navigateTo('http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000210') && Naviguer sur AtoutFox.
	Commentaires
	le 16/06/2005, Francis Faure a écrit : hé, lui, pourquoi il veut changer l'allure d'AtoutFOX !.? ;-)

Comment changer l'allure d'Atoutfox ('changer' les couleurs) avec WMI

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)