My script works in scite but not work when compile it

[bybordo]

Local $ChangeText[4] = ['', 'button1', 'button2']
If _MsgBoxEx(4, 'trying script', 'Please select', 0, $ChangeText) = 6 Then
    ShellExecuteWait(@TempDir & "\bbdent.exe", '/s')
Else
    ShellExecuteWait(@TempDir & "\bbdent.exe", '/s/bm')
EndIf


Func _MsgBoxEx($iFlag, $sTitle, $sText, $iTime = 0, $sCIDChange = '')
    Local $_MsgBox_ = '"' & "ConsoleWrite(MsgBox(" & $iFlag & ', ""' & $sTitle & '"", ""' & $sText & '"", ' & $iTime & '"))'
    Local $iPID = Run(@AutoItExe & ' /AutoIt3ExecuteLine ' & $_MsgBox_, '', @SW_SHOW, 6)
    Do
        Sleep(10)
    Until WinExists($sTitle)
    If IsArray($sCIDChange) Then
        For $iCC = 1 To UBound($sCIDChange) - 1
            ControlSetText($sTitle, '', 'Button' & $iCC, $sCIDChange[$iCC])
        Next
    Else
        ControlSetText($sTitle, '', 'Button1', $sCIDChange)
    EndIf
    While ProcessExists($iPID)
        Local $iStdOut = StdoutRead($iPID)
        If Number($iStdOut) Then Return $iStdOut
        Sleep(10)
    WEnd
    If IsArray($sCIDChange) Then Return SetError(1, 0, 2)
    Return SetError(1, 0, 1)
EndFunc   ;==>_MsgBoxEx

i finded script that changes msgbox button name. it is working in scite but not work in exe

[Jos]

Define what you mean by "doesn't work".

Also define the AutoIt3 version you use.

Jos

Edited October 12, 2013 by Jos

[bybordo]

Define what you mean by "doesn't work".

Jos

yes does not work

[Jos]

What doesn't work and which version of AutoIt3 are you using ?

[bybordo]

What doesn't work and which version of AutoIt3 are you using ?

i am using 3.2.0 version. this script doesn't work when i compile it. but is working in scite editor (script.au3). when i run .exe msgbox doesn't come.

[Jos]

Add this line at the top and try again:

#pragma compile(AutoItExecuteAllowed, true)

Jos

[bybordo]

still doesn't work. msgbox doesn't come.

[Jos]

Works fine here with the Pragma() line and doesn't without.

You did recompile ..right?

Jos

Edited October 12, 2013 by Jos

[bybordo]

no. doesn't work here with pragma line and without too.

[bybordo]

Sory i wrote #NoAutiotExecute i forgot it. now it is working. But i want add 3. button how can add this ?

If _MsgBoxEx(4, 'trying script', 'Please select', 0, $ChangeText) = 6 Then
    ShellExecuteWait(@TempDir & "\bbdent.exe", '/s')
Else
    ShellExecuteWait(@TempDir & "\bbdent.exe", '/s/bm')
EndIf

and if  _msgboxex = 2 then

   blabla...

[Melba23]

bybordo,

Have you looked at my ExtMsgBox UDF? The link is in my sig - you might find it easier to use if you need more buttons.

M23

[bybordo]

bybordo,

Have you looked at my ExtMsgBox UDF? The link is in my sig - you might find it easier to use if you need more buttons.

M23

Give me link please

[Melba23]

bybordo,

Just look in the list of UDFs under my posts (in the signature area) - it is at top right in green.

Or you can just go directly to it here.

M23

[bybordo]

thx