VollyViewer - flash player

[Bert]

In seeing the different players, none of them did what I wanted. So, here is my attempt at a flash player.

Features:

• FlashGrab - you can grab swf files from Internet Explorer - Firefox is not currently supported.
• Hotkey support for FlashGrab. Any files grabbed will be put in the /bin/temp directory
• Resizing - you can resize the window, and the script will remember the size. This comes in handy for different flash games have different viewing areas.
• List area in the viewer to change games on the fly.
• Any swf file can be put in the games folder to view.

http://www.autoitscript.com/fileman/users/Vollyman/VollyViewer.au3

edit: spelling fix

Edited July 11, 2008 by Volly

[gseller]

I like the way you have yours setup! All the controls are very easy to use..

[Bert]

I was thinking of adding a macro player to is so things like mouse clicks could be done for games that you need to constantly click on stuff. (and so forth)

[zFrank]

good efort... it needs some good graphics. how can i select the file into it?

[Bert]

well, I simply have the swf file in the bin folder, and it should show up in the list. highlight it, and click play. If it isn't working, you may have a issue with the flash plugin that works with IE.

[Draygoes]

That looks pretty nice volly!

[corgano]

i couldnt get the filegrab to work

That looks pretty nice volly!

it could look nicer........

expandcollapse popup

#include <GUIListBox.au3>
#Include <File.au3>
#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <ie.au3>
#Include <WindowsConstants.au3>
#include <GuiListView.au3>

#NoTrayIcon
Opt("TrayMenuMode",1)
Opt("MustDeclareVars", 1)
Opt("TrayOnEventMode",1)
Dim $selection, $Form1, $flash, $Obj, $gui, $Obj1, $read, $swffile
Dim $selection2, $match, $html, $pending = 0, $swffile, $qst
Dim $downloaded[100], $question_a = 0, $main, $FileList, $atr
dim $st, $Edit_1, $Button_2, $Button_3, $Button_4, $lable_1
dim $Combo_5, $inir_0, $inir_1, $Button_6a, $Button_7, $lable_8
dim $restoreitem, $aboutitem, $exititem, $msg, $msg1, $inputbox
dim $oIEg, $urlname, $line, $search, $q_lable_1, $q_button_2
dim $q_button_3, $q_button_4, $msg2, $filemove, $delimit
Dim $split, $split2, $ppath, $qst2, $qst3, $renamefile, $stringchk
Dim $split3, $nMsg, $nMsg1, $size, $getz, $get2, $get2b, $getL, $getLb
Dim $get3, $get3b, $lenth, $lenthb, $ans, $sHTML, $flash1, $button_6
Dim $xx, $oDoc, $ansb, $browser, $button_7a, $Edit_1a, $reada, $oDoc1, $filename, $flash2
DIM $CSW, $inir_2a, $inir_2b, $inir_2c, $inir_2d, $wn, $read_1, $list_count
DIM $read_0, $read_0a, $srt_trim, $rep_string, $n
dim $iniP1 = @ScriptDir & "\bin\Fconfig.ini"
Dim $W, $H, $xx = 0, $readb
DIM $W = @DesktopWidth - 150
DIM $H = @DesktopHeight - 240

If FileExists($iniP1) = 0 Then
    DirCreate(@ScriptDir & "\bin")
    IniWrite(@ScriptDir & "\bin\Fconfig.ini", "settings", "hotkey", "^{F3}")
    FileWriteLine($iniP1, " ")
    DirCreate(@ScriptDir & "\games")
    DirCreate(@ScriptDir & "\bin\temp")
    DirCreate(@ScriptDir & "\bin\temp\pending_review")
EndIf
$main = GUICreate("VollyViewer", 310, 300, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
$Edit_1 = GUICtrlCreateList("", 20, 30, 170, 260,"",$WS_EX_TOPMOST)
_getlist()
GUICtrlSetData($Edit_1, $st)
GUICtrlCreateGroup("",20,30,172,262,$WS_BORDER)
GUICtrlCreateGroup("",191,45,65,70,$WS_BORDER)
GUICtrlCreateGroup("",191,205,65,70,$WS_BORDER)
GUICtrlCreateGroup("",206,267,90,25,$WS_BORDER)
$Button_2 = GUICtrlCreateButton("Play Game", 205, 30, 90, 30)
$Button_3 = GUICtrlCreateButton("Exit", 205, 68, 90, 30)
$Button_4 = GUICtrlCreateButton("Help", 205, 106, 90, 30)
$inir_1 = IniRead(@ScriptDir & "\bin\Fconfig.ini", "settings", "hotkey", "^{F3}")
$Button_6 = GUICtrlCreateButton("Hide to tray", 205, 190, 90, 30)
$Button_7 = GUICtrlCreateButton("Set Hotkey", 205, 230, 90, 30)
$lable_8 = GUICtrlCreateLabel("Hotkey = "&$inir_1, 210, 270, 80, 20)
$restoreitem = TrayCreateItem("Restore")
TrayCreateItem("")
$aboutitem = TrayCreateItem("About VollyViewer")
TrayCreateItem("")
$exititem = TrayCreateItem("Close and Exit")
TrayItemSetOnEvent ( $restoreitem, "_RestoreFromTray" )
TrayItemSetOnEvent ( $exititem, "_exitloop" )
TrayItemSetOnEvent ( $aboutitem, "_aboutVV" )

GUIOnlyControlsVisible($main)

TraySetState()
TraySetClick(16)
GUIRegisterMsg($WM_SIZE, "WM_SIZE");---------------------
GUISetState()
While 1
    $msg = GUIGetMsg()  
    sleep(1)
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_2
            $read = GUICtrlRead($Edit_1)
            If $read = "" Then
                MsgBox(48, "Opps!", "You didn't select a game.")
            Else
                $selection = $read & ".swf"
                IniWrite($iniP1, "current_game", "1", $read)
                GUISetState(@SW_HIDE, $main)
                _viewer()
                GUISetState(@SW_SHOW, $main)
            EndIf
            ContinueLoop
        Case $msg = $Button_3;exit
            Exit

        Case $msg = $Button_4;help
            MsgBox(64, "", "Use the hotkey to grab flash files. ")
        Case $msg = $Button_6
            _hide()
        Case $msg = $Button_7
            $inputbox = InputBox("Set Hotkey", "Set what you want the flash grabber hotkey to be."&@CRLF _
                    &"It is best only to use one key or two key combinations." &@CRLF _
                    &"Use ""^"" for ctrl"&@CRLF _
                    &"Use "" !"" for alt", "", " M", 290, 150)
            IniWrite(@ScriptDir & "\bin\Fconfig.ini", "settings","hotkey", $inputbox)
            GUICtrlSetData($lable_8, "Hotkey = "&$inputbox)
    EndSelect
WEnd
Exit

func _getlist()
    $FileList = _FileListToArray (@ScriptDir & "\games\", "*.swf", 1)
    _ArrayTrim($FileList, 4 ,1)
    $st = _ArrayToString($FileList, "|", 1)
EndFunc 

func _exitloop()
    Exit
EndFunc 

Func GUIOnlyControlsVisible($hWnd)
    Local $aClassList, $aM_Mask, $aCtrlPos, $aMask
    
    $aClassList = StringSplit(_WinGetClassListEx($hWnd), @LF)
    $aM_Mask = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", 0, "long", 0)
    
    For $i = 1 To UBound($aClassList) - 1
        $aCtrlPos = ControlGetPos($hWnd, '', $aClassList[$i])
        If Not IsArray($aCtrlPos) Then ContinueLoop
        
        $aMask = DllCall("gdi32.dll", "long", "CreateRectRgn", _
            "long", $aCtrlPos[0], _
            "long", $aCtrlPos[1], _
            "long", $aCtrlPos[0] + $aCtrlPos[2], _
            "long", $aCtrlPos[1] + $aCtrlPos[3])
        DllCall("gdi32.dll", "long", "CombineRgn", "long", $aM_Mask[0], "long", $aMask[0], "long", $aM_Mask[0], "int", 2)
    Next
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $hWnd, "long", $aM_Mask[0], "int", 1)
EndFunc

Func _WinGetClassListEx($sTitle)
    Local $sClassList = WinGetClassList($sTitle)
    Local $aClassList = StringSplit($sClassList, @LF)
    Local $sRetClassList = "", $sHold_List = "|"
    Local $aiInHold, $iInHold
    
    For $i = 1 To UBound($aClassList) - 1
        If $aClassList[$i] = "" Then ContinueLoop
        
        If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
            $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
            $iInHold = Number($aiInHold[UBound($aiInHold)-1])
            
            If $iInHold = 0 Then $iInHold += 1
            
            $aClassList[$i] &= "~" & $iInHold + 1
            $sHold_List &= $aClassList[$i] & "|"
            
            $sRetClassList &= $aClassList[$i] & @LF
        Else
            $aClassList[$i] &= "~1"
            $sHold_List &= $aClassList[$i] & "|"
            $sRetClassList &= $aClassList[$i] & @LF
        EndIf
    Next
    
    Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc

func _hide()
    GUISetState(@SW_HIDE, $main)
    $inir_1 = IniRead(@ScriptDir & "\bin\Fconfig.ini", "settings", "hotkey", "^{F3}")
    HotKeySet($inir_1, "_HotKeyForGrabbingSwfFiles")
EndFunc

func _HotKeyForGrabbingSwfFiles()   
    if WinActive("[CLASS:MozillaUIWindowClass]","") then
        MsgBox(0, "Error with Flash Grabber!!!", "Flash Grabber only works with Internet Explorer.", 5)
    endif
    if WinActive("[CLASS:IEFrame]", "Internet Explorer") then
        Dim $downloaded[100]
        $downloaded[0] = 0
        $oIEg = _IEAttach ("Internet Explorer", "WindowTitle")
        $urlname = _IEPropertyGet ($oIEg, "locationurl")
        InetGet($urlname, @ScriptDir & "\bin\temp\temp.html")
        $html = FileOpen(@ScriptDir & "\bin\temp\temp.html", 0)
        While 1
            $line = FileReadLine($html)
            If @error Then
                FileClose($html)
                FileDelete(@ScriptDir & "\bin\temp.html")
                MsgBox(0, "Downloaded", "Downloaded " & $downloaded[0] & " .swf Files")
                Exitloop
            EndIf
            $delimit = "'"
            $delimit &= '"'
            $split = Stringsplit($line, $delimit)
            If Not @error Then
                For $i = 1 to $split[0]
                    If StringRight($split[$i], 3) = "swf" Then
                        $match = $split[$i]
                        $split2 = Stringsplit($line, ",)")
                        match()
                    EndIf
                Next
            EndIf
        WEnd
    EndIf
EndFunc

func _filequestion()
    if $question_a = 1 then
        $ppath = @ScriptDir & "\bin\temp\"&$swffile
        $question_a = 0
    endif
    if $question_a = 0 then $ppath = @ScriptDir & "\bin\temp\pending_review\"&$swffile
    $filemove = FileMove($ppath, @ScriptDir & "\games\"&$swffile, 0)
    $qst2 = MsgBox(4, "File already exist!", "The file name already exist in the stash. Do you wish to overwrite?")
    if $qst2 = 6 then
        FileMove($ppath, @ScriptDir & "\games\"&$swffile, 1)
    endif
    if $qst2 = 7 then
        $qst3 = MsgBox(32+4, "Question", "Do you wish to rename the file before adding it to the stash?"& @CRLF _
                &""& @CRLF _
                &"CLick YES to rename and save to the stash"& @CRLF _
                &"Click NO to delete the file.")
        If $qst3 = 1 then
            $renamefile = InputBox("Rename", "Type the name you want the file to be. You can use the following examples in nameing the file:"& @CRLF _
                    &""& @CRLF _
                    &"filename.swf"& @CRLF _
                    &"filename")
            $stringchk = StringRight($renamefile, 4)
            if $stringchk = ".swf" then
                FileMove($ppath, @ScriptDir & "\games\"&$renamefile, 1)
            Else
                FileMove($ppath, @ScriptDir & "\games\"&$renamefile&".swf", 1)
                _getlist()
                GUICtrlSetData($Edit_1, $st)
            endif
        endif
    endif
    GUIDelete($qst)

EndFunc

Func match()
    $split3 = StringSplit($match, "/")
    $size = InetGetSize($match)
    If $size > 100000 Then
        For $q = 1 to $downloaded[0]
            If $match = $downloaded[$q] Then
                Return
            EndIf
        Next
        InetGet($match, @ScriptDir & "\bin\temp\" & $split3[$split3[0]])
        $downloaded[0] += 1
        $downloaded[$downloaded[0]] = $match
    EndIf
EndFunc

func _RestoreFromTray()
    if WinExists("VollyViewer - ", "End Game") then GUIDelete($Form1)
    _getlist()
    GUICtrlSetData($Edit_1, "")
    GUICtrlSetData($Edit_1, $st)    
    GUISetState(@SW_SHOW, $main)
    HotKeySet($inir_1)
EndFunc

Func WM_SIZE($hWnd, $Msg, $wParam, $lParam)
    Local $iWidth = BitAND($lParam, 0xFFFF)
    Local $iHeight = BitShift($lParam, 16)
   _WinAPI_MoveWindow($Edit_1a, 120, $iHeight - 80, $iWidth - 133, 80, True)   
Return $GUI_RUNDEFMSG
EndFunc 

Func _viewer()
    $Form1 = GUICreate($read, $W, $H, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $Obj = _IECreateEmbedded ()
    $browser = GUICtrlCreateObj ($Obj, 8, 8, $W - 20, $H - 90)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
    _IENavigate ($Obj, 'about:blank')
    $oDoc = _IEDocGetObj ($Obj)
    $oDoc.body.style.overflow = "auto"
    $oDoc.body.style.margin = "0px"
    $oDoc.body.style.padding = "0px"
    $button_6a = GUICtrlCreateButton("End Game", 10 , $h - 70, 80, 20)
    $button_7a = GUICtrlCreateButton("Load Game", 10, $h - 45, 80, 20)
    $Edit_1a =_GUICtrlListBox_Create($Form1, "",120, $H - 80, $W - 133, 80, $LBS_MULTICOLUMN + $WS_HSCROLL) 
    _GUICtrlListBox_SetColumnWidth($Edit_1a, 150)
    _GUICtrlListBox_BeginUpdate($Edit_1a)
    _GUICtrlListBox_ResetContent($Edit_1a)
    _GUICtrlListBox_InitStorage($Edit_1a, 100, 4096)
    _GUICtrlListBox_Dir($Edit_1a, @ScriptDir & "\games\*.swf")
    $list_count = _GUICtrlListBox_GetCount($Edit_1a)
    $n = 0
    do 
        $read_0  =  _GUICtrlListBox_GetCurSel($Edit_1a)
        $read_0a  =   _GUICtrlListBox_GetText($Edit_1a, $read_0 + $n)
        $srt_trim =   StringTrimRight($read_0a, 4)
        $rep_string = _GUICtrlListBox_ReplaceString($Edit_1a, $read_0 + $n, $srt_trim)
        $n = $n +1
    until $read_0 + $n = $list_count
    _GUICtrlListBox_UpdateHScroll($Edit_1a)
    _GUICtrlListBox_EndUpdate($Edit_1a)
    GUICtrlSetResizing($button_7a, $GUI_DOCKBOTTOM + $GUI_DOCKSIZE + $GUI_DOCKLEFT)
    GUICtrlSetResizing($button_6a, $GUI_DOCKBOTTOM + $GUI_DOCKSIZE + $GUI_DOCKLEFT) 
    GUICtrlSetData($Edit_1a, $st)
    GUISetState(@SW_SHOW)
    $flash1 = @ScriptDir & "\games\" & $selection
    $sHTML = '<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"'
    $sHTML &= 'codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"'
    $sHTML &= '<embed id=flashgame src="'&$flash1&'"'
    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
    $sHTML &= 'type="application/x-shockwave-flash" '
    $sHTML &= 'width="100%" height="100%" stage.scaleMode = "showAll" ></embed>'
    _IEBodyWriteHTML ($Obj, $sHTML)
    if $pending = 0 then 
        loadswf($flash1)
    EndIf   
    if $pending = 1 then
        $pending = 0
        loadswf(@ScriptDir & "\bin\temp\pending_review\"&$swffile)
    endif
    _SetViewerPOS()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                _GetViewerPOS()
                GUIDelete($Form1)
                ExitLoop
            Case $button_6a
                _GetViewerPOS()
                GUIDelete($Form1)
                ExitLoop
            Case $button_7a 
                $read_1 =_GUICtrlListBox_GetCurSel($Edit_1a)
                $readb = _GUICtrlListBox_GetText($Edit_1a, $read_1)
                if $readb = "" then 
                    MsgBox(48, "Opps!", "You didn't select a game.")
                else
                    _GetViewerPOS()                 
                    IniWrite($iniP1, "current_game", "1", $readb)
                    _IENavigate ($Obj, 'about:blank')
                    sleep(100)
                    $flash2 = @ScriptDir & "\games\" & $readb&".swf"
                    $sHTML = '<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"'
                    $sHTML &= 'codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"'
                    $sHTML &= '<embed id=flashgame src="'&$flash2&'"'
                    $sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
                    $sHTML &= 'type="application/x-shockwave-flash" '
                    $sHTML &= 'width="100%" height="100%" stage.scaleMode = "showAll"></embed>'
                    _IEBodyWriteHTML ($Obj, $sHTML)
                    loadswf($flash2)
                    _SetViewerPOS()
                EndIf
        EndSwitch
    WEnd
EndFunc  ;==>_viewer

func _aboutVV()
    MsgBox(64, "About", "VollyViewer by Volly."&@CRLF&""&@CRLF&" Special thanks to Lod3n, BigDaddy, and all the other"&@CRLF&"wonderful folks who helped me on this.")
EndFunc

func loadswf($filename)
    $flash = _IEGetObjByName ($Obj, "flashgame")
    $flash.Movie = $filename    
    winsettitle($gui,"","VollyViewer - "&$filename)
EndFunc


func _GetViewerPOS()
    local $readc
    $readc = IniRead($iniP1, "current_game", "1", "")
    $CSW = WinGetPos($wn)
    if IniReadSection($iniP1, $readc) = 1 then FileWriteLine($iniP1, " ")
;MsgBox(0, "", IniReadSection($iniP1, $readc))
    IniWrite($iniP1, $readc, "X ", $CSW[0])
    IniWrite($iniP1, $readc, "Y ", $CSW[1])     
    IniWrite($iniP1, $readc, "Width ", $CSW[2])
    IniWrite($iniP1, $readc, "Height ", $CSW[3])    
EndFunc 

func  _SetViewerPOS()
    local $readc
    $readc = IniRead($iniP1, "current_game", "1", "")
    $inir_2a = IniRead($iniP1, $readc, "X ", "0")
    $inir_2b = IniRead($iniP1, $readc, "Y ", "0")   
    $inir_2c = IniRead($iniP1, $readc, "Width ", $w)
    $inir_2d = IniRead($iniP1, $readc, "Height ", $h)
    WinMove("VollyViewer - "&$filename, "", $inir_2a, $inir_2b, $inir_2c, $inir_2d)
EndFunc

i got really board

[yehia]

nice idea

same way using a flash web player we can create flv player

[Bozzman]

i couldnt get the filegrab to work

it could look nicer........

--CODE--

i got really board

i got bored 2 and made the filegrab new func that works if you focus iexplorer:P

expandcollapse popup

func _GrabSWFFiles() 
 ToolTip("Filegrabber Start",0,0)
 if WinActive("[CLASS:MozillaUIWindowClass]","") then
  MsgBox(0, "Error with Flash Grabber!!!", "Flash Grabber only works with Internet Explorer.", 5)
 endif
 If WinExists("internet explorer") Then
  If Not WinActive("internet explorer") Then
   WinActivate("internet explorer")
  EndIf
 EndIf
 
 if WinActive("[CLASS:IEFrame]", "Internet Explorer") then
  Dim $downloaded[100]
  Local $tempsrc, $tempswf, $templen, $tempsize, $dl
  $downloaded[0] = 0
  $oIEg = _IEAttach ("Internet Explorer", "WindowTitle")
  $urlname = _IEPropertyGet ($oIEg, "locationurl")
  InetGet($urlname, @ScriptDir & "\bin\temp\temp.html")
  $html = FileOpen(@ScriptDir & "\bin\temp\temp.html", 0)
  $linenr = 1
  While 1
   $line = FileReadLine($html,$linenr)
   If @error Then
    FileClose($html)
    FileDelete(@ScriptDir & "\bin\temp.html")
    MsgBox(0, "Downloaded", "Downloaded " & $downloaded[0] & " .swf Files")
    GUICtrlSetData($edit_1, "")
    _getlist()
    GUICtrlSetData($Edit_1, $st)
    Exitloop
   EndIf
   If StringInStr($line, "swf") And StringInStr($line, "scr") <> 0 Then
   ;MsgBox(0,"Found","Found SWF or FLV in linenr "&$linenr)
   ;<embed src="<A href="http://www.spellencentrum.nl/spellen564321845615784616846/mirrorsedge2d.swf">http://www.spellencentrum.nl/spellen564321845615784616846/mirrorsedge2d.swf</A>" width="600" height="400" style="overflow: auto;" allowscriptaccess="always" allowfullscreen="true" id="spel" wmode="opaque" />
;   MsgBox(0,"string",$line)
    $tempsrc = StringInStr($line, "src=")
    $line = StringTrimLeft($line, $tempsrc + 3)
;   MsgBox(0,"string1", $line)
    $tempswf = StringInStr($line, ".swf")
    $templen = StringLen($line)
    $line = StringTrimRight($line, $templen - $tempswf - 3)
;   MsgBox(0,"string2",$line)
    $line = StringReplace($line,'"',"")
;   MsgBox(0,"string3",$line)
    $line = StringReplace($line,"'","")
;   MsgBox(0,"string4",$line)
    $match = $line
    $tempsize = InetGetSize($line) / 1024
    $dl = MsgBox(4, "Download", "Do you wish to download this file?" & @CRLF & $line & @CRLF & "Size: " & $tempsize & "kB")
    if $dl = 6 then
     match()
    EndIf
   EndIf
   
#cs   $delimit = "'"
   $delimit &= '"'
   $split = Stringsplit($line, $delimit)
   If Not @error Then
    For $i = 1 to $split[0]
     If StringRight($split[$i], 3) = "swf" Then
      $match = $split[$i]
      $split2 = Stringsplit($line, ",)")
      match()
     EndIf
     If StringRight($split[$i], 3) = "fla" Then
      $match = $split[$i]
      $split2 = Stringsplit($line, ",)")
      match()
     EndIf
    Next
#ce   EndIf
   $linenr += 1
  WEnd
 Else
  MsgBox(0,"error", "error")
 EndIf
 ToolTip("Filegrabber End 2",0,0)
 sleep(2000)
 ToolTip("")
EndFunc

not the cleanest code ever but who cares it does the jobxD

msgboxes are for debugging and the tooltips just for fun

btw to replace the old one change the func name;)

[toonboon]

Just my 2 cents, but isn't it easier/nicer if you just create a flash player object instead of writing a html page and opening that in an embedded IE file? I mean, using IE makes it use way more memory.

[Bert]

in some cases, the script would not work on certain PCs. I found it worked better when I ran it in IE.