@@@@@@ What a Amazing Word File (Funny)

SAN_APIIT

Well-known member
  • Mar 8, 2007
    4,611
    196
    63
    In a Chip !!!
    How to get the embeded flash object

    1. Open a new Microsoft word document,

    2. Click the Tools menu, Marco, Visual Basic Editor. You can also press the ALT+ F11 hotkey to bring up the VBA editor,

    3. While in MS Visual Basic editor, click the View Code icon on the upper-left panel

    4. Copy the VBA program source code at below here and paste it onto the VBA source code editor,

    5. Go to the line with the file path and Change the file path to the place where u have placed the word file Eg: "C:\folder\filename.doc"

    6. Press F5 to execute the VBA source code,

    7. A message box appears shortly after the Excel file is selected, with a message that says where the extracted SWF Flash animation file is saved in local hard disk!


    '||||||| CODE TO USE |||||||

    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

    'Enter the Word file name with path that u need to extract the flash object.
    tmpFileName = "C:\filename.doc"


    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 < MyFileLen

    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
     

    SAN_APIIT

    Well-known member
  • Mar 8, 2007
    4,611
    196
    63
    In a Chip !!!
    isuruimg said:
    you tube video balanna puluwan kiyanne flash player eka thiyenawa kiyana ekane

    Na machchang, youtube balane browser ekenne. Ae kiyane oyage web browser eke flash plug-in eka thiyenawa.

    Habae windows walata wenama dana one. :)