使用VBscript变下的Windows系统下载器脚本

最新推荐文章于 2023-08-04 09:01:57 发布

Violet_Ice紫冰

最新推荐文章于 2023-08-04 09:01:57 发布

阅读量1.6k

点赞数

分类专栏： VBscript 文章标签： VBscript vbs下载器脚本

本文链接：https://blog.csdn.net/lrf8643/article/details/77964110

版权

VBscript 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

闲得慌，随手做了个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