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

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



L'auteur

Mike Gagnon
Canada 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é 6961 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description
  1. Veuillez noter que ceci requiert que WMI soit installé
  2. A noter que le code ci-bas ajoute deux entrées dans votre régistre.
  3. 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 !.?
;-)


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3