Extract Flash Games Excel jadi SWF Tersendiri

Masih seputar games,...hmmm kayaknya dWarung lagi doyan otak-atik game flash nih...hehehe

Kemarin-kemarin dWarung membahas cara mendownload & memasukkan flash game dari internet ke dalam dokumen MS Excel / MS Word.

Sekarang dWarung mencoba melakukan kebalikannya, yaitu mengeluarkan flash game dari dokumen Excel / Word. Dalam hal ini dWarung menggunakan MS Excel Versi 2007, tetapi hal ini seharusnya berlaku pula di MS Excel 2000 / 2003.

Caranya..

Pertama, Buka Dokumen Baru di MS Excel, kemudian masuk ke bagian Visual Basic Editor atau tekan ALT + F11.

Kedua, setelah Visual Basic Editor terbuka, tekan Icon View Code yang terletak di sebelah kiri atas..

Ketiga, Copy Script berikut ini di kotak kosong sebelah kanan

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(MyFileLen - 1)

Get myFileId, , myArr()

Close myFileId

Application.ScreenUpdating = False

i = 0

Do While i <>

   If myArr(i) = &H46 Then

      If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then

         swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)

         ReDim swfArr(swfFileLen - 1)

         For myIndex = 0 To swfFileLen - 1
            swfArr(myIndex) = myArr(i + myIndex)
            Next myIndex
         Exit Do

      Else
            i = i + 3
      End If

   Else
        i = i + 1
   End If

Loop

myFileId = FreeFile

tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"

Open tmpFileName For Binary As #myFileId

Put #myFileId, , swfArr

Close myFileId

MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]"

End Sub

Keempat, Tekan F5 untuk memulai proses sampai muncul kotak Open MS Office Files dan langsung saja kita cari file MS Excel / MS Word yang terdapat Flash Gamesnya, kemudian tekan Open, dalam hal ini dWarung mencoba mengekstrak Game Mercenaries.

Kelima-selesai, setelah kita tekan Open maka akan muncul keterangan bahwa file telah diekstrak & disimpan di folder yang sama dengan folder tempat kita membuka file game tadi.

Akhirnya kita bisa memiliki Game Flash Tersendiri yang bisa kita Upload & dimainkan di Blog, FS atau Website kita sendiri, atau mungkin anda mau mengconvertnya ke bentuk EXE, sehingga bisa stand alone play, tanpa harus ada flash player?..hmm nanti dWarung akan membahasnya kembali..(",)

Sebetulnya ada software yang lebih simpel untuk mengekstrak Flash file di Excel / MS Word & dWarung sudah punya, tapi sayang sekali dWarung belum bisa mengetesnya karena program tersebut harus mendownload program supportnya yang mana diblokir oleh firewall di jaringan..hehehe

OK Guys..have a nice try & let me hear your comment here

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe to receive free email updates: