Trying to bypass the limitation of inputbox

[nitekram]

I wanted to create my own, that does not have the limitation of 254 characters...

But I am unable to make it work, any help? It seems like once you hit enter, it stays for a bit, bypassing the second call - please let me know if I make no sense, it is early for me lol
 

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>


For $x = 0 to 1
    MsgBox('','',_new_inputbox('test', 'enter some text and then hit enter'))
Next




Func _NEW_InputBox($sTitle, $sPrompt, $iwidth = 244, $iheight = 156)
    ;GUISetState(@SW_HIDE, $hGUIMIM)
    ;GUICtrlSetState($hGUIMIM, $GUI_HIDE)
    ;MsgBox('','','called new input box')



    Local $sTitleLocal = $sTitle, $sPromptLocal = $sPrompt, $sReturnString


    Local $hGUI_InputBox = GUICreate($sTitleLocal, 244, 156, -1, -1, $WS_POPUPWINDOW, -1)
    Local $idLable = GUICtrlCreateLabel($sPrompt, 10, 12) ;, $iwidth - 20, 25, )
    Local $idInput = GUICtrlCreateInput('', 10, 87, $iwidth - 20, 21)

    Local $idOK = GUICtrlCreateButton("OK", 27, $iheight - 32, 77, 23)
    Local $idCancel = GUICtrlCreateButton("Cancel", 137, $iheight - 32, 77, 23)
    Local $bCancelled = False


    ;Local $hDLL = DllOpen("user32.dll")


    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI_InputBox)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idCancel
                $bCancelled = True
                ExitLoop
            Case $idOK
                $sReturnString = GUICtrlRead($idInput)
                ;MsgBox('','$sReturnString',$sReturnString)
                ExitLoop


        EndSwitch

        If _IsPressed('0D') Then
        $sReturnString = GUICtrlRead($idInput)
                ;MsgBox('','$sReturnString',$sReturnString)
ExitLoop
            EndIf
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI_InputBox)


    If Not $bCancelled Then

        Return $sReturnString
    EndIf
EndFunc   ;==>_NEW_InputBox

 

[pixelsearch]

It should work if you add these 3 lines at the beginning of the function :

Func _NEW_InputBox($sTitle, $sPrompt, $iwidth = 244, $iheight = 156)

While _IsPressed('0D')
   Sleep(10)
WEnd

 

[nitekram]

24 minutes ago, pixelsearch said:

It should work if you add these 3 lines at the beginning of the function :

Func _NEW_InputBox($sTitle, $sPrompt, $iwidth = 244, $iheight = 156)

While _IsPressed('0D')
   Sleep(10)
WEnd

 

Thanks so much, that worked like a charm!!!