Guys just check this. It is a Word file with some amazing animation in it. I dont know how it has been done.
http://rapidshare.com/files/11670348..._5B1_5D_1_.doc
http://rapidshare.com/files/11670348..._5B1_5D_1_.doc
Latest ads
-
Power Lifting Lever Belt- SkullVamp
- Updated:
-
port.lk Domain for sale
- Lankan-Tech
- Updated:
-
Colombo Kaduwela - Two Storey House for Sale- dilrasan
- Updated:
-
Wechat qr verification
- Pawan2005
- Updated:
-
🚀 GOOGLE AI PRO 18 MONTHS ACTIVATION 🚀- sayuru bandara
- Updated:
@@@@@@ What a Amazing Word File (Funny)
- Thread starter Billl Gates
- Start date
SAN_APIIT said:As i said its coz he does not have the flash player and u have it on ur system
yes i think thats true
SAN_APIIT said:As i said its coz he does not have the flash player and u have it on ur system
no bro i hv flash player in my system
isuruimg said:
are u sure its the latest version. (ver 9)
Download Flash Player 9.0.124.0 :Download Flash Player
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
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
isuruimg said:
Na machchang, youtube balane browser ekenne. Ae kiyane oyage web browser eke flash plug-in eka thiyenawa.
Habae windows walata wenama dana one.
Billl Gates said:
appata siri bill gates gaawath tawa tiyenne office 2003 da api hithuwa bill gates use karanawa atte latest ma version eka kiyala??
(Just kiddin)
nilan101 said:appata siri bill gates gaawath tawa tiyenne office 2003 da api hithuwa bill gates use karanawa atte latest ma version eka kiyala??
(Just kiddin)
Similar threads
