Dhilip89 Posted June 7, 2006 Posted June 7, 2006 Really simple flash player:Files:------\bin\FlashPlayer.exe\src\FlashPlayer.au3\flash\RaidenX.swfRaidenX.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]
PezoFaSho Posted June 7, 2006 Posted June 7, 2006 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
Dhilip89 Posted June 8, 2006 Author Posted June 8, 2006 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 jobThanks 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]
Dhilip89 Posted June 8, 2006 Author Posted June 8, 2006 20 downloads and 1 reply only...... [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]
Thatsgreat2345 Posted June 8, 2006 Posted June 8, 2006 (edited) maybe post the script and not just a link to rapidshare, its pretty nice though Edited June 8, 2006 by thatsgreat2345
Dhilip89 Posted June 8, 2006 Author Posted June 8, 2006 maybe post the script and not just a link to rapidshare, its pretty nice though this is the script: expandcollapse popup#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]
ptrex Posted June 8, 2006 Posted June 8, 2006 @Dhilip Good job !! Even if the code is not perfect it is the end result that counts. It works !! Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New
slipperylobster Posted June 8, 2006 Posted June 8, 2006 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.
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now