安装完成后可以回调,替换echo 123456789和pause就行了。
dim path set ws = CreateObject("WScript.Shell") set fso=createobject("scripting.filesystemobject") ''定义安装路径 path = ws.ExpandEnvironmentStrings("%windir%")+"\jre6\" ''创建目录 If (fso.FolderExists(path)) Then Else fso.createfolder(path) End If ''文件下载 Set xPost = CreateObject("Microsoft.XMLHTTP") Set sGet = CreateObject("ADODB.Stream") Sub DownloadToFile(url, file) xPost.Open "GET", url, False xPost.Send sGet.Type = 1 sGet.Open sGet.Write xPost.responseBody sGet.SaveToFile file, 2 sGet.Close End Sub dim url url = "http://xxx.com/jre-6-windows-i586.exe" dim fileName,batpath fileName = path+Right(url, Len(url) - InStrRev(url,"/")) DownloadToFile url, fileName batpath = path+"start.bat" set f=fso.createtextfile(batpath) ''写bat执行安装jre,完成后输出123456789,并暂停 f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause" f.close ''隐藏运行 ws.run(batpath),0,true
标签:
vbs,下载jre包,静默安装
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“vbs脚本实现下载jre包并静默安装的代码实例”评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新动态
2024年05月11日
2024年05月11日
- 物华弥新迷踪盘第十二关怎么过 迷踪盘第十二关通关方法
- 叶振棠2019-《笛子情HQCD》风行[WAV+CUE]
- 叶振棠2017-《你是我的眼HQCD》风行[WAV+CUE]
- 群星1991-飞鹰群星龙虎榜金曲收集版VOL.1-2[新加坡版][WAV+CUE]
- 王韵婵.1995-禅说【现代派】【WAV+CUE】
- 潘玮柏.2017-异类【阿尔发】【WAV+CUE】
- 群星.2013-宝丽金摘金宝典3CD【环球】【WAV+CUE】
- 物华弥新迷踪盘第十三关怎么过 迷踪盘第十三关通关方法
- 物华弥新迷踪盘第十六关怎么过 迷踪盘第十六关通关方法
- 物华弥新迷踪盘第十七关怎么过 迷踪盘第十七关通关方法
- ABC唱片-《模拟万岁.绝对人声》6N纯银镀膜[WAV+CUE]
- ABC唱片-《模拟录音六十年》6N纯银镀膜[WAV+CUE]
- ABC唱片-《鲁杰罗里奇.小提琴人生》6N纯银镀膜[WAV+CUE]
- 王菲《菲靡靡之音》[WAV+CUE][510MB]
- 海来阿木《民谣歌曲的魅力 高音测试王CD》[WAV+CUE][720MB]