PETIT PROG QUI SERT À CHANGER AUTOMATIQUEMENT LE PAPIER-PEINT DU BUREAU À CHAQUE
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30386-petit-prog-qui-sert-a-changer-automatiquement-le-papier-peint-du-bureau-a-chaque-demarrage-de-l-ordi
https://codes-sources.commentcamarche.net/source/30386-petit-prog-qui-sert-a-changer-automatiquement-le-papier-peint-du-bureau-a-chaque-demarrage-de-l-ordi
- Messages postés
- 250
- Date d'inscription
- vendredi 14 janvier 2005
- Statut
- Membre
- Dernière intervention
- 27 janvier 2011
7Merci pour tes commentaires.
- Messages postés
- 250
- Date d'inscription
- vendredi 14 janvier 2005
- Statut
- Membre
- Dernière intervention
- 27 janvier 2011
7Merci
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
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 ;)