Search the Community

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