10 lines
332 B
Plaintext
10 lines
332 B
Plaintext
with bStrm
|
|
.type = 1 '//binary
|
|
.open
|
|
.write xHttp.responseBody
|
|
.savetofile strDirectory + "\myImage.png", 2 '//overwrite
|
|
end with
|
|
|
|
objShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strDirectory + "\myImage.png"
|
|
objShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
|