用VBS读写二进制文件的另一种方法分享.docxVIP

虽然我没有把那个程序解密出来(如果哪位真正的高手会，麻烦指点一下) ，但是从中 领悟出了用VBS读写二进制文件的另一种方法，即 Microsoft.XMLDOM+ADODB.Stream 。 这个方法的效率比原来那个高得多，而且似乎没有文件大小限制 之前写的那篇给出的方法虽然不错，但是当文件过大时(其实很小，也就几 M)，对应 的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的 vbs程序”(看来现在的年 轻人很喜欢玩这口)，于是打开久违的百度搜索了一下，发现出现在第三。出现在第二的是 百度HI，上面也是一个恶作剧程序，而且还是加密的。我尝试着解密，却发现这个加密似 乎比前几天解密的那个病毒更变态，未果。该文档为文档投稿赚钱网作品，版权所有，违责必纠 虽然我没有把那个程序解密出来(如果哪位真正的高手会，麻烦指点一下) ，但是从中 领悟出了用VBS读写二进制文件的另一种方法，即 Microsoft.XMLDOM+ADODB.Stream 。该文档为文档投稿赚钱网作品，版权所有，违责必纠 这个方法的效率比原来那个高得多，而且似乎没有文件大小限制。 代码如下： Fun cti on ReadB in ary(FileName) Const adTypeB inary = 1 Dim stream, xmldom,