VB code for extracting SWF from DOC/XLS# Windows - 看得见风景的窗口
l*l
1 楼
统计master在读,年底毕业.有那位同仁能帮忙介绍个工作,定有重谢.
r*y
2 楼
just paste intoVB editor and run it.
Sub ExtractFlash()
Dim tmpFileName As String
Dim FileNumber As Integer
Dim myFileId As Long
Dim MyFileLen As Long
Dim myIndex As Long
Dim swfFileLen As Long
Dim i As Long
Dim swfArr() As Byte
Dim myArr() As Byte
tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.
doc;*.xls", , "Open MS Office file")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(
Sub ExtractFlash()
Dim tmpFileName As String
Dim FileNumber As Integer
Dim myFileId As Long
Dim MyFileLen As Long
Dim myIndex As Long
Dim swfFileLen As Long
Dim i As Long
Dim swfArr() As Byte
Dim myArr() As Byte
tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.
doc;*.xls", , "Open MS Office file")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(
相关阅读
Is Vista Home Basic as good as XP Home?如何设置使用remote desktop连接的时候，host的显示不被blank掉点击网页内容时，IE7.0的浏览器经常莫名其妙的关闭？vista下用windows media center看电视的问题windows的prefetch文件夹突然不见了My windows media player 11 on Vista becomes mute when playing mp3 files? Anyone can help ?windows xp very slowly, how to make it work faster?是不是中毒了，程序一打开自己关闭Vista功败垂成的十大原因怎么删除IME下的日文，韩文输入法how to set a password for a directory?请问各位大侠，要怎么优化vista啊？求助：vista home版怎么才能输入中文？电脑经常没声音是什么原因？请问那里可以找到free的data recover的软件？请问powerpoint中要GIF decompressor怎么办x61每过几分钟短叫一声无线网卡无法获得IP (转载)高手推荐以下怎么用USB作windows xp启动盘Is Google down?