用ShockwaveFlash1控件把flash加载并播放,然后怎么才能把这个flash保存到自己硬盘里?

解决方案 »

  1.   

    网上的Flash播放后会留在临时文件夹。
      

  2.   

    不知道你说的什么意思。
    ShockwaveFlash1控件加载动画的语句是:
    ShockwaveFlash1.movie = "c:\winnt\1.swf" 本身就是以文件的形式存在的。
      

  3.   

    回复人: Coyozo(<不小心失恋>) ( ) 信誉:100  2004-12-02 12:31:00  得分: 0  
     
     
       你是要保存网上的FLASH吧
      
     是这样。。 没人会吗?
      

  4.   

    既然可以知道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."