ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 12175|回复: 21

有没有人试过如何把嵌入excel文件的flash提取出来?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-4-29 17:33 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:其他专业开发

如题,我先是试着把文件另存为html文件。但是没有在对应的文件夹当中找到flash。

后来又试图通过编程,也没找到方法。

不知道有谁试过?有比较好的方法?

点评

知识树索引内容:5楼,属于复合文档的提取,适用于2003版。  发表于 2013-9-23 21:17

TA的精华主题

TA的得分主题

发表于 2007-4-29 17:37 | 显示全部楼层
发个附件让大家试试吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-4-29 17:42 | 显示全部楼层
QUOTE:
以下是引用井底之蛙在2007-4-29 17:37:54的发言:
发个附件让大家试试吧

MMKkHmOJ.rar (682.29 KB, 下载次数: 80)

TA的精华主题

TA的得分主题

发表于 2007-4-29 18:28 | 显示全部楼层
从Word中提取Flash
1、需要一款16进制编辑工具WinHex
2、打开含有Flash的Word文档,点击“控件工具箱”的“设计模式”按钮进入设计模式,选择Word中的Flash,复制粘贴到任意文件夹,会看到一个“片段”文件。
3、打开WinHex,将该“片段”文件拉到WinHex中,单击下拉菜单“搜索”→“查找16进制值”,搜索“
465753”,在搜索到的“465753”中的“4”位置上单击右键,选择“选块开始”。
4、继续“搜索”→“查找16进制值”,搜索“3A5C”,然后按住F3,直到出现“3A5C未找到”,点击“
是”,在最后搜索到的“3A5C”中“C”位置上单击右键,选择“选块结尾”。(注:少数情况可能会搜
索不到“3A5C”,则改为搜索“3A”或“5C”,方法相同)。
5、在选块内任意处点击右键→编辑→复制选块→进入新文件→输入文件名 (如test.swf) →保存。

TA的精华主题

TA的得分主题

发表于 2007-4-29 21:49 | 显示全部楼层

以前随便写的代码(改了下可以提取word或excel文件里多个嵌入的FWS格式的flash文件,分别保存)

Sub ReadData()
Dim tmpFileName As String, FileNumber As Integer, OldName As String
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "确定要分析的office文件")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
OldName = Left(tmpFileName, Len(tmpFileName) - 4)
i = 0
Do While i < MyFileLen
    If myArr(i) = &H46 Then
        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
            ReDim swfArr(swfFileLen - 1)
            For myIndex = 0 To swfFileLen - 1
                swfArr(myIndex) = myArr(i + myIndex)
            Next myIndex
            myFileId = FreeFile
            tmpFileName = OldName & i & ".swf"
            Open tmpFileName For Binary As #myFileId
            Put #myFileId, , swfArr
            Close myFileId
            i = i + swfFileLen + 8
        Else
            i = i + 3
        End If
    Else
        i = i + 1
    End If
Loop
MsgBox "以" & OldName & "1-n.swf 名字保存"
End Sub

[此贴子已经被作者于2007-4-29 22:09:54编辑过]

评分

参与人数 1财富 +10 技术 +2 收起 理由
ldy + 10 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2007-4-29 22:13 | 显示全部楼层
QUOTE:
以下是引用lwxg在2007-4-29 21:49:07的发言:

以前随便写的代码(改了下可以提取word或excel文件里多个嵌入的FWS格式的flash文件,分别保存)

Thanks

 

[em17][em17][em17]

TA的精华主题

TA的得分主题

发表于 2007-4-29 22:26 | 显示全部楼层
QUOTE:
以下是引用鱼之乐在2007-4-29 18:28:44的发言:
从Word中提取Flash
1、需要一款16进制编辑工具WinHex
2、打开含有Flash的Word文档,点击“控件工具箱”的“设计模式”按钮进入设计模式,选择Word中的Flash,复制粘贴到任意文件夹,会看到一个“片段”文件。
3、打开WinHex,将该“片段”文件拉到WinHex中,单击下拉菜单“搜索”→“查找16进制值”,搜索“
465753”,在搜索到的“465753”中的“4”位置上单击右键,选择“选块开始”。
4、继续“搜索”→“查找16进制值”,搜索“3A5C”,然后按住F3,直到出现“3A5C未找到”,点击“
是”,在最后搜索到的“3A5C”中“C”位置上单击右键,选择“选块结尾”。(注:少数情况可能会搜
索不到“3A5C”,则改为搜索“3A”或“5C”,方法相同)。
5、在选块内任意处点击右键→编辑→复制选块→进入新文件→输入文件名 (如test.swf) →保存。

鱼之乐,太厉害了,这个方法一定要记住.

我已经成功.

 

 下面是WORD附件里的FLASH

B6vjcW9H.rar (19.77 KB, 下载次数: 44)

LmzeFNC7.rar

200 KB, 下载次数: 34

有没有人试过如何把嵌入excel文件的flash提取出来?

KueY7IJ1.rar

200 KB, 下载次数: 44

有没有人试过如何把嵌入excel文件的flash提取出来?

IxEr1pKo.rar

200 KB, 下载次数: 42

有没有人试过如何把嵌入excel文件的flash提取出来?

TA的精华主题

TA的得分主题

发表于 2007-4-29 22:33 | 显示全部楼层
QUOTE:
以下是引用lwxg在2007-4-29 21:49:07的发言:

以前随便写的代码(改了下可以提取word或excel文件里多个嵌入的FWS格式的flash文件,分别保存)


太强了,必须复制代码到EXCEL才能运行,

佩服的五体投地

TA的精华主题

TA的得分主题

发表于 2007-4-29 22:38 | 显示全部楼层

仔细看了下具体数据,可以看到存在以下特征码,它的后面4个字节就是嵌入的SWF文件(似乎不管什么格式office嵌入之后就变FWS文件头),所以前面的代码应该也可以用于提取CWS的格式.

6EDB7CD26DAECF1196B844455354000066556655

TA的精华主题

TA的得分主题

发表于 2007-4-30 08:55 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

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

GMT+8, 2017-12-18 11:02 , Processed in 1.190294 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

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

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

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