Sign in to follow this  
Followers 0
Bert

VollyViewer - flash player

11 posts in this topic

#1 ·  Posted (edited)

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 by Volly

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

That looks pretty nice volly!


Spoiler

 

"If a vegetarian eats vegetables,What the heck does a humanitarian eat?"

"I hear voices in my head, but I ignore them and continue on killing."

"You have forced me to raise the indifference warning to beige, it's a beige alert people. As with all beige alerts please prepare to think about the possibility of caring."

An optimist says that giving someone power DOESN'T immediately turn them into a sadist. A pessimist says that giving someone power doesn't IMMEDIATELY turn them into a sadist.

 

 

Share this post


Link to post
Share on other sites

i couldnt get the filegrab to work

That looks pretty nice volly!

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

#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


0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

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

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;)

Share this post


Link to post
Share on other sites

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.


[right]~What can I say, I'm a Simplistic person[/right]

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