Petit prog qui sert à changer automatiquement le papier-peint du bureau à chaque démarrage de l'ordi.

Soyez le premier à donner votre avis sur cette source.

Vue 9 792 fois - Téléchargée 516 fois

Description

Voici un petit programme qui sert pour changer automatiquement l'image d'arrière-plan du bureau, fonctionnant avec 1 seul exécutables :

Lorsque que l'on ouvre normalemnt l'exécutable, ça ouvre unr form de configuration :
On choisit le nombre d'images (entre 2 et 8)
On met le chemin d'accès aux images dans les textboxs
On clique sur valider, puis les images sont automatiquement copiés dans : C:\program files\MagicPapierPeint\, et renommé en Image1.bmp, Image2.bmp ...
Aussi, le prog ChangeImage.exe et inscrit dans le registre, pour qu'il s'exécute au démarrage et qu'il change l'image.

Pour qu'il change l'image et que la form ne s'ouvre pas, il faut ouvrir l'exé avec -1 ou - quelquechose, c'est ce qu'il y a dans le registre pour le changement des images

Si on ne veut plus de changement d'images, il suffit simplement de cocher le checkbox en bas du prog : Les copies des images sont supprimées, ChangeImage.exe ne s'ouvre plus au démarrage ... Il reste à aller dans les propriété de l'affichage, bureau, puis choisir l'unique image.

Le seul petit inconvénient de ce prog, c'est qu'il faut obligatoirement des images en format bitmap (*.BMP) Donc les images JPEG (ou les tous les autres format) doivent être converties en bitmap, avec un logiciel photos (ex : comme mspaint.exe)

Fonctionne pour XP, ME (mais peut-être pas pour les autres Windows)

XP ne prend que les images BitMaP, (d'accord, quand on choisit l'image dans les propriétés de l'arrière-plan, il y a aussi .gif et .jpg, MAIS les images sont automatiquement CONVERTIS pas Windows en BMP)

Source / Exemple :


Téléchargez le zip ==> Programmé avec vb.net (mais très simple à traduire en vb6)

Conclusion :


Je n'ai pas vu de bugs, mais si il y en a, informez-moi !
Merci à la personne qui a envoyé les commentaires sur cette source.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7 -
J'ai refais la source avec un seul exécutable.
Merci pour tes commentaires.
cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7 -
Bon, je vais essayer de regarder ça et de refaire la source.
Merci
Horfee
Messages postés
192
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
10 août 2009
-
bon je viens de regarder les sources...hum hum!! lol le prend pas mal mais c pas tip top
pour ce genre de programme tu vois, je pense qu'il faut prendre du recul et s'imaginer une situation plus...grande. Je m'explique : image que dans 5 mois tu veuille reprendre ton source, et faire en sorte qu'il prenne un dossier avec 100 images, tu vas faire 125 fois un copier-coller?
non, le truc vraiment ideal serait de configurer un ou plusieurs repertoires qui contiennent les fichiers images. Ensuite au demarrage on prend une image au hasard dans la liste des images des repertoires. Tu vois ce que je veu dire?
donc en clair, si tu veu faire ca, il te faudrait utiliser les directoryEntry pour lister les entrées ( fichiers images) des repertoires, des fonctions random ( cf exemple en fin), et des accès au registre ( ce que tu fais dejà)
si tu veu plus de details fais moi signe ;)
Ensuite, si tu veu programmer plus "propre", utilise les classe du framework pour l'accès au registre ( registry )plutot que le WScript : ca c'était utilisé sous VB6, mnt on est des grands et on utilise VB.NET.
Enfin, evite de déclarer les objets sans typage ( cf "Dim NI") car celà ralentit les traitements : ici ca ne pose de pb mais dans d'autre cas ca pourrait te jouer de mauvais tour !!!

voilà bonne prog ++

Dim ran As New Random(Now.Millisecond)
Dim i As Integer
Randomize()
Dim j As Integer
For j = 0 To 10
i = ran.Next Mod 10
MsgBox(i)
Next
Horfee
Messages postés
192
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
10 août 2009
-
lol donc :
service windows : ca permet a l'exec de se lancer au démarrage de windows et de tourner en arriere plan ( click droit sur le poste de travail->services)

ensuite g windows xp et il prend le format jpeg

ensuite si tu ne touche qu'au registre, pkoi copier les images???

pour lees arguments de la ligne de commande :
Dim commands As String = Microsoft.VisualBasic.Command()

select case commands.indexof("-")
case is <> -1
...
case is = -1
...
end select
...


allé je v regarder les sources ;)
cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7 -
Bonjour


> Tu as raison, seulement je ne sais pas faire un seul exécutable avec 2 partie, avec - qqchose (si tu sais comment on fait, peut-tu-me le dire ...)


> Mais justement, c'est ça que fais le prog !

<en plus en bmp, le format le plus lourd)>
> T'as raison, mais Windows accèpte que les image bitmap pour le fond d'écran (dumoins, sur mon pc)

<restrictions du nombres d'images ( max 8 min 2 )>
> C'est logique qu'il faut min 2 image (si ya qu'une image, comment va-elle changer ?!)
max 8 : Je trouve que 8, c'est déja pas mal. (Pour en mettre plus, ta qu'a faire des copier/coller de certains code et de changer le n°)

<faire ton exec en style service windows>
> ça veut dire quoi ???

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.