Sign in to follow this  
Followers 0
Dhilip89

Simple Flash Player

8 posts in this topic

Really simple flash player:

Files:

------

\bin\FlashPlayer.exe

\src\FlashPlayer.au3

\flash\RaidenX.swf

RaidenX.swf is a flash game.

Download-Link: http://rapidshare.de/files/22443532/FlashPlayer.zip.html


[u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠ 2[/quote]

Share this post


Link to post
Share on other sites



thats real cool. I was expecting to see something that relied heavily on ie.au3 but this was much nicer than what i was expecting. Nice job


50% of the time, it works all the time

Share this post


Link to post
Share on other sites

thats real cool. I was expecting to see something that relied heavily on ie.au3 but this was much nicer than what i was expecting. Nice job

Thanks for your reply, any improvements ?


[u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠ 2[/quote]

Share this post


Link to post
Share on other sites

20 downloads and 1 reply only...... :D


[u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠ 2[/quote]

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

maybe post the script and not just a link to rapidshare, its pretty nice though

Edited by thatsgreat2345

Share this post


Link to post
Share on other sites

maybe post the script and not just a link to rapidshare, its pretty nice though

this is the script:

#include <GUIConstants.au3>
#NoTrayIcon
$F='0.swf'
$Q=@TempDir & "\$fplyr.tmp"
$L1='<HTML><HEAD>' & @CRLF
$L3='<style type="text/css" media="screen">' & @CRLF
$L4='<!--' & @CRLF
$L5='body ' & @CRLF
$L6='{' & @CRLF
$L7='color: white;' & @CRLF
$L8='background-color: #003;' & @CRLF
$L9='margin: 0px' & @CRLF
$L10='}' & @CRLF
$L11='--></style>' & @CRLF
$L12='<body style="overflow: hidden" scrolling="no" INNERBORDER="no">' & @CRLF
$L13='</HEAD><BODY>' & @CRLF
$L14='<object width="528" height="392">' & @CRLF
$L19='</embed></object></BODY></HTML>' & @CRLF
GUICreate("Simple Flash Player",637,411,198,168)
$1=ObjCreate("Shell.Explorer.2")
$2=GUICtrlCreateObj($1,8,8,530,396)
$B1=GUICtrlCreateButton("&Open",552,16,75,25,0)
$B2=GUICtrlCreateButton("Re&fresh",552,48,75,25,0)
$B3=GUICtrlCreateButton("&Quit",552,376,75,25,0)
$B4=GUICtrlCreateButton("&About",552,344,75,25,0)
If FileExists($Q) Then
FileDelete($Q)
EndIf
$P=FileOpen($Q,1)
FileWrite($P,$L1)
FileWrite($P,$L3)
FileWrite($P,$L4)
FileWrite($P,$L5)
FileWrite($P,$L6)
FileWrite($P,$L7)
FileWrite($P,$L8)
FileWrite($P,$L9)
FileWrite($P,$L10)
FileWrite($P,$L11)
FileWrite($P,$L12)
FileWrite($P,$L13)
FileWrite($P,$L14)
FileWrite($P,'<param name="movie" value="' & $F & '">' & @CRLF)
FileWrite($P,'<embed src="' & $F & '" width="528" height="392">' & @CRLF)
FileWrite($P,$L19)
FileClose($P)
$1.navigate ($Q)
GUISetState(@SW_SHOW)
While 1
$nMsg=GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $B3
Exit
Case $B2
$1.refresh      
Case $B4
MsgBox(64,"About","Created By Dhilip.")
Case $B1
$F=FileOpenDialog("Open","","Shockwave Flash Object (*.swf)|Any File (*.*)")
If Not $F='' Then
If FileExists($Q)Then
FileDelete($Q)
EndIf
$P=FileOpen($Q,1)
FileWrite($P,$L1)
FileWrite($P,$L3)
FileWrite($P,$L4)
FileWrite($P,$L5)
FileWrite($P,$L6)
FileWrite($P,$L7)
FileWrite($P,$L8)
FileWrite($P,$L9)
FileWrite($P,$L10)
FileWrite($P,$L11)
FileWrite($P,$L12)
FileWrite($P,$L13)
FileWrite($P,$L14)
FileWrite($P,'<param name="movie" value="' & $F & '">' & @CRLF)
FileWrite($P,'<embed src="' & $F & '" width="528" height="392">' & @CRLF)
FileWrite($P,$L19)
FileClose($P)
$1.navigate($Q)
$1.refresh  
Else
ContinueLoop
EndIf
EndSwitch
WEnd

I really a bad coder lol....


[u]My Projects[/u]:General:WinShell (Version 1.6)YouTube Video Downloader Core (Version 2.0)Periodic Table Of Chemical Elements (Version 1.0)Web-Based:Directory Listing Script Written In AutoIt3 (Version 1.9 RC1)UDFs:UnicodeURL UDFHTML Entity UDF[u]My Website:[/u]http://dhilip89.hopto.org/[u]Closed Sources:[/u]YouTube Video Downloader (Version 1.3)[quote]If 1 + 1 = 10, then 1 + 1 ≠ 2[/quote]

Share this post


Link to post
Share on other sites
:D Wow! I can sure use this. I was just thinking that it would be useful to play swf's. Love the drag n drop and the simplicity. thanks for the freebee!!!! Yep, I don't mind the coding format, its short enough and it works...so ..I am not a perfectionist either.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0