Jump to content

Simple Flash Player

Dhilip89

By Dhilip89,
in AutoIt Example Scripts

 Share

Recommended Posts

Dhilip89 Universalist

Dhilip89

Posted
Posted

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]

Link to comment
Share on other sites
Dhilip89 Universalist

Dhilip89

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
Dhilip89 Universalist

Dhilip89

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
Dhilip89 Universalist

Dhilip89

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
ptrex Universalist

ptrex

Posted
Posted

@Dhilip

Good job !! :D

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

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...