Bonjour,

J'ai fait un script HTA pour changer fond écran !!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Bouton 	
<INPUT TYPE=""file"" NAME=""inFichier"" SIZE="30" STYLE="HEIGHT:25;WIDTH:300" onChange="fichecran">
 
<INPUT TYPE="BUTTON" STYLE="HEIGHT:25;WIDTH:165" ONCLICK=""Ecran()"" VALUE="Appliquer">
 
 
 'Programe changement écran
SUB Ecran
NewWallPaper = fichecran.value
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.RegRead("HKEY_CURRENT_USER\Control Panel\desktop\Wallpaper")
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\desktop\Wallpaper", NewWallPaper
Set WshShell = Nothing 
END SUB

Je n'arrive pas a récupérer le variable de lien de l'image !!

Aidez moi Svp

Je vous remercie d'avance