Sending Command via StdinWrite to a jar / batch

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <Array.au3>
 
#Region ### START Koda GUI section ### Form=E:\Program Files (SA)\Koda GUIDesigner\Forms\ServerWin.kxf
Opt("GUIOnEventMode", 1)
$ServerWin = GUICreate("Bukkit Server Control v0.1", 1458, 691, 182, 114)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnClose")
$SerMen1 = GUICtrlCreateMenu("Server")
$SerMen1Sub1 = GUICtrlCreateMenuItem("Save-All", $SerMen1)
$SerMen1Sub2 = GUICtrlCreateMenuItem("Reload Plugins", $SerMen1)
$SerMen1Sub3 = GUICtrlCreateMenuItem("Save + Quit", $SerMen1)
$SerMen1Sub4 = GUICtrlCreateMenuItem("Quit", $SerMen1)
$SerMen2 = GUICtrlCreateMenu("Help")
$SerMen2Sub1 = GUICtrlCreateMenuItem("Check for Updates", $SerMen2)
$SerMen2Sub2 = GUICtrlCreateMenuItem("About", $SerMen2)
$ConsoleOut = GUICtrlCreateEdit("", 8, 8, 890, 441, BitOR($ES_AUTOHSCROLL,$ES_WANTRETURN,$ES_READONLY,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetCursor (-1, 5)
$ConsoleIn = GUICtrlCreateInput("Input Command", 8, 450, 817, 21)
$SendCmd = GUICtrlCreateButton("Send", 824, 449, 76, 22)
GUICtrlSetOnEvent($SendCmd, "OnSend")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
;some debug stuff
$debug = 0
If ($debug == 1) Then
   MsgBox(0,"debug","Scriptdir: " & '"' & @ScriptDir & '"' & @CRLF & "working dir: " & '"' & @WorkingDir & '"')
   MsgBox(0,"debug", "OSarch: " & @OSArch)
EndIf
 
;Start the Bukkit Server
;Note: set @SW_SHOW to @SW_HIDE after debug!
;Note: add check for 32bit arch after StdinWrite has been resolved
;$Server = Run('Start.bat',@ScriptDir,@SW_Show,$STDIN_CHILD + $STDERR_MERGED)
$Server = Run('"C:\Program Files\Java\jre7\bin\java.exe" -Xms1024M -Xmx1024M -jar "C:\Users\Moonwolf\Desktop\Craftbukkit Server\craftbukkit.jar"',@ScriptDir,@SW_Show,$STDIN_CHILD + $STDERR_MERGED)
 
;Main Loop
While 1
   ReadOut()
WEnd
 
;Write data to InputBox
Func ReadOut()
   While 1
      GUICtrlSetData($ConsoleOut, StringAddCR(StdoutRead($Server)), 1)
      If @error Then ExitLoop
   WEnd
EndFunc
 
;Send Command
Func OnSend()
   StdinWrite($Server,GUICtrlRead($ConsoleIn) & @CRLF)
   If ($debug == 1) Then
      MsgBox(0,"debug", "Sending: " & GUICtrlRead($ConsoleIn))
   EndIf
   GUICtrlSetData($ConsoleIn,"")
EndFunc
 
;save exit
Func OnClose($Server)
   StdinWrite($Server,"stop" & @CRLF)
   ; additional stop script for batch server
   ;While ProcessExists($Server)
   ;    Sleep(1000)
   ;    StdinWrite($Server,"{ENTER}")
   ;WEnd
   Exit
EndFunc