闲得慌，随手做了个Windows系统下的VBscript下载器脚本
闲来无事吃个鸡，我们直接看代码
' *******************
' vbs下载工具
' rem url 下载地址
' rem load 保存的文件名
' 作者：Violet_Ice紫冰
' *******************
dim url,load
url = inputbox("下载地址需填写完整，请保留http://或https://","请输入下载地址")
if instr(url,"://") = 0 then
Set ws=createobject("wscript.shell")
ws.run "taskkill /f /im wscript.exe"
end if
dim lownum,urllen,low
lownum = instrrev(url,"/")
urllen = len(url)
filename = right(url,urllen - lownum)
load = filename
load = load & "." & low
call wget(url,load)
sub wget(url,load)
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",url,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile load,2
end sub
闲得慌，随手做了个Windows系统下的VBscript下载器脚本
闲来无事吃个鸡，我们直接看代码
' *******************
' vbs下载工具
' rem url 下载地址
' rem load 保存的文件名
' 作者：Violet_Ice紫冰
' *******************
dim url,load
url = inputbox("下载地址需填写完整，请保留http://或https://","请输入下载地址")
if instr(url,"://") = 0 then
Set ws=createobject("wscript.shell")
ws.run "taskkill /f /im wscript.exe"
end if
dim lownum,urllen,low
lownum = instrrev(url,"/")
urllen = len(url)
filename = right(url,urllen - lownum)
load = filename
load = load & "." & low
call wget(url,load)
sub wget(url,load)
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",url,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile load,2
end sub