vba - Manejo de errores AutoIT

automation

Question

Tengo un código que generará un error después de un tiempo, quería manejar ese error. Una forma en que cualquier error se aplica a una función personalizada también lo hará.

Usualmente en VBA usábamos OnErrorGoTo Func y nuestro trabajo estaba hecho, no puedo encontrar algo similar en AutoIT.

Mi código

Func Start()

   while 1
if ProcessExists ( "Photoshop.exe" ) <> 0 Then
   Sleep(5000)
Else
 Local $sFile ="C:/Auto/CodeToBe/Batch/Image Process-50-2D v.2-" & $n & ".jsxbin"
 Local $iPID = ShellExecute($sFile)
   Sleep(10000)
   $n = $n+1
EndIf
   WEnd
EndFunc

Por supuesto, habrá un error cuando $ n sea mayor que la cantidad de archivos que he puesto en esa carpeta.

Una de las pocas cosas que intenté pero no funcionó, obtuve esto de la "SECCIÓN DE AYUDA" y una publicación en el foro.

    Global $iEventError = 0 ; To be checked to know if COM error occurs. Must be reset after handling.
    Local $oMyError = ObjEvent("AutoIt.Error", "ErrFunc") ; Install a custom error handler

    Func Start()

   while 1
      if ProcessExists ( "Photoshop.exe" ) <> 0 Then
      Sleep(5000)
      Else
      Local $sFile ="C:/Auto/CodeToBe/Batch/Image Process-50-2D v.2-" & $n & ".jsxbin"
      Local $iPID = ShellExecute($sFile)
            If $iEventError Then
            MsgBox($MB_OK, "", "There was an error on the previous line.")
            $iEventError = 0 ; Reset after displaying a COM Error occurred
            EndIf
       Sleep(10000)
      $n = $n+1
      EndIf
      WEnd
EndFunc

    ; This is my custom error handler 
    Func MyErrFunc() 
       Msgbox(0,"","ERROR GENERATED ON " & $n)
    Endfunc

Espero haber sido claro, si no, por favor avíseme, editaremos la pregunta para una mejor respuesta.

Answer 1

Aquí hay dos ejemplos. Recomendaría utilizar el segundo ejemplo porque, en primer lugar, debería evitar que se produzca un error. Sin embargo, el primer ejemplo se puede usar como un verificador de errores generales para la mayoría de los errores.

Ejemplo 1

Start()

Func Start()

    Local $n = 1
    While 1
        If ProcessExists("Photoshop.exe") <> 0 Then
            Sleep(5000)
        Else
            Local $sFile = "C:/Auto/CodeToBe/Batch/Image Process-50-2D v.2-" & $n & ".jsxbin"

            Local $iPID = ShellExecute($sFile)
            If @error Then MyErrFunc(@ScriptLineNumber, @error) ;check for error

            Sleep(10000)
            $n = $n + 1
        EndIf
    WEnd
EndFunc   ;==>Start

; error handler
Func MyErrFunc($iLineNumer, $iError)
    $iLineNumer = $iLineNumer - 1
    MsgBox(0, "", "ERROR GENERATED ON SCRIPT LINE: " & $iLineNumer & @CRLF & "ERROR CODE: " & $iError)
EndFunc   ;==>MyErrFunc

Ejemplo 2

Start2()

Func Start2()

    Local $n = 1
    While 1
        If ProcessExists("Photoshop.exe") <> 0 Then
            Sleep(5000)
        Else
            Local $sFile = "C:/Auto/CodeToBe/Batch/Image Process-50-2D v.2-" & $n & ".jsxbin"

            If FileExists($sFile) Then
                Local $iPID = ShellExecute($sFile)
                Sleep(10000)
            Else ;handle error (you could use a function here if you wanted)
                ConsoleWrite("File not found: " & $sFile & @CRLF)
            EndIf

            $n = $n + 1
        EndIf
    WEnd
EndFunc   ;==>Start2

Answer 2

Intenta implementar alguna comprobación de errores. Si no es FileExists (su cadena con el $ n) Entonces ... abortar más shellexecute ... Podría tratar de usar algo como _FileListToArray antes de iniciar el ciclo. Eche un vistazo al ejemplo en el gran archivo de ayuda.