既然可以知道Filsh的文件地址,将他下载下来不就可以了 你的问题因该是如何下载文件而不是如何保存文件吧?如果是下载文件就简单多了。如下操作 1、在VB里添加 Microsoft Internet Transfer Control 6.0 部件然后放入窗体 2、在所需下载的代码中写入如下代码: Dim FileData() As Byte Dim FileUrl As String Dim SaveFilePath As String FileUrl = "http://www.ttt.com/uu.swf" '需下载的文件地址 SaveFilePath = "C:\uu.swf" '要保存的文件地址
'开始下载文件数据 FileData = Inet1.OpenURL(FileUrl, vbByte) '保存文件数据 Open SaveFilePath For Binary As #1 Put #1, 1, FileData Close #1 MsgBox "Save Over."
ShockwaveFlash1控件加载动画的语句是:
ShockwaveFlash1.movie = "c:\winnt\1.swf" 本身就是以文件的形式存在的。
你是要保存网上的FLASH吧
是这样。。 没人会吗?
你的问题因该是如何下载文件而不是如何保存文件吧?如果是下载文件就简单多了。如下操作
1、在VB里添加 Microsoft Internet Transfer Control 6.0 部件然后放入窗体
2、在所需下载的代码中写入如下代码:
Dim FileData() As Byte
Dim FileUrl As String
Dim SaveFilePath As String
FileUrl = "http://www.ttt.com/uu.swf" '需下载的文件地址
SaveFilePath = "C:\uu.swf" '要保存的文件地址
'开始下载文件数据
FileData = Inet1.OpenURL(FileUrl, vbByte) '保存文件数据
Open SaveFilePath For Binary As #1
Put #1, 1, FileData
Close #1
MsgBox "Save Over."