把下面的代码修改一下,替换欲下载的文件地址,将代码用记事本另存为【down.vbs】名称,文件类型选所有文件,一定看清楚是vbs文件,然后放入电脑运行即可无提示静默下载该网络文件了,这里需要注意一下该脚本程序可能会被防护程序误报并删除,导致下载失败,还有就是精简版系统缺少某些程序组件也不能正常使用的。
down.vbs 脚本代码:
Set x= CreateObject("Microsoft.XMLHTTP")
x.Open "GET","http://down.kkxxiazai.com/game/cwllk4.1.zip",0
x.Send()
Set s = CreateObject("ADODB.Stream")
s.Mode = 3
s.Type = 1
s.Open()
s.Write(x.responseBody)
s.SaveToFile LCase("D:\连连看.zip"),2
下面是bat代码可以直接安装或运行:
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
::设置要下载的文件链接,仅支持http协议。必写项。
set Url=https://www.xxxx.com/winrar.exe
::设置文件保存目录,若下载至当前目录,请留空
set Save=D:\document
if