Option Explicit

' ================= 配置区域 =================
Dim wsh, SaveFolder
Set wsh = CreateObject("WScript.Shell")
' 设置保存图片的文件夹路径
SaveFolder = wsh.ExpandEnvironmentStrings("%USERPROFILE%") & "\Pictures\BingWallpapers"
Set wsh = Nothing
' ===========================================

Dim objFSO, objShell, objHTTP, objStream
Dim apiUrl, jsonText, imgUrl, fileName, localPath
Dim regPath, ws

' 1....