eiao
Messages postés5Date d'inscriptionjeudi 8 février 2007StatutMembreDernière intervention 3 mars 2007
-
8 févr. 2007 à 14:11
eiao
Messages postés5Date d'inscriptionjeudi 8 février 2007StatutMembreDernière intervention 3 mars 2007
-
3 mars 2007 à 01:58
Bonjour,
Je débute en VBS et j'aimerais savoir si qq1 a deja realisé un script pour changer un fond d'écran sous windows XP Pro, est ce faisable en VBS ?
Merci
Eiao
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 20091 13 févr. 2007 à 12:39
Voici l'API
Private Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfoWallpaper Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Et comment l'utiliser
Call SystemParametersInfoWallpaper(SPI_SETDESKWALLPAPER, 0&, sFileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
eiao
Messages postés5Date d'inscriptionjeudi 8 février 2007StatutMembreDernière intervention 3 mars 2007 8 févr. 2007 à 18:52
Je voudrais changer le papier peint avec un script qui se lance au démarrage (en ligne de commande) pour mettre un papier peint de mon choix. Est ce que c'est faisable en vbs ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
eiao
Messages postés5Date d'inscriptionjeudi 8 février 2007StatutMembreDernière intervention 3 mars 2007 11 févr. 2007 à 00:12
bonjour JMarc,
Merci pour l'exemple, mais je cherche du coté de l'API, parce que le pb avec les clés BDR (du moins quand je fais les modifs à la main), c'est que le changement n'est pris en compte qu'à la reconnexion, je voudrais qu'il soit immédiat, comme avec la commande " Etablir en tant que papier peint".
Le VBS permet il ce genre d'appel aux fonctions API ?
Merci
Eiao
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 20091 19 févr. 2007 à 07:19
Oups, ce n'est que maintenant que je lis que c'était un code VBS que tu voulais. Sorry.
Les API de Windows ne sont (à ma connaissance) pas accessibles via VBS mais bien via VB. Ce que tu pourrais faire, ce serait de développer une petite DLL VB avec une fonction publique qui te permettrait via un code VBS de changer le wallpaper.
eiao
Messages postés5Date d'inscriptionjeudi 8 février 2007StatutMembreDernière intervention 3 mars 2007 3 mars 2007 à 01:58
Bonjour,
Il y a bien longtemps je faisais un peu de VB, mais je n'ai plus le temps de m'y remettre.... Par contre, pour info, j'ai trouvé sur le net une fonction accessible en VBS qui couplée à une modif de la bdr, permet de changer le fonds d'écran par unpetit script tout simple (ce que je cherchais pour intégrer dans un script de login ).
------------------------------------------------------------
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")