Avoid "AutoIt Error" message box in unknown errors

[EKY32]

Hey there

some times in a big script like mine, unpredictable errors come out and crashes it, is there anyway to handle any error in the script with a message box or event instead of viewing an "AutoIt error" and closing the application?

I hope so, thank you.

[water]

One of the typical errors that crashes a script is caused by using an invalid index with arrays:

Global $aArray[3], $i = 99
MsgBox(0, "Error", $aArray[$i])

How would you "handle" such an error?

The only way I see to avoid the error MsgBox is to use the command line switch /ErrorStdOut.

[EKY32]

Thank you, sometimes I have errors from COM objects for example, or even as you said because of an error in arrays methods. I thought that there might be a way to avoid the error message, I don't care if my app crashed, but I don't want to show that my app is created with autoit.

[water]

To handle COM errors you can add a COM error handler to your scripts. See ObjEvent in the help file.

After 3.3.8.1 a COM error no longer crashes the script but sets @error. So you should check for @error <> 0 anyway.

Use the switch as I suggested and you won't see the MsgBox pop up. If you want to display a user defined message I can point you to code I once got from trancexx to handle this issue.

[EKY32]

  Quote

To handle COM errors you can add a COM error handler to your scripts. See ObjEvent in the help file.

 

Great, thank you.

  Quote

After 3.3.8.1 a COM error no longer crashes the script but sets @error. So you should check for @error <> 0 anyway.

 

It's much greater, thank you!

  Quote

Use the switch as I suggested and you won't see the MsgBox pop up. If you want to display a user defined message I can point you to code I once got from trancexx to handle this issue.

 

 

ah yes please, if you have some time for that I would be thankful.

Godspeed.

[trancexx]

Here, let me then:

expandcollapse popup

#include <WinApi.au3>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint")
Func Intercept_MessageBoxW($hWnd, $sText, $sTitle, $iType)
    Local $aCall = DllCall("user32.dll", "int", "MessageBoxW", _
            "hwnd", $hWnd, _
            "wstr", $sText, _
            "wstr", StringReplace($sTitle, "AutoIt", @ScriptName), _
            "uint", $iType)
    If @error Or Not $aCall[0] Then Return 0
    Return $aCall[0]
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Let's try it
; Usual message box
MsgBox(0, 'Test', 'Some text')

; Cause error that would say some AutoIt shit happened, but now it wouldn't say "AutoIt"
DllStructCreate("byte[123456789097]")

; The End


; The magic is down below
Func AddHookApi($sModuleName, $vFunctionName, $vNewFunction, $sRet = "", $sParams = "")
    Local Static $pImportDirectory, $hInstance
    Local Const $IMAGE_DIRECTORY_ENTRY_IMPORT = 1
    If Not $pImportDirectory Then
        $hInstance = _WinAPI_GetModuleHandle(0)
        $pImportDirectory = ImageDirectoryEntryToData($hInstance, $IMAGE_DIRECTORY_ENTRY_IMPORT)
        If @error Then Return SetError(1, 0, 0)
    EndIf
    Local $iIsInt = IsInt($vFunctionName)
    Local $iRestore = Not IsString($vNewFunction)
    Local $tIMAGE_IMPORT_MODULE_DIRECTORY
    Local $pDirectoryOffset = $pImportDirectory
    Local $tModuleName
    Local $iInitialOffset, $iInitialOffset2
    Local $iOffset2
    Local $tBufferOffset2, $iBufferOffset2
    Local $tBuffer, $tFunctionOffset, $pOld, $fMatch, $pModuleName, $pFuncName
    Local Const $PAGE_READWRITE = 0x04
    While 1
        $tIMAGE_IMPORT_MODULE_DIRECTORY = DllStructCreate("dword RVAOriginalFirstThunk;" & _
                "dword TimeDateStamp;" & _
                "dword ForwarderChain;" & _
                "dword RVAModuleName;" & _
                "dword RVAFirstThunk", _
                $pDirectoryOffset)
        If Not DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") Then ExitLoop
        $pModuleName = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAModuleName")
        $tModuleName = DllStructCreate("char Name[" & _WinAPI_StringLenA($pModuleName) & "]", $pModuleName)
        If DllStructGetData($tModuleName, "Name") = $sModuleName Then ; function from this module
            $iInitialOffset = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk")
            $iInitialOffset2 = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAOriginalFirstThunk")
            If $iInitialOffset2 = $hInstance Then $iInitialOffset2 = $iInitialOffset
            $iOffset2 = 0
            While 1
                $tBufferOffset2 = DllStructCreate("dword_ptr", $iInitialOffset2 + $iOffset2)
                $iBufferOffset2 = DllStructGetData($tBufferOffset2, 1)
                If Not $iBufferOffset2 Then ExitLoop
                If $iIsInt Then
                    If BitAND($iBufferOffset2, 0xFFFFFF) = $vFunctionName Then $fMatch = True; wanted function
                Else
                    $pFuncName = $hInstance + $iBufferOffset2 + 2 ; 2 is size od "word", see line below...
                    $tBuffer = DllStructCreate("word Ordinal; char Name[" & _WinAPI_StringLenA($pFuncName) & "]", $hInstance + $iBufferOffset2)
                    If DllStructGetData($tBuffer, "Name") == $vFunctionName Then $fMatch = True; wanted function
                EndIf
                If $fMatch Then
                    $tFunctionOffset = DllStructCreate("ptr", $iInitialOffset + $iOffset2)
                    VirtualProtect(DllStructGetPtr($tFunctionOffset), DllStructGetSize($tFunctionOffset), $PAGE_READWRITE)
                    If @error Then Return SetError(3, 0, 0)
                    $pOld = DllStructGetData($tFunctionOffset, 1)
                    If $iRestore Then
                        DllStructSetData($tFunctionOffset, 1, $vNewFunction)
                    Else
                        DllStructSetData($tFunctionOffset, 1, DllCallbackGetPtr(DllCallbackRegister($vNewFunction, $sRet, $sParams)))
                    EndIf
                    Return $pOld
                EndIf
                $iOffset2 += DllStructGetSize($tBufferOffset2)
            WEnd
            ExitLoop
        EndIf
        $pDirectoryOffset += 20 ; size of $tIMAGE_IMPORT_MODULE_DIRECTORY
    WEnd
    Return SetError(4, 0, 0)
EndFunc

Func VirtualProtect($pAddress, $iSize, $iProtection)
    Local $aCall = DllCall("kernel32.dll", "bool", "VirtualProtect", "ptr", $pAddress, "dword_ptr", $iSize, "dword", $iProtection, "dword*", 0)
    If @error Or Not $aCall[0] Then Return SetError(1, 0, 0)
    Return 1
EndFunc

Func ImageDirectoryEntryToData($hInstance, $iDirectoryEntry)
    ; Get pointer to data
    Local $pPointer = $hInstance
    ; Start processing passed binary data. 'Reading' PE format follows.
    Local $tIMAGE_DOS_HEADER = DllStructCreate("char Magic[2];" & _
            "word BytesOnLastPage;" & _
            "word Pages;" & _
            "word Relocations;" & _
            "word SizeofHeader;" & _
            "word MinimumExtra;" & _
            "word MaximumExtra;" & _
            "word SS;" & _
            "word SP;" & _
            "word Checksum;" & _
            "word IP;" & _
            "word CS;" & _
            "word Relocation;" & _
            "word Overlay;" & _
            "char Reserved[8];" & _
            "word OEMIdentifier;" & _
            "word OEMInformation;" & _
            "char Reserved2[20];" & _
            "dword AddressOfNewExeHeader", _
            $pPointer)
    Local $sMagic = DllStructGetData($tIMAGE_DOS_HEADER, "Magic")
    ; Check if it's valid format
    If Not ($sMagic == "MZ") Then Return SetError(1, 0, 0) ; MS-DOS header missing. Btw 'MZ' are the initials of Mark Zbikowski in case you didn't know.
    ; Move pointer
    $pPointer += DllStructGetData($tIMAGE_DOS_HEADER, "AddressOfNewExeHeader") ; move to PE file header
    ; In place of IMAGE_NT_SIGNATURE structure
    Local $tIMAGE_NT_SIGNATURE = DllStructCreate("dword Signature", $pPointer)
    ; Check signature
    If DllStructGetData($tIMAGE_NT_SIGNATURE, "Signature") <> 17744 Then ; IMAGE_NT_SIGNATURE
        Return SetError(2, 0, 0) ; wrong signature. For PE image should be "PE\0\0" or 17744 dword.
    EndIf
    ; Move pointer
    $pPointer += 4 ; size of $tIMAGE_NT_SIGNATURE structure
    ; In place of IMAGE_FILE_HEADER structure
    ; Move pointer
    $pPointer += 20 ; size of $tIMAGE_FILE_HEADER structure
    ; Determine the type
    Local $tMagic = DllStructCreate("word Magic;", $pPointer)
    Local $iMagic = DllStructGetData($tMagic, 1)
    Local $tIMAGE_OPTIONAL_HEADER
    If $iMagic = 267 Then ; x86 version
        ; Move pointer
        $pPointer += 96 ; size of $tIMAGE_OPTIONAL_HEADER
    ElseIf $iMagic = 523 Then ; x64 version
        ; Move pointer
        $pPointer += 112 ; size of $tIMAGE_OPTIONAL_HEADER
    Else
        Return SetError(3, 0, 0) ; unsupported module type
    EndIf
    ; Validate input by checking available number of structures that are in the module
    Local Const $IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16 ; predefined value that PE modules always use (AutoIt certainly)
    If $iDirectoryEntry > $IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1 Then Return SetError(4, 0, 0) ; invalid input
    ; Calculate the offset to wanted entry (every entry is 8 bytes)
    $pPointer += 8 * $iDirectoryEntry
    ; At place of correst directory entry
    Local $tIMAGE_DIRECTORY_ENTRY = DllStructCreate("dword VirtualAddress; dword Size", $pPointer)
    ; Collect data
    Local $pAddress = DllStructGetData($tIMAGE_DIRECTORY_ENTRY, "VirtualAddress")
    If $pAddress = 0 Then Return SetError(5, 0, 0) ; invalid input
    ; $pAddress is RVA, add it to base address
    Return $hInstance + $pAddress
EndFunc

edit: because this is better than before. Edited August 28, 2013 by trancexx

[EKY32]

  Quote

; Cause error that would say some AutoIt shit happened, but now it wouldn't say "AutoIt"

 

  that's it. thank you.

[mLipok]

This is fabulous

I think this snippet will often quoted.

 

Thanks

trancexx

[mLipok]

I noticed the important thing.

This script does not work with:
AutoIt3Wrapper v.2.1.0.33

after the upgrade to
AutoIt3Wrapper v.2.1.2.26
script starts to work properly.

EDIT:

I had a situation on their PC with a standard installation
AuotIt 3.3.8.1 + SciTE4AutoIt3_2013-04-06.exe

Edited August 30, 2013 by mlipok

[mLipok]

  On 8/28/2013 at 11:55 AM, trancexx said:

AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint")

 

I wonder how I can, after running, turn off this feature, without end of the entire script.

ps.

Please look at the sample application, using this functionality.

[trancexx]

  On 9/24/2013 at 11:55 AM, mlipok said:

I wonder how I can, after running, turn off this feature, without end of the entire script.

 

ps.

Please look at the sample application, using this functionality.

To turn it off for whatever reason, you do something like this:

Global $pOriginalFunc = AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint")

;... The rest of the code here...
;...

; Back to original function:
AddHookApi("user32.dll", "MessageBoxW", $pOriginalFunc)

... After that it's like it was never hooked.

[mLipok]

thanks

[michaelslamet]

Trancexx solution working great when we dont use any compressor/packer (UPX/others) for our compiled scripts, but doesn't work when we use them.

Try to compile your scripts together with UPX and you will see, it will display text "AutoIT" when error.

Compressor/packer (together with obfuscator) is a good idea to make our scripts harder to decompiled.

According to trancexx, this solution will not work if the compressor/packer crypte the PE Import directory.

Any ideas from you guys?

[JohnOne]

Yes, obfuscate without string encryption.

[mLipok]

  On 11/23/2013 at 2:25 AM, michaelslamet said:

 

Any ideas from you guys?

 

Did you try to use this:

#Obfuscator_Ignore_Funcs=AddHookApi
#Obfuscator_Ignore_Funcs=ImageDirectoryEntryToData
#Obfuscator_Ignore_Funcs=Intercept_MessageBoxW
#Obfuscator_Ignore_Funcs=VirtualProtect

[michaelslamet]

@JohnOne and mlipok: unfortunetely, the "problem" is not with the obfuscator.

Using UPX (or another compressors/packers) and it will not working

[Guest]

  On 11/23/2013 at 2:25 AM, michaelslamet said:

Trancexx solution working great when we dont use any compressor/packer (UPX/others) for our compiled scripts, but doesn't work when we use them.

Try to compile your scripts together with UPX and you will see, it will display text "AutoIT" when error.

Compressor/packer (together with obfuscator) is a good idea to make our scripts harder to decompiled.

According to trancexx, this solution will not work if the compressor/packer crypte the PE Import directory.

Any ideas from you guys?

So it makes it not perfect base.

Some time ago, I found this solution:

'?do=embed' frameborder='0' data-embedContent>>

This solution should be perfect.

But I found a bug postpage-2#entry1126919' title="OnAutoItErrorRegister - Handle AutoIt critical errors: post #27"> #27

I solved this bug. After you download the UDF, Make My solution for the bug.

In addition, I gave a very good idea. I would love if someone will make the idea! (Read page-2#entry1126919' title="OnAutoItErrorRegister - Handle AutoIt critical errors: post #27">#27 for details)

Edited November 23, 2013 by Guest

[Gianni]

maybe >this?

[Guest]

  On 11/23/2013 at 2:37 PM, PincoPanco said:

maybe >this?

thanks but it only works with the beta version of autoit .

It should work also with the stable autoit version?

 

Please help me.

I want to use it in the

stable version!

[Gianni]

in the header of the UDF i read:
; AutoIt Version.: 3.3.8.1++
where have you read that it only works with beta?