Vbscript 我的代码出现错误800A1C2_Vbscript

Vbscript 我的代码出现错误800A1C2

vbscript

Vbscript 我的代码出现错误800A1C2,vbscript,Vbscript,我有一个应该从Internet下载图像并将其设置为墙纸的代码，但它一直说参数数量错误或属性分配无效：SaveToFile strUser = CreateObject("WScript.Network").UserName Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP") Dim bStrm: Set bStrm = CreateObject("ADODB.Stream") xHttp.Open "GET", "https://im

我有一个应该从Internet下载图像并将其设置为墙纸的代码，但它一直说参数数量错误或属性分配无效：

SaveToFile

strUser = CreateObject("WScript.Network").UserName
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("ADODB.Stream")
xHttp.Open "GET", "https://image.spreadshirtmedia.com/image-server/v1/compositions/1009468864/views/1,width=300,height=300,version=145225706    1/anonymous-seal-t-shirts-men-s-tall-t-shirt.jpg", False
xHttp.Send

With bStrm
  .Type = 1 '//binary
  .Open
  .Write xHttp.responseBody
  .Savetofile "C:\Users\",strUser,"\downloads", 2 '//overwrite
End With

Dim wshShell 
Set wshShell = WScript.CreateObject("WScript.Shell") 
sUserName = wshShell.ExpandEnvironmentStrings("strUser")

Set oShell = CreateObject("WScript.Shell") 
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0) 
sWallPaper = "C:\Users\eskonr\Pictures\Nice-Windows-7.jpg"

' update in registry 
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper

' let the system know about the change 
oShell.Run "C:\WINDOWS\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

MsgBox "done"

当您显然希望从前三个元素构建路径时，您正在尝试使用4个参数调用

.SaveToFile

，

strUser

，

“\downloads”

，以及

。使用串联运算符进行以下操作：

.SaveToFile "C:\Users\" & strUser & "\downloads", 2 '//overwrite

.SaveToFile "C:\Users\" & strUser & "\downloads", 2 '//overwrite