Can someone make this better?

[Bert]

I played around with a script Gary told me about last week to play flash files. Works fine. I wanted to have it so I could select the file I wanted to play from a list, then have the flash player run it. When I was done, it would go back to let me select another one. I tried using the one that someone else did, but it wouldn't work on local flash files. I keep them on my thumb drive for there are times when I don't have internet access, but I want to play a game.

To explain on how this works: You will need to have a flash file in the same directory as the script. Run flashloader. It will search the directory and list all the flash files it finds. Pick the one you want, and click play. Player.au3 will run the flash file (after compiled to a exe). When you close player, it will reopen flashloader, allowing you to pick something else.

What I like to see if someone could put this all in one script. I tried, but the player would not work.

Code:

flashloader.au3:

#Include <File.au3>
#include <GuiConstants.au3>
#include <GuiList.au3>
#include <Array.au3>
GuiCreate("Flash Player by Volly", 250, 548,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$FileList=_FileListToArray(@ScriptDir, "*.swf", 1)
$atr= _ArrayTrim($FileList,4,1,1)
$st= _ArrayToString($atr,"|",1)
$Edit_1 = GuiCtrlCreatelist("", 20, 30, 170, 450)
GUICtrlSetData($Edit_1,$st)
$Button_2 = GuiCtrlCreateButton("Play Game", 20, 490, 80, 30)
$Button_3 = GuiCtrlCreateButton("Exit", 110, 490, 80, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    
    Case $msg = $Button_2
        $read = GUICtrlRead($Edit_1)
        IniWrite(@ScriptDir & "\game.ini", "play", "game", $read &".swf")
        IniWrite(@ScriptDir & "\game.ini", "play", "gamename", $read )
        GUISetState(@SW_HIDE)
        Runwait(@ScriptDir & "\player.exe")
        GUISetState(@SW_SHOW)
    
    case $msg = $Button_3
        exit
    Case Else
        ;;;
    EndSelect
WEnd
ExitoÝ÷ ÚZÉêÚ»v®¶­sb6æ6ÇVFRfÇC´uT6öç7FçG2æS2fwC°¢6æ6ÇVFRfÇC¶RæS2fwC°¢b33c·FFÆVæÖRÒæ&VB67&DF"fײgV÷C²b3#¶vÖRæægV÷C²ÂgV÷C·ÆgV÷C²ÂgV÷C¶vÖVæÖRgV÷C²ÂgV÷C²gV÷C²¢b33c´f÷&ÓÒuT7&VFRb33c·FFÆVæÖRÂSCÂS3Â#Â#"Â&Dõ"b33cµu5ôÔäÔ¤T$õÂb33cµu5õ4¤T$õÂb33cµu5õD4´e$ÔRÂb33cµu5õ54ÔTåRÂb33cµu5ô4DôâÂb33cµu5õõUtäDõrÂb33cµu5ôu$õUÂb33cµu5ô$õ$DU"Âb33cµu5ô4Ä4$Ääu2¢b33c´ö&¢ÒôT7&VFTVÖ&VFFVB¢b33c¶'&÷w6W"ÒuT7G&Ä7&VFTö&¢b33c´ö&¢ÂÂÂS#BÂSb¤uT7G&Å6WE&W6¦ærÓÂb33c´uTôDô4´$õ$DU%2 ¥ôTæfvFRb33c´ö&¢Âb33¶&÷WC¦&Ææ²b33²¢b33c¶ôFö2ÒôTFö4vWDö&¢b33c´ö&¢¢b33c¶ôFö2æ&öGç7GÆRæ÷fW&fÆ÷rÒgV÷C¶WFògV÷C°¤uT6WE7FFR5uõ4õr ¢b33c¶fÆ6Òæ&VBgV÷C¶vÖRæægV÷C²ÂgV÷C·ÆgV÷C²ÂgV÷C¶vÖRgV÷C²ÂgV÷C²gV÷C²¢b33c¶fÆ6Ò67&DF"fײgV÷C²b3#²gV÷C²fײb33c¶fÆ6 ¢b33c·4DÔÂÒb33²fÇC¶VÖ&VBCÖfÆ67&3ÒgV÷C²b33²fײb33c¶fÆ6fײb33²gV÷C²b33°¢b33c·4DÔÂf׳Òb33·VÆGÒgV÷C¶vgV÷C²ÇVvç7vSÒgV÷C¶GG¢ò÷wwræÖ7&öÖVFæ6öÒövòövWFfÆ6ÆW"gV÷C²b33°¢b33c·4DÔÂf׳Òb33·GSÒgV÷C¶Æ6Föâ÷×6ö6·vfRÖfÆ6gV÷C²b33°¢b33c·4DÔÂf׳Òb33·vGFÒgV÷C³RgV÷C²VvCÒgV÷C³RgV÷C²fwC²fÇC²öVÖ&VBfwC²b33°¥ôT&öGw&FTDÔÂb33c´ö&¢Âb33c·4DÔ §6ÆVW#¢b33c´ö&£ÒôTvWDö&¤'æÖRb33c´ö&¢ÂgV÷C¶fÆ6gV÷C² ¥vÆR¢b33c¶ä×6rÒuTvWD×6r¢7vF6b33c¶ä×6p¢66Rb33c´uTôUdTåEô4Äõ4P¢W@ ¢VæE7vF6¥tVæ@

[Bert]

bump-a-lope

bump-a-bump

bump-a-someone-want-to take-a-try-at-it?

[SmOke_N]

Do you know how to get the size/play length? (I don't know of those files is why I'm asking)... If you do, then it's a walk in the park.

[Bert]

I just got it working in one script. It still uses a ini, but works. I need to make it use a varaible instead.

@smoke: not sure on how to answer your question. The files sizes to the window, so in some games there is a blank area to the sides. No big deal to me, but I was thinking of having the viewer size itself to the monitor.

expandcollapse popup

#Include <File.au3>
#include <GuiConstants.au3>
#include <GuiList.au3>
#include <Array.au3>
#include <ie.au3>
GuiCreate("Flash Player by Volly", 250, 548,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$FileList=_FileListToArray(@ScriptDir, "*.swf", 1)
$atr= _ArrayTrim($FileList,4,1,1)
$st= _ArrayToString($atr,"|",1)
$Edit_1 = GuiCtrlCreatelist("", 20, 30, 170, 450)
GUICtrlSetData($Edit_1,$st)
$Button_2 = GuiCtrlCreateButton("Play Game", 20, 490, 80, 30)
$Button_3 = GuiCtrlCreateButton("Exit", 110, 490, 80, 30)

GuiSetState()
While 1
    
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    
    Case $msg = $Button_2
        $read = GUICtrlRead($Edit_1)
        IniWrite(@ScriptDir & "\game.ini", "play", "game", $read &".swf")
        IniWrite(@ScriptDir & "\game.ini", "play", "gamename", $read )
        GUISetState(@SW_HIDE)
        _viewer()
        GUISetState(@SW_SHOW)
    
    case $msg = $Button_3
        exit
    Case Else
        ;;;
    EndSelect
WEnd
Exit

func _viewer()
    $titlename = IniRead(@ScriptDir & "\game.ini", "play", "gamename", "" )
    $Form1 = GUICreate($titlename, 540, 538, 219, 122, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
    $Obj = _IECreateEmbedded ( )
    $browser = GUICtrlCreateObj($Obj, 8, 8, 524, 516)
    GUICtrlSetResizing(-1,$GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    GUISetState(@SW_SHOW)
    $flash = IniRead("game.ini", "play","game", "")
    $flash1 = @ScriptDir &"\"& $flash      
    $sHTML = '<embed id=flashy src="'&$flash1&'" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    sleep(2000)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
            ExitLoop    
        EndSwitch
    WEnd
EndFunc

Edited September 11, 2006 by vollyman

[Bert]

Ok, I got it working pretty well. I'll post it to the scripts and scraps section in a bit, but I wonder if could be tweaked any better. Thoughts?

expandcollapse popup

#Include <File.au3>
#include <GuiConstants.au3>
#include <GuiList.au3>
#include <Array.au3>
#include <ie.au3>
Dim $selection, $Form1
Dim $selection2
GUICreate("Flash Player by Volly", 220, 548, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$FileList = _FileListToArray (@ScriptDir, "*.swf", 1)
$atr = _ArrayTrim($FileList, 4, 1, 1)
$st = _ArrayToString($atr, "|", 1)
$Edit_1 = GUICtrlCreateList("", 20, 30, 170, 450)
GUICtrlSetData($Edit_1, $st)
$Button_2 = GUICtrlCreateButton("Play Game", 20, 490, 80, 30)
$Button_3 = GUICtrlCreateButton("Exit", 110, 490, 80, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_2
            $read = GUICtrlRead($Edit_1)
            $selection = $read & ".swf"
            GUISetState(@SW_HIDE)
            _viewer()
            GUISetState(@SW_SHOW)
        Case $msg = $Button_3
            Exit
        Case Else
            ;;;
    EndSelect
WEnd
Exit

Func _viewer()
    $W = @DesktopWidth - 220
    $H = @DesktopHeight - 150
    $Form1 = GUICreate($read, $W, $H, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $getz = WinGetClientSize($Form1)
    $get2 = ($getz[0] * .45)
    $get2b = ($getz[1] * .93)
    $getL = StringLen($get2)
    $getLb = StringLen($get2b)
    $get3 = StringInStr($get2, ".")
    $get3b = StringInStr($get2b, ".")
    $lenth = ($getL - $get3)
    $lenthb = ($getLb - $get3b)
    $ans = StringTrimRight($get2, $lenth + 1)
    $ansb = StringTrimRight($get2b, $lenthb + 1)
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 70)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $button_4 = GUICtrlCreateButton("End Game", $ans, $ansb, 80, 30)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\" & $selection
    $sHTML = '<embed id=flashy src="' & $flash1 & '" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    Sleep(1500)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
                ExitLoop
            Case $button_4
                GUIDelete($Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_viewer

[blademonkey]

Ok, I got it working pretty well. I'll post it to the scripts and scraps section in a bit, but I wonder if could be tweaked any better. Thoughts?

expandcollapse popup

#Include <File.au3>
#include <GuiConstants.au3>
#include <GuiList.au3>
#include <Array.au3>
#include <ie.au3>
Dim $selection, $Form1
Dim $selection2
GUICreate("Flash Player by Volly", 220, 548, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$FileList = _FileListToArray (@ScriptDir, "*.swf", 1)
$atr = _ArrayTrim($FileList, 4, 1, 1)
$st = _ArrayToString($atr, "|", 1)
$Edit_1 = GUICtrlCreateList("", 20, 30, 170, 450)
GUICtrlSetData($Edit_1, $st)
$Button_2 = GUICtrlCreateButton("Play Game", 20, 490, 80, 30)
$Button_3 = GUICtrlCreateButton("Exit", 110, 490, 80, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_2
            $read = GUICtrlRead($Edit_1)
            $selection = $read & ".swf"
            GUISetState(@SW_HIDE)
            _viewer()
            GUISetState(@SW_SHOW)
        Case $msg = $Button_3
            Exit
        Case Else
            ;;;
    EndSelect
WEnd
Exit

Func _viewer()
    $W = @DesktopWidth - 220
    $H = @DesktopHeight - 150
    $Form1 = GUICreate($read, $W, $H, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $getz = WinGetClientSize($Form1)
    $get2 = ($getz[0] * .45)
    $get2b = ($getz[1] * .93)
    $getL = StringLen($get2)
    $getLb = StringLen($get2b)
    $get3 = StringInStr($get2, ".")
    $get3b = StringInStr($get2b, ".")
    $lenth = ($getL - $get3)
    $lenthb = ($getLb - $get3b)
    $ans = StringTrimRight($get2, $lenth + 1)
    $ansb = StringTrimRight($get2b, $lenthb + 1)
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 70)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $button_4 = GUICtrlCreateButton("End Game", $ans, $ansb, 80, 30)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\" & $selection
    $sHTML = '<embed id=flashy src="' & $flash1 & '" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    Sleep(1500)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
                ExitLoop
            Case $button_4
                GUIDelete($Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_viewer

non sequitur, but I love your AVATAR.

makes me laugh everytime i see it.

[CWorks]

just messing around with it and added a combo box

also have all .swf files in @ScriptDir & "\Flash\*.swf

to keep it more organized

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiCombo.au3>
#include <ie.au3>
Dim $Form1

$Main = GUICreate("Flash Player", 218, 109, -1, -1)
$Combo1 = GUICtrlCreateCombo("", 8, 16, 201, 220, $CBS_DROPDOWNLIST)
_GUICtrlComboAddDir($Combo1, "A,D,H,RO,RW", @ScriptDir & "\Flash\*.swf")
$Play = GUICtrlCreateButton("Play", 8, 64, 75, 25, $BS_DEFPUSHBUTTON)
$Close = GUICtrlCreateButton("Close", 136, 64, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $Close
            Exit
        Case $msg = $Play
            Global $file = GUICtrlRead($Combo1)
            GUISetState(@SW_HIDE)
            _viewer()
            GUISetState(@SW_SHOW)   
    EndSelect
WEnd


Func _viewer()
    $W = @DesktopWidth - 220
    $H = @DesktopHeight - 150
    $Form1 = GUICreate($file, $W, $H, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $getz = WinGetClientSize($Form1)
    $get2 = ($getz[0] * .45)
    $get2b = ($getz[1] * .93)
    $getL = StringLen($get2)
    $getLb = StringLen($get2b)
    $get3 = StringInStr($get2, ".")
    $get3b = StringInStr($get2b, ".")
    $lenth = ($getL - $get3)
    $lenthb = ($getLb - $get3b)
    $ans = StringTrimRight($get2, $lenth + 1)
    $ansb = StringTrimRight($get2b, $lenthb + 1)
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 70)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $button_4 = GUICtrlCreateButton("End Game", $ans, $ansb, 80, 30)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\Flash\" & $file
    $sHTML = '<embed id=flashy src="' & $flash1 & '" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    Sleep(1500)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
                ExitLoop
            Case $button_4
                GUIDelete($Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_viewer

Edited September 11, 2006 by CWorks

[Bert]

@cworks: The filenames that are listed have the file ext. shown in the name. Also, it is only showing 15 items, when I have 47. I like the idea on the flash folder for organization.

@blademonkey: I didn't write the flashplayer itself. This was shown to me by GaFrost, and I tweaked it to suit my needs. Basically, the viewer function is someone elses (except the part that adds the button and it's position), and the other part is mine.

[CWorks]

just increase it to like 800 or something

$Combo1 = GUICtrlCreateCombo("", 8, 16, 201, 220, $CBS_DROPDOWNLIST)

[Bert]

just increase it to like 800 or something

$Combo1 = GUICtrlCreateCombo("", 8, 16, 201, 220, $CBS_DROPDOWNLIST)

I played around with what you did, and I can scroll to everything, but I have to use the up-down keys on my keyboard. Nice work.

[CWorks]

is there such a thing as a list with a scroll bar

I also had a problem with the "End Game" button @2048 x 1536 & 1600 x 1200 it wasn't centered and was up to high so i tweaked it until it worked for all sizes

well only tested down to 1024 x 768

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiCombo.au3>
#include <ie.au3>
Dim $Form1

GUICreate("Flash Player", 218, 109, -1, -1)
$Combo1 = GUICtrlCreateCombo("", 8, 16, 201, 800, $CBS_DROPDOWNLIST)
_GUICtrlComboAddDir($Combo1, "A,D,H,RO,RW", @ScriptDir & "\Flash\*.swf")
$Play = GUICtrlCreateButton("Play", 8, 64, 75, 25, $BS_DEFPUSHBUTTON)
$Close = GUICtrlCreateButton("Close", 136, 64, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $Close
            Exit
        Case $msg = $Play
            Global $file = GUICtrlRead($Combo1)
            GUISetState(@SW_HIDE)
            _viewer()
            GUISetState(@SW_SHOW)   
    EndSelect
WEnd


Func _viewer()
    $W = @DesktopWidth - 40
    $H = @DesktopHeight - 80
    $Form1 = GUICreate($file, $w, $h, -1, -1, $WS_BORDER+$WS_CAPTION+$WS_POPUP+$WS_SYSMENU+$WS_POPUP+$WS_MAXIMIZEBOX+$WS_MINIMIZEBOX)
    $getz = WinGetClientSize($Form1)
    $get2 = ($getz[0] * .45)
    $get2b = ($getz[1] * .95)
    $getL = StringLen($get2)
    $getLb = StringLen($get2b)
    $get3 = StringInStr($get2, ".")
    $get3b = StringInStr($get2b, ".")
    $lenth = ($getL - $get3)
    $lenthb = ($getLb - $get3b)
    $ans = StringTrimRight($get2, $lenth + 1)
    $ansb = StringTrimRight($get2b, $lenthb + 1)
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 70)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $button_4 = GUICtrlCreateButton("End Game", $ans, $ansb, 80, 30)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\Flash\" & $file
    $sHTML = '<embed id=flashy src="' & $flash1 & '" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    Sleep(1500)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
                ExitLoop
            Case $button_4
                GUIDelete($Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_viewer

Edited September 11, 2006 by CWorks

[CWorks]

got bored so i added some more to it

create four folders under \Flash\ folder called

Games1 Games2 Games3 Games4

just split the files up into smaller groups so they all show up in combobox

there's 4 radio boxes to choose which folder to read and add to combobox

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiCombo.au3>
#include <ie.au3>
Dim $Form1
Dim $file
$GF = "Games1"

_MYLoop()
Func _MYLoop()
$Main = GUICreate("Flash Player by Volly", 219, 199)
$Combo1 = GUICtrlCreateCombo("", 8, 16, 201, 800, $CBS_DROPDOWNLIST)
_GUICtrlComboAddDir($Combo1, "A,D,H,RO,RW", @ScriptDir & "\Flash\" & $GF & "\*.swf")
$Play = GUICtrlCreateButton("Play", 8, 160, 91, 25)
$Close = GUICtrlCreateButton("Close", 120, 160, 91, 25)
$Group1 = GUICtrlCreateGroup("Folders", 8, 40, 201, 105)
$Games1 = GUICtrlCreateRadio("Games 1", 24, 64, 65, 25, $BS_PUSHLIKE)
If $GF = "Games1" Then GUICtrlSetState(-1, $GUI_CHECKED)
$Games2 = GUICtrlCreateRadio("Games 2", 128, 64, 65, 25, $BS_PUSHLIKE)
If $GF = "Games2" Then GUICtrlSetState(-1, $GUI_CHECKED)
$Games3 = GUICtrlCreateRadio("Games 3", 24, 104, 65, 25, $BS_PUSHLIKE)
If $GF = "Games3" Then GUICtrlSetState(-1, $GUI_CHECKED)
$Games4 = GUICtrlCreateRadio("Games 4", 128, 104, 65, 25, $BS_PUSHLIKE)
If $GF = "Games4" Then GUICtrlSetState(-1, $GUI_CHECKED)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $Close
            Exit
        Case $msg = $Play
            $file = GUICtrlRead($Combo1)
            GUISetState(@SW_HIDE)
            _viewer()
            GUISetState(@SW_SHOW)
        Case $msg = $Games1
            $GF = "Games1"
            GUIDelete($Main)
            _MYLoop()
        Case $msg = $Games2
            $GF = "Games2"
            GUIDelete($Main)
            _MYLoop()
        Case  $msg = $Games3
            $GF = "Games3"
            GUIDelete($Main)
            _MYLoop()
        Case $msg = $Games4
            $GF = "Games4"
            GUIDelete($Main)
            _MYLoop()
    EndSelect
WEnd
EndFunc

Func _viewer()
    $W = @DesktopWidth - 40
    $H = @DesktopHeight - 80

    $Form1 = GUICreate($file, $w, $h, -1, -1, $WS_BORDER+$WS_CAPTION+$WS_SYSMENU+$WS_MAXIMIZEBOX+$WS_MINIMIZEBOX+$WS_SIZEBOX)
    $getz = WinGetClientSize($Form1)
    $get2 = ($getz[0] * .45)
    $get2b = ($getz[1] * .95)
    $getL = StringLen($get2)
    $getLb = StringLen($get2b)
    $get3 = StringInStr($get2, ".")
    $get3b = StringInStr($get2b, ".")
    $lenth = ($getL - $get3)
    $lenthb = ($getLb - $get3b)
    $ans = StringTrimRight($get2, $lenth + 1)
    $ansb = StringTrimRight($get2b, $lenthb + 1)
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 70)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $button_4 = GUICtrlCreateButton("End Game", $ans, $ansb, 80, 30)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\Flash\" & $GF & "\" & $file
    $sHTML = '<embed id=flashy src="' & $flash1 & '" '
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%"></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    Sleep(1500)
    $Obj1 = _IEGetObjByName ($Obj, "flashy")
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form1)
                ExitLoop
            Case $button_4
                GUIDelete($Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_viewer

Edited September 11, 2006 by CWorks

[AceLoc]

GuiCreate("Flash Player by Volly", 250, 548,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

part you are just saying "Default"

Edited September 11, 2006 by aceloc