ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 7897|回复: 7

[原创] 神奇的EXCEL加密之5--乱码文字变精美图片

[复制链接]

TA的精华主题

TA的得分主题

发表于 2008-12-9 14:18 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:保护和加密编程
一堆乱码的文字,经过VBA处理,就变成美丽的画面


注意把附件解压在C盘根目录下面,再运行


Sub figsy()
Set x = CreateObject("adodb.stream")
x.Type = 2
x.Open
x.LoadFromFile "c:\p.txt"
x.writetext kk
x.Position = 0
x.Type = 1
x.Position = 2
z = x.read
x.Position = 0
x.write z
x.savetofile "c:\pp.jpg", 2
End Sub


也可利用该技术可把较小的文件以乱码文字的方式储存在EXCEL单元格里

[ 本帖最后由 figfig 于 2008-12-9 14:28 编辑 ]

P.rar

72.83 KB, 下载次数: 242

TA的精华主题

TA的得分主题

发表于 2008-12-13 16:27 | 显示全部楼层
不错,可是不知原理是什么?

TA的精华主题

TA的得分主题

发表于 2008-12-13 18:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我只能做一些基础工作,机械性的翻译一下,至于这中间的11句语言,一环扣一环,也不太明白,这KK是从那里钻出来也不知道。

'Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作

Sub figsy()
Set x = CreateObject("adodb.stream") '创建对像,
x.Type = 2
x.Open                      '打开对像,
x.LoadFromFile "c:\p.txt"   '文件源   '将FileName指定的文件装入对像中,参数FileName为指定的用户名。
x.writetext kk     '将指定的文本数据装入对像中。
x.Position = 0     '指定或返回对像内数据的当前指针
x.Type = 1         '指定或返回的数据类型,可选参数为:adTypeBinary = 1    adTypeText = 2
x.Position = 2
z = x.read         '读取指定长度的二进制内容。不指定则读取全部。
x.Position = 0
x.write z          '将指定的数据装入对像中。
x.savetofile "c:\pp.jpg", 2   '结果文件   '将对像的内容写到FileName指定的文件中
End Sub

TA的精华主题

TA的得分主题

发表于 2008-12-14 12:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-12-14 12:41 | 显示全部楼层
骗人的东西,不过是将图片文件的后缀改成了.txt,改回去就行了,根本不用运行程序。用AcdSee直接就可以打开。

TA的精华主题

TA的得分主题

发表于 2009-3-19 02:06 | 显示全部楼层
骗人的东西,不过是将图片文件的后缀改成了.txt,改回去就行了,根本不用运行程序。用AcdSee直接就可以打开,呵呵

TA的精华主题

TA的得分主题

发表于 2010-4-16 13:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
看看再说看看再说

TA的精华主题

TA的得分主题

发表于 2010-4-16 14:15 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:57 , Processed in 0.048321 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表