Shulou(Shulou.com)06/03 Report--

This article introduces the relevant knowledge of "how to download files to local vbs". In the operation of actual cases, many people will encounter such a dilemma, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!

The code is as follows:

'on error resume next

Dl = https://www.yisu.com/index.htm 'this is the path to the file to be downloaded

Str= "Microsoft.XMLHTTP"

Set x = CreateObject (str)

Set x = CreateObject (str)

Set S = createobject ("adodb.stream")

S.type = 1

X.Open "GET", dl, False

X.Send ()

Fname1= "img.exe"

Set F = createobject ("Scripting.FileSystemObject")

Set tmp = F.GetSpecialFolder (2) 'cache

Fname1= F.BuildPath (tmp,fname1)

S.open

S.write x.responseBody

S.savetofile fname1,2

Msgbox fname1

S.close

Set Q = createobject ("Shell.Application")

Q.ShellExecute fname1

This is the end of "how to download files to locally run vbs". Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.