admin 管理员组

文章数量: 1184232
闲得慌，随手做了个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

本文标签： 脚本 下载器 系统 VBScript Windows

版权声明：本文标题：使用VBscript变下的Windows系统下载器脚本 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1743779147a2478064.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。