Warning after using ObjEvent("AutoIt.Error")

[Bresacon]

If I declare a local variable inside a function and assign the return of ObjEvent("AutoIt.Error") to it, Au3Check.exe says "declared, but not used in func."

But that's not true. I've used it. And there was a ton of COM errors, so it works and has done something.

It's just an annoyance, everything works but... it is used in func.

BTW, the COM error handling has to end (be disabled after the function ends), so it has to be local. I assign the variable to zero at the end, just in case.
 

Edited July 27, 2022 by Bresacon

[Jos]

It is always helpful to post an snippet as reproducer. Is the message coming from AutoIt3 or au3check?

Edited July 27, 2022 by Jos

[Bresacon]

23 minutes ago, Jos said:

It is always helpful to post an snippet as reproducer. Is the message coming from AutoIt3 or au3check?

Au3Check. I should've mention that I use this command line: Au3Check.exe -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

 

Ok. I've setup this.

$iState = _CheckWindowsServiceState("Audiosrv")
Msgbox(0, "", $iState)

Func _CheckWindowsServiceState($sServiceName)
    Local $oObjectErrorCheck
    Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
    Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_Service WHERE Name = "' & $sServiceName & '"')

    $oObjectErrorCheck = ObjEvent("AutoIt.Error","_ObjectErrorInfo")
    If NOT IsObj($colItems) Then Return SetError(1,0,0)
    If NOT $colItems.count Then Return SetError(2,0,0)

    For $oItem In $colItems
        If $oItem.StartMod = "Disabled" then Return 0
        If $oItem.StartMode = "Disabled" then Return 0
        If $oItem.State = "Running" then Return 1
        If $oItem.State = "Stopped" then Return 2
        If $oItem.State = "Unknown" then Return 3
    Next
EndFunc

Func _ObjectErrorInfo($oMyError)
    Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"    & @CRLF  & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
             "err.windescription:"   & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "       & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "   & @TAB & $oMyError.scriptline   & @CRLF & _
             "err.source is: "       & @TAB & $oMyError.source       & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile     & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
Endfunc

The error in the "StartMod" field is what triggers the _ObjectErrorInfo function.

Sorry if I said something silly. I'm learning.

[Jos]

The warning is correct as it only is use on the left hand side of an = sign.  

So the code isn't wrong per se but the variable is nowhere used ...hence the warning. 

[Bresacon]

So there's no fix for me to do? I'll let it be then.

[Danp2]

Search the help file for the term #forceref.

[ripdad]

1. ObjEvent() needs to be before the line ObjGet().

2. Replace $oObjectErrorCheck with $oMyError.

3. StartMod is not a valid class property. Just remove that line and you should be good to go.

 

Edited July 28, 2022 by ripdad
more scrutiny...