| 1 | $oErrorHandler = ObjEvent("AutoIt.Error", "ErrorHandler")
|
|---|
| 2 |
|
|---|
| 3 | $oIE = ObjCreate("InternetExplorer.Application")
|
|---|
| 4 | $oIE.visible = True
|
|---|
| 5 | $oIE.navigate("http://www.w3.org/WAI/UA/TS/html401/cp0101/0101-FRAME-TEST.html")
|
|---|
| 6 | $oFrame = $oIE.document.frames("target1")
|
|---|
| 7 | $oDoc = $oFrame.document
|
|---|
| 8 |
|
|---|
| 9 | ConsoleWrite("IsObj: " & IsObj($oDoc) & @CRLF)
|
|---|
| 10 |
|
|---|
| 11 |
|
|---|
| 12 | Func ErrorHandler()
|
|---|
| 13 | $ErrorScriptline = $oErrorHandler.scriptline
|
|---|
| 14 | $ErrorNumber = $oErrorHandler.number
|
|---|
| 15 | $ErrorNumberHex = Hex($oErrorHandler.number, 8)
|
|---|
| 16 | $ErrorDescription = StringStripWS($oErrorHandler.description, 2)
|
|---|
| 17 | $ErrorWinDescription = StringStripWS($oErrorHandler.WinDescription, 2)
|
|---|
| 18 | $ErrorSource = $oErrorHandler.Source
|
|---|
| 19 | $ErrorHelpFile = $oErrorHandler.HelpFile
|
|---|
| 20 | $ErrorHelpContext = $oErrorHandler.HelpContext
|
|---|
| 21 | $ErrorLastDllError = $oErrorHandler.LastDllError
|
|---|
| 22 | $ErrorOutput = ""
|
|---|
| 23 | $ErrorOutput &= "--> COM Error Encountered in " & @ScriptName & @CRLF
|
|---|
| 24 | $ErrorOutput &= "----> $ErrorScriptline = " & $ErrorScriptline & @CRLF
|
|---|
| 25 | $ErrorOutput &= "----> $ErrorNumberHex = " & $ErrorNumberHex & @CRLF
|
|---|
| 26 | $ErrorOutput &= "----> $ErrorNumber = " & $ErrorNumber & @CRLF
|
|---|
| 27 | $ErrorOutput &= "----> $ErrorWinDescription = " & $ErrorWinDescription & @CRLF
|
|---|
| 28 | $ErrorOutput &= "----> $ErrorDescription = " & $ErrorDescription & @CRLF
|
|---|
| 29 | $ErrorOutput &= "----> $ErrorSource = " & $ErrorSource & @CRLF
|
|---|
| 30 | $ErrorOutput &= "----> $ErrorHelpFile = " & $ErrorHelpFile & @CRLF
|
|---|
| 31 | $ErrorOutput &= "----> $ErrorHelpContext = " & $ErrorHelpContext & @CRLF
|
|---|
| 32 | $ErrorOutput &= "----> $ErrorLastDllError = " & $ErrorLastDllError & @CRLF
|
|---|
| 33 | ConsoleWrite($ErrorOutput & @CRLF)
|
|---|
| 34 | Return
|
|---|
| 35 | EndFunc ;==>__IEInternalErrorHandler
|
|---|
