sfondo cambiato all'avvio

snake78 · 17-09-2004, 17:39

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

snake78 · 17-09-2004, 20:43

Il programmino è questo e lo si trova tra i tutorial precisamente qui: http://forum.hwupgrade.it/showthread...hreadid=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 · 18-09-2004, 08:57

up

Leron · 18-09-2004, 11:39

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 · 18-09-2004, 17:37

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 · 18-09-2004, 17:40

Quote:

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 · 18-09-2004, 17:57

grazias Leron.. vado a vedere

netquik · 19-09-2004, 00:36

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

snake78 · 19-09-2004, 11:46

Quote:

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 · 19-09-2004, 12:12

Quote:

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

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 · 19-09-2004, 14:37

Quote:

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

Quote:

puoi provare anche inno setup extensions

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

snake78 · 20-09-2004, 08:00

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

snake78 · 20-09-2004, 11:40

Quote:

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 · 20-09-2004, 13:45

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 · 20-09-2004, 14:27

cmq molto carino!!!!

17-09-2004, 17:39	#1
snake78 Senior Member Iscritto dal: Mar 2001 Città: Vicenza Messaggi: 665	sfondo cambiato all'avvio Siccome molte volte può dar fastidio che lo sfondo sia sempre lo stesso lo si può cambiare ad ogni avvio? Se, si come?

18-09-2004, 11:39	#4
Leron Senior Member Iscritto dal: Aug 2002 Città: Trento Messaggi: 40877	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 __________________ http://www.trentografica.itGrafica e Fotografia a Trento

18-09-2004, 17:37	#5
netquik Senior Member Iscritto dal: May 2001 Messaggi: 1740	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? __________________ www.tweakness.net - Trucchi per il PC DECALOGO ANTISPY - GUIDA A HIJACKTHIS - GUIDA AI SERVIZI DI WIN XP - CONSIGLI ANTIVIRUS PER BART'S PE - SP2 SLIPSTREAMING - FAQ WINDOWS XPSP2 - I SERVIZI DOPO SP2 - XP SP2 UNATTENDED - GUIDA A nLite

18-09-2004, 17:57	#7
netquik Senior Member Iscritto dal: May 2001 Messaggi: 1740	grazias Leron.. vado a vedere __________________ www.tweakness.net - Trucchi per il PC DECALOGO ANTISPY - GUIDA A HIJACKTHIS - GUIDA AI SERVIZI DI WIN XP - CONSIGLI ANTIVIRUS PER BART'S PE - SP2 SLIPSTREAMING - FAQ WINDOWS XPSP2 - I SERVIZI DOPO SP2 - XP SP2 UNATTENDED - GUIDA A nLite

19-09-2004, 00:36	#8
netquik Senior Member Iscritto dal: May 2001 Messaggi: 1740	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 __________________ www.tweakness.net - Trucchi per il PC DECALOGO ANTISPY - GUIDA A HIJACKTHIS - GUIDA AI SERVIZI DI WIN XP - CONSIGLI ANTIVIRUS PER BART'S PE - SP2 SLIPSTREAMING - FAQ WINDOWS XPSP2 - I SERVIZI DOPO SP2 - XP SP2 UNATTENDED - GUIDA A nLite

17-09-2004, 20:43	#2
snake78 Senior Member Iscritto dal: Mar 2001 Città: Vicenza Messaggi: 665	Il programmino è questo e lo si trova tra i tutorial precisamente qui: http://forum.hwupgrade.it/showthread...hreadid=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!

18-09-2004, 08:57	#3
snake78 Senior Member Iscritto dal: Mar 2001 Città: Vicenza Messaggi: 665	up

20-09-2004, 08:00	#12
snake78 Senior Member Iscritto dal: Mar 2001 Città: Vicenza Messaggi: 665	Il programma li che hai testato io l'ho installato dopodichè cosa bisogna fare?

20-09-2004, 13:45	#14
netquik Senior Member Iscritto dal: May 2001 Messaggi: 1740	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) __________________ www.tweakness.net - Trucchi per il PC DECALOGO ANTISPY - GUIDA A HIJACKTHIS - GUIDA AI SERVIZI DI WIN XP - CONSIGLI ANTIVIRUS PER BART'S PE - SP2 SLIPSTREAMING - FAQ WINDOWS XPSP2 - I SERVIZI DOPO SP2 - XP SP2 UNATTENDED - GUIDA A nLite

20-09-2004, 14:27	#15
snake78 Senior Member Iscritto dal: Mar 2001 Città: Vicenza Messaggi: 665	cmq molto carino!!!!

Strumenti
Mostra una versione stampabile Invia questa pagina per email