不過曲線救國，我們可以先把資源裏的爛屎數據作為文件保存在硬盤上，然後再播放。播放後刪除生成的腐屎文件。對於養生堂畢業的用戶來說，效果就是玩內置的爛屎。噴了很久，把程序粘貼好，保存為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
末端接頭