batch file - AutoIT Server menu to command prompts -
i trying make gui menu can start , stop number of servers. in addition, should able send commands servers different parameters through check boxes , manual command additions such "playername". need find way info menu working (it waiting buttons think), , find way send commands 3 command prompts opens. still going add 2 more servers , bungee server, if works three, works six.
func hub_func() run(@comspec & " /c java -xmx1024m -jar spigot-1.6.2-r0.1.jar", "e:\spill\alle spill\minecraft\bungee servers\hub") run(@comspec & " /c java -xmx1024m -jar spigot-1.6.2-r0.1.jar", "e:\spill\alle spill\minecraft\bungee servers\survival") run(@comspec & " /c java -xmx1024m -jar spigot-1.6.2-r0.1.jar", "e:\spill\alle spill\minecraft\bungee servers\plotworld") endfunc ;==>hub_func #include <buttonconstants.au3> #include <guiconstantsex.au3> #include <guitoolbar.au3> #include <staticconstants.au3> #include <toolbarconstants.au3> #include <windowsconstants.au3> opt("guiresizemode", $gui_dockleft) #region ### start koda gui section ### form=c:\users\kristian\desktop\test.kxf $test = guicreate("knarcraft client", 945, 1003, 957, 0) guisetfont(10, 400, 0, "mt extra") $button1 = guictrlcreatebutton("exit", 848, 950, 75, 30) guictrlsetfont(-1, 18, 400, 0, "ms sans serif") guictrlsetresizing(-1, $gui_dockauto + $gui_dockright + $gui_dockbottom + $gui_dockwidth + $gui_dockheight) guictrlsettip(-1, "exits program") $button2 = guictrlcreatebutton("start server", 24, 950, 139, 33) guictrlsetfont(-1, 18, 400, 0, "ms sans serif") guictrlsetresizing(-1, $gui_dockleft + $gui_dockbottom + $gui_dockwidth + $gui_dockheight) guictrlsettip(-1, "starts knarcraft server") $toolbar1 = _guictrltoolbar_create($test, 0) $checkbox1 = guictrlcreatecheckbox("hide console", 32, 928, 113, 17) guictrlsetfont(-1, 12, 400, 0, "ms sans serif") $checkbox2 = guictrlcreatecheckbox("old version", 32, 904, 105, 17) guictrlsetfont(-1, 12, 400, 0, "ms sans serif") $pic1 = guictrlcreatepic("d:\bilder\gameplay\b7223189a2371e69fabe26c661fae55d.jpeg", 0, 0, 937, 881) $filemenu = guictrlcreatemenu("file") $fileitem = guictrlcreatemenuitem("open...", $filemenu) $recentfilesmenu = guictrlcreatemenu("recent files", $filemenu) $separator1 = guictrlcreatemenuitem("", $filemenu) $exititem = guictrlcreatemenuitem("exit", $filemenu) $helpmenu = guictrlcreatemenu("?") $aboutitem = guictrlcreatemenuitem("about", $helpmenu) $tipsitem = guictrlcreatemenuitem("tips", $helpmenu) guisetstate(@sw_show) #endregion ### end koda gui section ### while 1 $nmsg = guigetmsg() switch $nmsg case $gui_event_close exit case $button1 msgbox(64, "knarcraft", "knarcraft client close") exit case $button2 hub_func() endswitch wend while 1 $msg = guigetmsg() select case $msg = $fileitem $file = fileopendialog("choose file...", @tempdir, "all (*.*)") if @error <> 1 guictrlcreatemenuitem($file, $recentfilesmenu) case $msg = $aboutitem msgbox(0, "about", "gui menu test") case $msg = $tipsitem msgbox(0, "tips", "you can lots client.") endselect wend
i haven't tested code of script stuck in first while loop. autoit scripts must have 1 event loop. should consider put conditions 2nd loop 1st loop this:
while 1 $nmsg = guigetmsg() switch $nmsg case $gui_event_close exit case $button1 msgbox(64, "knarcraft", "knarcraft client close") exit case $button2 hub_func() case $fileitem $file = fileopendialog("choose file...", @tempdir, "all (*.*)") if @error <> 1 guictrlcreatemenuitem($file, $recentfilesmenu) case $aboutitem msgbox(0, "about", "gui menu test") case $tipsitem msgbox(0, "tips", "you can lots client.") endswitch wend
Comments
Post a Comment