IE.au3

[nitekram]

I use the following to get errors and to stop my script from freezing...

expandcollapse popup

Global $sDebugFile = 'COMError_Debug.txt'

_COMError_Notify(2)


Func _COMError_Notify($iDebug, $sDebugFile = Default)
    Static Local $avDebugState[3] = [0, "", 0] ; Debugstate, Debugfile and AutoIt.Error object
    ;If $sDebugFile = Default Or $sDebugFile = "" Then $sDebugFile = '\\cscsvrndc001\users\mthompson49\shared\COMError_Debug.txt'
    If Not IsInt($iDebug) Or $iDebug < -1 Or $iDebug > 3 Then Return SetError(1, 0, 0)
    Switch $iDebug
        Case -1
            Return $avDebugState
        Case 0
            $avDebugState[0] = 0
            $avDebugState[1] = ""
            $avDebugState[2] = 0
        Case Else
            If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
            ; A COM error handler will be initialized only if one does not exist
            If ObjEvent("AutoIt.Error") = "" Then
                $avDebugState[2] = ObjEvent("AutoIt.Error", "__COMError_Handler") ; Creates a custom error handler
                If @error <> 0 Then Return SetError(2, @error, 0)
                $avDebugState[0] = $iDebug
                $avDebugState[1] = $sDebugFile
                Return SetError(0, 1, 1)
            ElseIf ObjEvent("AutoIt.Error") = "__COMError_Handler" Then
                Return SetError(0, 0, 1) ; COM error handler already set by a previous call to this function
            Else
                Return SetError(3, 0, 0) ; COM error handler already set to another function
            EndIf
    EndSwitch
    Return

EndFunc   ;==>_COMError_Notify

Func __COMError_Handler($oCOMError)
    Local $sTitle = "AutoIt COM error handler", $file
    Local $avDebugState = _COMError_Notify(-1)
    Local $sError = "Error encountered in " & @ScriptName & ":" & @CRLF & _
            "  @AutoItVersion = " & @AutoItVersion & @CRLF & _
            "  @AutoItX64 = " & @AutoItX64 & @CRLF & _
            "  @Compiled = " & @Compiled & @CRLF & _
            "  @OSArch = " & @OSArch & @CRLF & _
            "  @OSVersion = " & @OSVersion & @CRLF & _
            "  Scriptline = " & $oCOMError.Scriptline & @CRLF & _
            "  NumberHex = " & Hex($oCOMError.Number, 8) & @CRLF & _
            "  Number = " & $oCOMError.Number & @CRLF & _
            "  WinDescription = " & StringStripWS($oCOMError.WinDescription, 2) & @CRLF & _
            "  Description = " & StringStripWS($oCOMError.Description, 2) & @CRLF & _
            "  Source = " & $oCOMError.Source & @CRLF & _
            "  HelpFile = " & $oCOMError.HelpFile & @CRLF & _
            "  HelpContext = " & $oCOMError.HelpContext & @CRLF & _
            "  LastDllError = " & $oCOMError.LastDllError & @CRLF

    If '183' = $oCOMError.LastDllError Then Return

    Switch $avDebugState[0]
        Case 1
            ;MsgBox(64, $sTitle & '1', $sError)
            ConsoleWrite($sTitle & " mwt-mwt " & $sError & @CRLF)
            $file = FileOpen($sDebugFile, 1)
            FileWrite($sDebugFile, 'ERROR 1 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                    " - " & $sError & @CRLF & @CRLF)
            FileClose($file)
        Case 2
            ;MsgBox(64, $sTitle & '2', $sError)
            If StringStripWS($oCOMError.WinDescription, 2) <> 'The RPC server is unavailable.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'The object invoked has disconnected from its clients.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'Unspecified error' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'Unable to set the Calculation property of the Application class' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'No such interface supported' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'The interface is unknown.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> "Variable is not of type 'Object'." _
                    And Not StringInStr($sError, 'Unable to set the Calculation property of the Application class') Then
                $file = FileOpen($sDebugFile, 1)
                ConsoleWrite($sTitle & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                        " - " & $sError)
                FileWrite($sDebugFile, 'ERROR 2 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                        " - " & $sError & @CRLF & @CRLF)
                FileClose($file)
            EndIf
        Case 3
            ;MsgBox(64, $sTitle & '3', $sError)
            $file = FileOpen($sDebugFile, 1)
            FileWrite($sDebugFile, 'ERROR 3 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                    " - " & $sError & @CRLF & @CRLF)
            FileClose($file)
    EndSwitch

EndFunc   ;==>__COMError_Handler

Can someone suggest a way to get rid of these two errors that are hitting the console...script stops processing until they hit like 20 times

--> IE.au3 V2.4-0 Warning from function _IELoadWait, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
 

EDIT - spelling

Edited November 4, 2013 by nitekram

[mLipok]

focus on that:

If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)

[nitekram]

I changed my code to this:

expandcollapse popup

Global $sDebugFile = 'COMError_Debug.txt'

_COMError_Notify(2)

Func _COMError_Notify($iDebug, $sDebugFile = Default)
    Static Local $avDebugState[3] = [0, "", 0] ; Debugstate, Debugfile and AutoIt.Error object
    ;If $sDebugFile = Default Or $sDebugFile = "" Then $sDebugFile = '\\cscsvrndc001\users\mthompson49\shared\COMError_Debug.txt'
    If Not IsInt($iDebug) Or $iDebug < -1 Or $iDebug > 3 Then Return SetError(1, 0, 0)
    ;http://www.autoitscript.com/forum/topic/155991-ieau3/
    ; If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
    If ($iDebug = -1 Or $iDebug = 2) And ($sDebugFile = "" And $sDebugFile <> Default) Then Return SetError(4, 0, 0)
    ConsoleWrite('$iDebug ' & $iDebug & @CRLF)
ConsoleWrite('$sDebugFile ' & $sDebugFile & @CRLF)

    Switch $iDebug
        Case -1
            Return $avDebugState
        Case 0
            $avDebugState[0] = 0
            $avDebugState[1] = ""
            $avDebugState[2] = 0
        Case Else
            If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
            ; A COM error handler will be initialized only if one does not exist
            If ObjEvent("AutoIt.Error") = "" Then
                $avDebugState[2] = ObjEvent("AutoIt.Error", "__COMError_Handler") ; Creates a custom error handler
                If @error <> 0 Then Return SetError(2, @error, 0)
                $avDebugState[0] = $iDebug
                $avDebugState[1] = $sDebugFile
                Return SetError(0, 1, 1)
            ElseIf ObjEvent("AutoIt.Error") = "__COMError_Handler" Then
                Return SetError(0, 0, 1) ; COM error handler already set by a previous call to this function
            Else
                Return SetError(3, 0, 0) ; COM error handler already set to another function
            EndIf
    EndSwitch
    Return

EndFunc   ;==>_COMError_Notify

Func __COMError_Handler($oCOMError)
    Local $sTitle = "AutoIt COM error handler", $file
    Local $avDebugState = _COMError_Notify(-1)
    Local $sError = "Error encountered in " & @ScriptName & ":" & @CRLF & _
            "  @AutoItVersion = " & @AutoItVersion & @CRLF & _
            "  @AutoItX64 = " & @AutoItX64 & @CRLF & _
            "  @Compiled = " & @Compiled & @CRLF & _
            "  @OSArch = " & @OSArch & @CRLF & _
            "  @OSVersion = " & @OSVersion & @CRLF & _
            "  Scriptline = " & $oCOMError.Scriptline & @CRLF & _
            "  NumberHex = " & Hex($oCOMError.Number, 8) & @CRLF & _
            "  Number = " & $oCOMError.Number & @CRLF & _
            "  WinDescription = " & StringStripWS($oCOMError.WinDescription, 2) & @CRLF & _
            "  Description = " & StringStripWS($oCOMError.Description, 2) & @CRLF & _
            "  Source = " & $oCOMError.Source & @CRLF & _
            "  HelpFile = " & $oCOMError.HelpFile & @CRLF & _
            "  HelpContext = " & $oCOMError.HelpContext & @CRLF & _
            "  LastDllError = " & $oCOMError.LastDllError & @CRLF

    If '183' = $oCOMError.LastDllError Then Return

    Switch $avDebugState[0]
        Case 1
            ;MsgBox(64, $sTitle & '1', $sError)
            ConsoleWrite($sTitle & " mwt-mwt " & $sError & @CRLF)
            $file = FileOpen($sDebugFile, 1)
            FileWrite($sDebugFile, 'ERROR 1 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                    " - " & $sError & @CRLF & @CRLF)
            FileClose($file)
        Case 2
            ;MsgBox(64, $sTitle & '2', $sError)
            If StringStripWS($oCOMError.WinDescription, 2) <> 'The RPC server is unavailable.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'The object invoked has disconnected from its clients.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'Unspecified error' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'Unable to set the Calculation property of the Application class' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'No such interface supported' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> 'The interface is unknown.' _
                    And StringStripWS($oCOMError.WinDescription, 2) <> "Variable is not of type 'Object'." _
                    And Not StringInStr($sError, 'Unable to set the Calculation property of the Application class') Then
                $file = FileOpen($sDebugFile, 1)
                ConsoleWrite($sTitle & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                        " - " & $sError)
                FileWrite($sDebugFile, 'ERROR 2 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                        " - " & $sError & @CRLF & @CRLF)
                FileClose($file)
            EndIf
        Case 3
            ;MsgBox(64, $sTitle & '3', $sError)
            $file = FileOpen($sDebugFile, 1)
            FileWrite($sDebugFile, 'ERROR 3 USER ' & @UserName & '   ' & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $sTitle & _
                    " - " & $sError & @CRLF & @CRLF)
            FileClose($file)
    EndSwitch

EndFunc   ;==>__COMError_Handler

Still getting this:

$iDebug -1
$sDebugFile Default
--> IE.au3 V2.4-0 Warning from function _IELoadWait, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)
$iDebug -1
$sDebugFile Default
--> IE.au3 V2.4-0 Error from function _IEPropertyGet, $_IEStatus_InvalidObjectType

[mLipok]

this  $sDebugFile

Global $sDebugFile = 'COMError_Debug.txt'
_COMError_Notify(2)

is not the same with this $sDebugFile:

Func _COMError_Notify($iDebug, $sDebugFile = Default)

first one is Global $sDebugFile

second one is Local $sDebugFile

try this:

Global $sDebugFile = 'COMError_Debug.txt'
_COMError_Notify(2,$sDebugFile)

edit:

this is better:

Global $sDebugFile = @ScriptDir & '\COMError_Debug.txt'
_COMError_Notify(2,$sDebugFile)

Edited November 4, 2013 by mlipok

[lionfaggot]

error handling can be a pita, im not sure where your issue is there but id be willing to give the script a shot. on a side note, my example functions for ie are pretty dope. you should have a look, they do many of the things people would want to do with ie in only two functions. check it if you want: '?do=embed' frameborder='0' data-embedContent>>

[nitekram]

I did change the call - added the path to it, but still getting the same issue.

I found another post that says: to read the doc for _IEErrorHandlerRegister(), but have no clue...as you were the one that asked the question, did you ever use this function?

EDIT added this from the description of the function:

; #FUNCTION# ====================================================================================================================
; Name...........: _IEErrorHandlerRegister
; Description ...: Register and enable a user COM error handler
; Parameters ....: $s_functionName - String variable with the name of a user-defined COM error handler
;           defaults to the internal COM error handler in this UDF
; Return values .: On Success  - Returns 1
;                  On Failure - Returns 0 and sets @ERROR
;     @ERROR  - 0 ($_IEStatus_Success) = No Error
;        - 1 ($_IEStatus_GeneralError) = General Error
;     @Extended - Contains invalid parameter number
; Author ........: Dale Hohm

Func _IEErrorHandlerRegister($s_functionName = "__IEInternalErrorHandler")
 $sIEUserErrorHandler = $s_functionName
 $oIEErrorHandler = ""
 $oIEErrorHandler = ObjEvent("AutoIt.Error", $s_functionName)
 If IsObj($oIEErrorHandler) Then
  Return SetError($_IEStatus_Success, 0, 1)
 Else
  __IEErrorNotify("Error", "_IEPropertySet", "$_IEStatus_GeneralError", _
    "Error Handler Not Registered - Check existance of error function")
  Return SetError($_IEStatus_GeneralError, 1, 0)
 EndIf
EndFunc   ;==>_IEErrorHandlerRegister

Here is the post...

Edited November 4, 2013 by nitekram

[DaleHohm]

What don't you understand about _IEErrorHandlerRegister?

Simply use it in place of your call to ObjEvent and pass the name of your error handler function.

Upgrade to the beta of AutoIt and it is no longer required since COM errors are no longer fatal and IE.au3 no longer needs to manage an internal error handler.

Dale

[nitekram]

What don't you understand about _IEErrorHandlerRegister?

Simply use it in place of your call to ObjEvent and pass the name of your error handler function.

The only place in my script that uses the ObjEvent is here:

Func _COMError_Notify($iDebug, $sDebugFile = Default)
    Static Local $avDebugState[3] = [0, "", 0] ; Debugstate, Debugfile and AutoIt.Error object
    ;If $sDebugFile = Default Or $sDebugFile = "" Then $sDebugFile = '\\cscsvrndc001\users\mthompson49\shared\COMError_Debug.txt'
    If Not IsInt($iDebug) Or $iDebug < -1 Or $iDebug > 3 Then Return SetError(1, 0, 0)
    ;http://www.autoitscript.com/forum/topic/155991-ieau3/
    ; If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
    If ($iDebug = -1 Or $iDebug = 2) And ($sDebugFile = "" And $sDebugFile <> Default) Then Return SetError(4, 0, 0)
    ConsoleWrite('$iDebug ' & $iDebug & @CRLF)
ConsoleWrite('$sDebugFile ' & $sDebugFile & @CRLF)

    Switch $iDebug
        Case -1
            Return $avDebugState
        Case 0
            $avDebugState[0] = 0
            $avDebugState[1] = ""
            $avDebugState[2] = 0
        Case Else
            If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
            ; A COM error handler will be initialized only if one does not exist
            If ObjEvent("AutoIt.Error") = "" Then
                $avDebugState[2] = ObjEvent("AutoIt.Error", "__COMError_Handler") ; Creates a custom error handler
                If @error <> 0 Then Return SetError(2, @error, 0)
                $avDebugState[0] = $iDebug
                $avDebugState[1] = $sDebugFile
                Return SetError(0, 1, 1)
            ElseIf ObjEvent("AutoIt.Error") = "__COMError_Handler" Then
                Return SetError(0, 0, 1) ; COM error handler already set by a previous call to this function
            Else
                Return SetError(3, 0, 0) ; COM error handler already set to another function
            EndIf
    EndSwitch
    Return

EndFunc   ;==>_COMError_Notify

When I replace the calls, I get an error that states that I am calling your function with the wrong amount of arguments? Can you explain - where and how I would use your function _IEErrorHandlerRegister()- sorry if I do not understand.

Upgrade to the beta of AutoIt and it is no longer required since COM errors are no longer fatal and IE.au3 no longer needs to manage an internal error handler.

At work and not able to upgrade to the newest and greatest, so that is not an option at this time.

Thanks for any help that you might be able to provide!!!

[DaleHohm]

It takes one (optional) parameter.  What are you passing?  You've looked at the example in the helpfile, right?

Dale

[nitekram]

expandcollapse popup

Func _COMError_Notify($iDebug, $sDebugFile = Default)
    Static Local $avDebugState[3] = [0, "", 0] ; Debugstate, Debugfile and AutoIt.Error object
    ;If $sDebugFile = Default Or $sDebugFile = "" Then $sDebugFile = '\\cscsvrndc001\users\mthompson49\shared\COMError_Debug.txt'
    If Not IsInt($iDebug) Or $iDebug < -1 Or $iDebug > 3 Then Return SetError(1, 0, 0)
    ;http://www.autoitscript.com/forum/topic/155991-ieau3/
    ; If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
    If ($iDebug = -1 Or $iDebug = 2) And ($sDebugFile = "" And $sDebugFile <> Default) Then Return SetError(4, 0, 0)
    ConsoleWrite('$iDebug ' & $iDebug & @CRLF)
ConsoleWrite('$sDebugFile ' & $sDebugFile & @CRLF)

    Switch $iDebug
        Case -1
            Return $avDebugState
        Case 0
            $avDebugState[0] = 0
            $avDebugState[1] = ""
            $avDebugState[2] = 0
        Case Else
            If $iDebug = 2 And $sDebugFile = "" Then Return SetError(4, 0, 0)
            ; A COM error handler will be initialized only if one does not exist

            ;http://www.autoitscript.com/forum/topic/155991-ieau3/#entry1127806
            #cs
            What don't you understand about _IEErrorHandlerRegister?

Simply use it in place of your call to ObjEvent and pass the name of your error handler function.

Upgrade to the beta of AutoIt and it is no longer required since COM errors are no longer fatal and IE.au3 no longer needs to manage an internal error handler.
#ce



        If _IEErrorHandlerRegister("AutoIt.Error") = "" Then  ; HERE

            ;If ObjEvent("AutoIt.Error") = "" Then
                ;$avDebugState[2] = ObjEvent("AutoIt.Error", "__COMError_Handler") ; Creates a custom error handler
                $avDebugState[2] = _IEErrorHandlerRegister("AutoIt.Error", "__COMError_Handler")  ; HERE

                If @error <> 0 Then Return SetError(2, @error, 0)
                $avDebugState[0] = $iDebug
                $avDebugState[1] = $sDebugFile
                Return SetError(0, 1, 1)
            ;ElseIf ObjEvent("AutoIt.Error") = "__COMError_Handler" Then
                ElseIf _IEErrorHandlerRegister("AutoIt.Error") = "__COMError_Handler" Then  ; HERE
                Return SetError(0, 0, 1) ; COM error handler already set by a previous call to this function
            Else
                Return SetError(3, 0, 0) ; COM error handler already set to another function
            EndIf
    EndSwitch
    Return

EndFunc   ;==>_COMError_Notify

Sorry, if I misunderstood what you said, but thought you just wanted me to use that function where I call the ObjEvent?

EDIT As far as looking in the help file - I am now

Edited November 6, 2013 by nitekram

[nitekram]

OK, after reading the help file part for this...still not sure what it does? Anyway, I no longer am getting the error messages, that I received before, and it appears to have done the trick.

All I did was call your example in the beginning of my script - I never DeRegister, should register it right before using the IE.au3 functions and then De-register it right after my commands are complete?