vb6.0如何在资源文件中播放flash？
不过曲线救国，我们可以先把资源里的烂屎数据作为文件保存在硬盘上，然后再播放。播放后删除生成的腐屎文件。对于养生堂毕业的用户来说，效果就是玩内置的烂屎。喷了很久，把程序粘贴好，保存为form1.frm，然后在VB6中运行。
直接操作有错误。当然有误差。你必须先按照说明创建一个包含烂屎的资源文件，或者指定一个烂屎文件才能看到效果。
代码如下:
-
版本5.00
开始VB。表单表单1
背景色= & ampH8000000A & amp
BorderStyle = 1 '固定单精度
Caption = "Form1 "
ClientHeight = 6045
客户端左侧= 45
ClientTop = 330
客户端宽度= 7650
LinkTopic = "Form1 "
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6045
缩放宽度= 7650
StartUpPosition = 3 '窗口默认值
开始VB。命令按钮命令2
Caption = "显示"
身高= 855
左= 4080
TabIndex = 1
Top = 4560
宽度= 1935
结束
开始VB。命令按钮命令1
Caption = "关闭"
身高= 855
Left = 1920
TabIndex = 0
Top = 4560
宽度= 1575
结束
开始VB。标签Label1
BackStyle = 0 '透明
Caption =广播资源中的烂屎"
身高= 735
左= 3960
TabIndex = 2
Top = 840
宽度= 2415
结束
结束
属性VB_Name = "Form1 "
属性VB_GlobalNameSpace = False
属性VB_Creatable = False
属性VB_PredeclaredId = True
属性VB_Exposed = False
功能:VB6，播放资源中嵌入的腐屎。
Project:不需要在project-reference和parts中添加其他内容，保持默认即可。
资源:VB6菜单-外部程序-外部程序管理器-VB 6资源编辑器。然后工具-资源编辑器-添加自定义资源，在硬盘上导入一个SWF文件并保存。
文件:如果不使用资源中嵌入的SWF文件，程序更简单，可以直接使用。请参考程序代码注释。
表单:什么都不需要，只需添加两个按钮控件。
测试:64位系统崩溃7，烂屎控FlashPlayer 32版本。
2020年，不要忘记你的首创精神，牢记自己的使命。
制作:张富贵儿，一个傲慢的老不良老板，喜欢养生堂毕业的微信老太太。
' Dim SWFName As String '定义了腐臭排泄物的文件名，以及变量的形式。
私有子命令1_Click()
清除腐烂的粪便。
命令1。启用=假
命令2。启用=真
末端接头
私有子命令2_Click()
“ResToFile”将资源中的自定义内容保存为swf文件。如果直接使用现成的swf文件，只需注释掉这一行。
玩烂狗屎
命令2。启用=假
命令1。启用=真
末端接头
私有子窗体_Load()
SWFName = App。路径与路径。" \FKlsn.swf " '使用此应用程序所在的目录。
SwfName =硬盘上某个目录的现有SWF文件。
swf name = hard " http://192.168.1.7/example。冲击波flash
swf name = Environ(" temp ")& amp；“\FKlsn.swf”使用系统临时目录。
命令1。启用=假
末端接头
Sub RemoveSWF()
控制。清除“闪光”清除腐烂的排泄物。
杀死SWFName '删除腐烂的狗屎文件。如果不使用资源中嵌入的烂狗屎，也就是使用网络上的硬盘或者swf，就需要注释掉这一行，也就是不需要删除文件，防止被删除或者出错。
末端接头
子播放文件()
播放腐烂的狗屎文件
Dim tmpCtl作为对象
设置tmpCtl = Me。Controls.Add("ShockwaveFlash。冲击波闪光”，“闪光”)
tmpCtl。宽度= 2000
tmpCtl。高度= 3200
tmpCtl。Top = 200
tmpCtl。左= 0
tmpCtl。可见=真
我的背色= RGB (192，192，192)'颜色，水泥灰，看起来很美。
tmp CTL . object . background color = my back color '恶臭的排泄物背景色。
我。' BackColor = MyBackColor '窗体背景色。她的底色和腐烂的排泄物一样，好像是透明的。
tmpCtl.object.LoadMovie 0，SWFName
末端接头
子恢复文件()
将资源写入文件。
因为烂屎控不能用资源，只能用文件。
要生成的腐烂粪便文件的名称。
Dim FileByte() As Byte '用于缓存文件内容。
如果Dir(SWFName) = SWFName，则删除文件(如果存在)。
杀死SWFName
如果…就会结束
file byte()= loadresdata(101，" custom ")'读取资源中的数据，101是索引号。
将二进制文件的SWFName打开为#1
放入#1，，文件字节
关闭#1
末端接头