为了账号安全,请及时绑定邮箱和手机立即绑定

自己写了一个实现动态桌面的vbs文件,但是运行使报错下面是详细信息

自己写了一个实现动态桌面的vbs文件,但是运行使报错下面是详细信息

落子鸢 2017-03-31 19:57:45
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
查看完整描述

1 回答

?
qq_尚晨_03700611

TA贡献1条经验 获得超0个赞

第六行,if和fso变量之间没有空格,你的if不能识别为关键字

查看完整回答
反对 回复 2017-07-20
  • 1 回答
  • 0 关注
  • 2277 浏览
慕课专栏
更多

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信