on error resume nextSet fso = CreateObject("Scripting.FileSystemObject")pt="C:\Users\mr.j\Pictures\gif" '存放圖片的文件夾setbmpfol=fso.getfolder(pt)for each files in bmpfol.filesiffso.GetExtensionName(files.path)="bmp" Then bmppt = bmppt&files.path&"|"nextbmppt = left(bmppt,len(bmppt) - 1)ifbmppt = ""thenmesfbox"您選擇的目錄中不含有BMP圖片，程序將退出!",64wscript.quitend ifbmpar = split(bmppt,"|")Set ws = CreateObject("WScript.Shell")for i = 0 to ubound(bmpar)pt = bmpar(i)ws.RegWrite"HKEY_CURRENT_USER\ControlPanel\Desktop\Wallpaper","0","REG_SZ"ws.RegWrite"HKEY_CURRENT_USER\ControlPanel\Desktop\WallpaperStyle","2","REG_SZ"ws.RegWrite"HKEY_CURRENT_USER\SoftWare\MicroSoft\Windos\CurrentVersion\Explorer\Advanced\ListviewShadow","1","REG_DWORD"ws.run"gpupdata/force",0ws.run"RunDll32.exe USER32.DLL,UpdatePerUserSystemParaMeters"wscript.sleep 100 '更換壁紙的時間if i = ubound(bmper) then i = -1next