Самый простой пример:
Код:
Код: Выделить всё
#include
#include
#include
Opt("GUIOnEventMode", 1)
$hWin = GUICreate("Часы", 200, 50, 0, 0, $WS_BORDER+$WS_POPUP)
$oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
GUICtrlCreateObj($oFlash, 0, 0, 200, 50)
; Проверка: является ли объектом или нет.
;~ If IsObj($oFlash) Then
;~ MsgBox(4096, "", "$oFlash это объект.")
;~ Else
;~ MsgBox(4096, "", "$oFlash это не объект.")
;~ EndIf
$oFlash.Quality = 1
$oFlash.Movie = @ScriptDir &'\Chasi.swf'
GUISetState(@SW_SHOW, $hWin)
While 1
Sleep(1000)
WEndОднако на выходе получается ошибка.
Цитата:
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
E:\AutoIt\Test\Hlam.au3 (17) : ==> Variable must be of type "Object".:
$oFlash.Quality = 1
$oFlash^ ERROR
->13:12:29 AutoIt3.exe ended.rc:1
+>13:12:29 AutoIt3Wrapper Finished.
Проверил и да, действительно переменная $oFlash не является объектом. Это явление очень странное, так как скомпилированные раньше скрипты работают, а сейчас из-за ошибки не могу скомпилировать. В самой системе эти файлы открываются.