impostare un'immagine di sfondo ad ogni avvio del computer in automatico

[matrix866]

come si fa?

[Sir J]

cioe', devi cambiare l'immagine del desktop?


comunque questo topic lo vedo chiuso....

[icestorm82]

Originariamente inviato da Sir J
cioe', devi cambiare l'immagine del desktop?


comunque questo topic lo vedo chiuso....

Previsione ottimistica....


Cmq spiegati meglio....

[matrix866]

Voglio semplicemente che ogni volta che accendo il computer mi appare un immagine di sfondo (desktop) diversa. Ovviamente io devo poter selezionare una cartella in cui deve andare a pescarsi le immagini.

Va bene così? Me gapisti?

[Birbantello]

ricordo di aver usato un programma webshot desktop che faceva proprio questo.

[dragone17]

WebShots Desktop

puoi crearti diverse collezioni di immagini da usare, e decidere ogni quanto cambiarla. una volta al giorno, una alla settimana, ogni ora, ogni mezz'ora, ogni 15 minuti.
però devi tenerti il programmino (che cmq è piccolo) in esecuzione automatica perchè lo faccia.

[matrix866]

su un giornale ho trovato una serie di comandi visualbasicscript da inserire in esecuzione automatica, ma non mi funziona. Ecco il comando:


Dim iAccident, iNumber, iCounter
Dim szFolder, szRegKey, szWallpaper
Dim objShell, objFileSystem, objFolder

iNumber = 0
iCounter = 0
szFolder = "E:\HP Photosmart 850\Immagini"
szRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\general\Wallpaper"
set objShell=Wscript.CreateObject("Wscript.Shell")
set objFileSystem=CreateObject ("Scripting.FileSystemObject")
set objFolder = objFileSystem.getFolder(sZFolder)
'Conta il numero di immagini
iNumber = objFolder.Files.Count
'Genera numero casuale
randomize
iAccident = Fix(rnd*(iNumber)) + 1
' Registra il file entro il Registro
for each objFile in objFolder.files
iCounter = iCounter+1
If iCounter = iAccident Then
szWallpaper = szFolder & "\" & objFile.Name
objShell.RegWrite szRegKey,szWallpaper
End If
Next


Qualcuno che ne capisce mi sa dire dove ho sbagliato?