sfondo cambiato all'avvio

[snake78]

Siccome molte volte può dar fastidio che lo sfondo sia sempre lo stesso lo si può cambiare ad ogni avvio?
Se, si come?

[snake78]

Il programmino è questo e lo si trova tra i tutorial precisamente qui: http://forum.hwupgrade.it/showthread.php?s=&threadid=721217 però non funzia. Sapete risolvermi il problema?
Thx. ciao.

Option Explicit
Dim iAccident, iNumber, iCounter
Dim szFolder, szWallpaper, szFileType
Dim objFileSystem, objFolder, objFile
iNumber = 0
iCounter = 0
szFolder = “C:\Sfondi”
szWallpaper = “C:\Sfondi\wallpaper.jpg”
set objFileSystem = CreateObject(“Scripting.FileSystemObject”)
set objFolder = objFileSystem.getFolder(szFolder)
‘ Determina numero dei file
iNumber = objFolder.files.count
do
‘ Genera un numero casuale
randomize
iAccident = Fix(rnd*(iNumber)) + 1
‘ Inserire il nome del file nel Registry
for each objFile in objFolder.files
iCounter = iCounter+1
If iCounter = iAccident then
szFileType=objFile.Type
if szFileType = “Immagine JPEG” then
Call objFile.Copy(szWallpaper, true)
end if
End if
next
loop until szFileType = “Immagine JPEG”


MI da errore in riga 7 carattere 12 (carattere non valido) codice 800A0408 origine: errore di compilazione di microsoft vbscript

Thx mille.
Ciao!

[snake78]

up

[Leron]

per non attivare l'activedesktop io uso un programmino che si chiama wallpaper sequencer, è leggero e ha il pregio di cambiare lo sfondo (ha un'infinità di impostazioni) all'avvio e uscire, così da non occupare ram

[netquik]

mmm...

esisteva un powertoy di microsoft BGSWITCH


è stata rimossa se non erro da Mcrosoft

ma se installata funziona ancora...

se fai un aricerca troverai un pacchetto sulle powertoys rimosse da Microsoft ma questo non funziona... perchè chi ha compilato l'installer ha fatto degli errori nel INF

smanettandoci un po penso di vaer corretto tutto

devo ancora testare... manca cmq un unistaller (ho fatto un reg per la disinstallazione)

anzi approfitto per sapere se qualcuno di voi può produre un installer con unistall (mi contatti)

se lo volete provare fatevi sentire...

----------------------------------------------

per quanto riguarda lo script non vedo errori a prima vista...

hai creato anche il file htm?

[Leron]

Originariamente inviato da netquik
mmm...

esisteva un powertoy di microsoft BGSWITCH


è stata rimossa se non erro da Mcrosoft

ma se installata funziona ancora...

se fai un aricerca troverai un pacchetto sulle powertoys rimosse da Microsoft ma questo non funziona... perchè chi ha compilato l'installer ha fatto degli errori nel INF

smanettandoci un po penso di vaer corretto tutto

devo ancora testare... manca cmq un unistaller (ho fatto un reg per la disinstallazione)

anzi approfitto per sapere se qualcuno di voi può produre un installer con unistall (mi contatti)

se lo volete provare fatevi sentire...

----------------------------------------------

per quanto riguarda lo script non vedo errori a prima vista...

hai creato anche il file htm?

per creare installer e uninstaller puoi dare un'occhiata a InnoSetup

ho partecipato alla traduzione, in molti casi fa le scarpe a install shield, ed è free e open source

[netquik]

grazias Leron.. vado a vedere :)

[netquik]

Bhè grazie ancora Leron...

ho fatto tutto con InnoSetup (bel programma)

dato che sto qua per chi lo volesse provare

Background Switcher Powertoy (Beta) 1.0 (http://www.tweakness.net/files/BGSwitch.rar)

[snake78]

Originariamente inviato da netquik
mmm...


per quanto riguarda lo script non vedo errori a prima vista...

hai creato anche il file htm?

Certo il file htm l'ho creato.

[Leron]

Originariamente inviato da netquik
Bhè grazie ancora Leron...

ho fatto tutto con InnoSetup (bel programma)

dato che sto qua per chi lo volesse provare

Background Switcher Powertoy (Beta) 1.0 (http://www.tweakness.net/files/BGSwitch.rar)
OT: se ti piace il programma, puoi provare anche inno setup extensions che ti permette di fare installer con sfondi, a pieno schermo, con musiche e dinamici ;)


scusate l'OT

[netquik]

Certo il file htm l'ho creato.


Snake prova a mettere le virgolette normali

ah e dimenticavo...
magari prova il programma che ho postato...
funziona ho testato



puoi provare anche inno setup extensions

grazie ancora Leron (anche se non penso mi servirà molto... cmq il programma è davvero buono)

[snake78]

Il programma li che hai testato io l'ho installato dopodichè cosa bisogna fare?

[snake78]

Originariamente inviato da netquik
Snake prova a mettere le virgolette normali

ah e dimenticavo...
magari prova il programma che ho postato...
funziona ho testato


Eccezionale quel programmino li ke hai fatto!
Mi dici come l'hai fatto?
Thx.

[netquik]

ciao Snake

avevo dimenticato di dire che aggiunge un tab Slideshow con parecchie opzioni in Proprietà del desktop...


non l'ho fatto io...

l'ho riesumato dai vecchi powertoys beta...

e poi l'ho rivompilato in una installazione con InnoSetup (grazie a Leron)

[snake78]

cmq molto carino!!!!