Installer des fonts depuis un .vbs

Installer des fonts depuis un .vbs - VB/VBA/VBS - Programmation

Marsh Posté le 24-02-2005 à 20:15:05    

Voila , je voudrais installer une police de caractere depuis un script vbs .
 
au debut , je me suis contenté de copier le fichier de la police dans le dossier C:\Windows\Fonts\ , et en fait , cela ne marche pas tant que le dossier en question n'a pas été ouvert dans l'explorateur
 
j'ai lu quelque part sur le net qu'il fallait "enregistrer" la police dans le systeme ...
 
quelqu'un saurait le faire avec un ".vbs" ??

Reply

Marsh Posté le 24-02-2005 à 20:15:05   

Reply

Marsh Posté le 25-02-2005 à 19:08:43    

Je repose ma question autrement :
 
Ceci est un code VB6 :

Code :
  1. Private Const HWND_BROADCAST = &HFFFF&
  2. Private Const WM_FONTCHANGE = &H1D
  4. Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
  6. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  8. Function SaveFonts(FichierPolice)
  9.     res = AddFontResource(FichierPolice)   'Installation de la police
  10.    
  11.     If res > 0 Then 'Test de l'install de la police
  12.         SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0 'L'install à réussit, on valide la police dans les registres
  13.         msg = "Police : " & FichierPolice & " à été installée" & Chr(13)   'Message de confirmation d'ajout
  14.     Else
  15.         msg = "Police : " & FichierPolice & " n'a pas été installée" & Chr(13)   'Message comme quoi ce n'est pas installé
  16.     End If
  18.     MsgBox msg  'Affichage du rapport
  19. End Function


 
Comment faire la meme chose , mais depuis un script VBS ? ( c'est surtout la fonction SendMessage qui m'interresse)


Message édité par TofClock le 25-02-2005 à 19:10:13
Reply

Marsh Posté le 26-02-2005 à 22:14:52    

je ne veux pas dire de bétise - je m'étais renseigné sur différents site internet - et j'avais vu qu'en Vbs on ne pouvait pas déclarer des API windows ! Des fonctions, des procédure, oui, mais pas les API. Je m'étais rabattu alors sur le VB6...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed