Jump to content

Flash control


Recommended Posts

hi

; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
;              outside of history bounds does not abort script
;              (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
HotKeySet("{ESC}", "Terminate")
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Embedded flash control Test", 540, 510,-1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST))
GUISetBkColor(345)
_WinAPI_SetLayeredWindowAttributes($Form1, 345, 255)
$GUIActiveX = GUICtrlCreateObj($oIE,-240,-20,  1024, 1024)
$swfObjEvents = ObjEvent($oIE,"_fscommand") ;dont work
GUISetState()      ;Show GUI
_IENavigate($oIE, @ScriptDir&"\a3d.html");
; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
      
    EndSelect
WEnd
GUIDelete()
Exit
Func Terminate()
    Exit 0
EndFunc
   Func _fscommand($type,$command,$arguments)
if $type = "fscommand" then
Switch $command
Case  "button2"
exit
Case  "button1"
msgbox(0,"info","hello word")
EndSwitch
endif
endfunc

Flash button control

thank you

Func _fscommand($type,$command,$arguments) dont work

Edited by mesale0077
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

  • Recently Browsing   0 members

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