Need GUI to function while msgbox is open

[bobbo]

My script performs a task on data you give it, then it asks you to correct it if need be before taking the next step.

Ex:

input------->"Fri"------->edit box becomes------->"Friday"

script will prompt "Click yes when everything is correct"

So if I put in "Fri" and the script replied "Sun" I could go and change it to "Friday" and click "Yes" before it continued to the next step.

The problem is that while that prompt is up, none of the other buttons or functions work in the main GUI window... is there any way around this?

The idea is for the user to confirm that the computer is right before it moves on, If I click "No" at the prompt, the script will open up a reference file for me and ask again if I can correct it, or if we should just skip this one and move on to the next entry.

Any ideas?

BTW this script is using Opt("GUIOnEventMode", 1)

Thanks in advance!

[DjDeep00]

Please post your code.

[MrCreatoR]

Hi,

You have two ways do it as i see it, 1) Run MsgBox in another script, and 2), open a MsgBox as a child using DllCalls...

1)

Here is the only problemis that you can not return values (i think)..

Func _MsgBox($Type, $Title, $Text, $TimeOut=0)
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(' & $Type & ', ''' & $Title & ''', ''' &  $Text & ''', ' &  $TimeOut & ')"')
EndFuncoÝ÷ Ù½¿l    ÝêÞÊ+jzÞ¶ê罩nzÆî·*.q©ç¢Û¬zØ^N)¥ªÚë^­«­¢+ÙÕ¹}5Í  ½á±° ÀÌØí5Í    ½áQåÁ°ÀÌØí5Í  ½áQ¥Ñ±°ÀÌØí5Í    ½áQáаÀÌØíµ¥¹U$ôÀ¤(1½°ÀÌØíµIÐô±±
±° ÅÕ½ÐíÕÍÈÌȹ±°ÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÅÕ½Ðí5ÍÍ  ½àÅÕ½Ðì°ÅÕ½Ðí¡Ý¹ÅÕ½Ðì°ÀÌØíµ¥¹U$°|(ÅÕ½ÐíÍÑÈÅÕ½Ðì°ÀÌØí5Í ½áQáаÅÕ½ÐíÍÑÈÅÕ½Ðì°ÀÌØí5Í  ½áQ¥Ñ±°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÀÌØí5Í    ½áQåÁ¤(IÑÕɸÀÌØíµIÑlÁt)¹Õ¹

Edited September 22, 2007 by MsCreatoR

[MrCreatoR]

Here is an example of usage:

_MsgBox(64, "My Title", "Message", 5)

WinWait("My Title")
$Counter = 0
While WinExists("My Title")
    $Counter += 1
    ConsoleWrite("The script is not paused " & $Counter & @LF)
    Sleep(10)
WEnd

Func _MsgBox($Type, $Title, $Text, $TimeOut=0)
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(' & $Type & ', ''' & $Title & ''', ''' &  $Text & ''', ' &  $TimeOut & ')"')
EndFunc

Edited September 22, 2007 by MsCreatoR

[Achilles]

Nice MsCreatoR, I'm keeping that for future reference.

[bobbo]

Thanks again MsCreatoR! Question here is can I return value here? For example a yes or no prompt.

Say there is a text box that displays a name, and a combo list that has all the states in it.

The script will read a name into the edit box, then will match it to the state it belongs to.

The prompt would come up after each name is read in, saying "ok to continue?" and if the state is wrong, you need to be able to change the value selected in the combo list. The reason the gui script needs to be runnimg is that changing that value should call a function, for example the window title could change to "Modified entry" or something.

-Bobbo

Then you just press yes to move onto the next name. It's verification and correction basically.

Here is an example of usage:

_MsgBox(64, "My Title", "Message", 5)

WinWait("My Title")
$Counter = 0
While WinExists("My Title")
    $Counter += 1
    ConsoleWrite("The script is not paused " & $Counter & @LF)
    Sleep(10)
WEnd

Func _MsgBox($Type, $Title, $Text, $TimeOut=0)
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(' & $Type & ', ''' & $Title & ''', ''' &  $Text & ''', ' &  $TimeOut & ')"')
EndFunc

[bobbo]

The one that doesn't return a value works, but I can't get the other to work... Seems to be waiting for the "my title" window to exist. here is the code:

$val=_MsgBoxDll(64, "My Title", "Message")

WinWait("My Title")
$Counter = 0
While WinExists("My Title")
    $Counter += 1
    ConsoleWrite("return value= "& $val &" And the script is not paused " & $Counter & @LF)
    Sleep(10)
WEnd

Func _MsgBoxDll($MsgBoxType, $MsgBoxTitle, $MsgBoxText, $mainGUI=0)
    Local $mRet = DllCall("user32.dll", "int", "MessageBox", "hwnd", $mainGUI, _
        "str", $MsgBoxText, "str", $MsgBoxTitle, "int", $MsgBoxType)
    Return $mRet[0]
EndFunc

[bobbo]

Here is the GUI version...

$mygui=guicreate("test")
opt("GUIoneventmode",1)

$yo=GUICtrlCreateButton("Test Click Me",0,0)
guictrlsetonevent(-1,"OpenClick")
guisetstate()
dim $confirm=_msgboxdll(35,"Ready","OK to add to queue?  (Are all the fields accurate?)");adding $mygui as param does not work right

While 1
    Sleep(100)
WEnd

func openclick()
;msgbox(0,"hi","still working")
GUICtrlCreateButton("Still working!",30,30)

EndFunc

Func _MsgBoxDll($MsgBoxType, $MsgBoxTitle, $MsgBoxText, $mainGUI=0)
    Local $mRet = DllCall("user32.dll", "int", "MessageBox", "hwnd", $mainGUI, _
        "str", $MsgBoxText, "str", $MsgBoxTitle, "int", $MsgBoxType)
    Return $mRet[0]
EndFunc

[MrCreatoR]

Seems to be waiting for the "my title"

No, it seems that DllCalls are stop the script completely until they return..

As workaround, you can use temp files to return values...

$TempFile = @TempDir & '\RetFile.tmp'

_MsgBox(36, "My Title", "Message", 0, $TempFile)

WinWait("My Title")
$Counter = 0
While WinExists("My Title")
    $Counter += 1
    ConsoleWrite("The script is not paused " & $Counter & @LF)
    Sleep(10)
WEnd

If FileExists($TempFile) Then
    MsgBox(0, "", "Returned Value is: " & FileRead($TempFile))
    FileDelete($TempFile)
EndIf

Func _MsgBox($Type, $Title, $Text, $TimeOut=0, $TempFile='RetFile.tmp')
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "FileWrite(''' & $TempFile & ''', MsgBox(' & $Type & ', ''' & _
        $Title & ''', ''' &  $Text & ''', ' &  $TimeOut & '))"')
EndFunc

Or you can build a GUI-MsgBox, and call some main function in the main loop of that custom GUI MsgBox to do what you need while user decide.

[bobbo]

Thanks MsCreatoR!

This script has saved me weeks of tedious work, I really appreciate all of your help I couldn't have done it without you!