Как обрабатывать ошибки _IECreate?

FlatX007 · Отправлено: **12:11, 19-11-2010** | #2

Не уверен - может так.

Код:

#include <IE.au3>

Switch _IECreate ("www.autoitscript.com", 1)
    Case $_IEStatus_GeneralError
        MsgBox(0, Default, "General Error")
    Case $_IEStatus_InvalidDataType
        MsgBox(0, Default, "Invalid Data Type")
    Case $_IEStatus_InvalidObjectType
        MsgBox(0, Default, "Invalid Object Type")
    Case $_IEStatus_LoadWaitTimeout
        MsgBox(0, Default, "Load Wait Timeout")
    Case $_IEStatus_AccessIsDenied
        MsgBox(0, Default, "Access Is Denied")
EndSwitch

Redisych · Отправлено: **12:17, 19-11-2010** | #3

Я другой способ нашёл:

Код:

_IEErrorHandlerRegister ("MyErrFunc") ; Устанавливаем перехватчик COM-ошибок
 
; Программа

Func MyErrFunc()
   $ErrorScriptline = $oIEErrorHandler.scriptline
   $ErrorNumber = $oIEErrorHandler.number
   $ErrorNumberHex = Hex($oIEErrorHandler.number, 8)
   $ErrorDescription = StringStripWS($oIEErrorHandler.description, 2)
   $ErrorWinDescription = StringStripWS($oIEErrorHandler.WinDescription, 2)
   $ErrorSource = $oIEErrorHandler.Source
   $ErrorHelpFile = $oIEErrorHandler.HelpFile
   $ErrorHelpContext = $oIEErrorHandler.HelpContext
   $ErrorLastDllError = $oIEErrorHandler.LastDllError
TrayTip("Ошибка " & $ErrorNumber & " в строке " &  $ErrorScriptline, $ErrorDescription & @CRLF  & $ErrorWinDescription & ............................., 5, 3)
    ;SetError(1)
    Return
Endfunc