myspacee Posted March 12, 2014 Posted March 12, 2014 Hello, i made looping DOS script, that run few small batches. Main script do things, create and stop processes, etc. Works well. Now, my colleaugues and my boss, want a windows interface because we are in 2014, DOS script are dead and other rubbish like this... I want to allow people that using this script to stop/start, monitor processes, make maintenance, directly from GUI, and not from command line. My question, is possibile to embed DOS window in a gui ? So i can maintain script as is, and allow 'modern people' to push mouse button. I know it's stupid task, but can be usefull in some cases. thank you for any help, m.
FireFox Posted March 12, 2014 Posted March 12, 2014 Hi, Following >this example. expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <Constants.au3> Run("cmd") Local $hCmd = WinWait("[CLASS:ConsoleWindowClass]", "", 10) If $hCmd = 0 Then Exit 1 Local $aOriPos = WinGetPos($hCmd) Local $hGUI = GUICreate("MyGUI", $aOriPos[2], $aOriPos[3] + 200, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX)) GUICtrlCreateLabel("some buttons here", 10, 10) GUIRegisterMsg($WM_SIZE, "WM_SIZE") GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE") GUIRegisterMsg($WM_ACTIVATE, "WM_ACTIVATE") GUISetState(@SW_SHOW, $hGUI) Local $hOriParent = _WinAPI_SetParent($hCmd, $hGUI) Local $iStyle = _WinAPI_GetWindowLong($hCmd, $GWL_STYLE) _WinAPI_SetWindowLong($hCmd, $GWL_STYLE, BitXOR($iStyle, $WS_OVERLAPPEDWINDOW)) _WinAPI_SetWindowPos($hCmd, 0, 0, 200, 0, 0, BitOR($SWP_FRAMECHANGED, $SWP_NOACTIVATE, $SWP_NOZORDER, $SWP_NOSIZE)) _WinAPI_RedrawWindow($hCmd) Local $iMsg = 0 While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd ;restore the cmd window _WinAPI_SetParent($hCmd, $hOriParent) _WinAPI_SetWindowLong($hCmd, $GWL_STYLE, $iStyle) _WinAPI_SetWindowPos($hCmd, 0, $aOriPos[0], $aOriPos[1], $aOriPos[2], $aOriPos[3], BitOR($SWP_FRAMECHANGED, $SWP_NOACTIVATE, $SWP_NOZORDER)) GUIDelete($hGUI) ;when the cmd window is closed the gui is activated, so check if this one has been closed Func WM_ACTIVATE($hWnd, $iMsg, $wParam, $lParam) If Number($wParam) = 1 And WinExists($hCmd) = 0 Then GUIDelete($hGUI) Exit EndIf Return $GUI_RUNDEFMSG EndFunc ;otherwise the menu is not redrawn Func WM_EXITSIZEMOVE($hWnd, $iMsg, $wParam, $lParam) _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_INVALIDATE) Return $GUI_RUNDEFMSG EndFunc ;resize the cmd window according to the gui Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) Local $iWidth = BitAND($lParam, 0xFFFF) Local $iHeight = BitShift($lParam, 16) WinMove($hCmd, "", 0, 0, $iWidth, $iHeight) Return $GUI_RUNDEFMSG EndFunc You can also get the std in/out of the cmd, take a look at the StdinWrite,StdoutRead functions. Br, FireFox.
myspacee Posted March 12, 2014 Author Posted March 12, 2014 Hello, thank you for reply, but, strangely, it works only first time i run it. If i understand, CMD follows AI gui ? try to understand why i can't replicate first run, m.
Belini Posted March 12, 2014 Posted March 12, 2014 (edited) Another example posted by @ jscript. expandcollapse popup#NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Constants.au3> Local $vDos, $sline = "" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("test", 446, 466, 283, 173) $Edit1 = GUICtrlCreateEdit("", 8, 8, 433, 385) GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0x000000) $Group1 = GUICtrlCreateGroup("Command", 8, 400, 433, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 16, 424, 337, 21) GUICtrlSetState(-1, $GUI_FOCUS) $Button1 = GUICtrlCreateButton("Go Send", 360, 421, 75, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;----> Create dummy keys for accelerators $hENTER = GUICtrlCreateDummy() Dim $AccelKeys[1][2] = [["{ENTER}", $hENTER]] ; Set accelerators GUISetAccelerators($AccelKeys) ;<---- While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Button1, $hENTER $vDos = Run(@ComSpec & " /c " & GUICtrlRead($Input1), @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) While 1 $sline &= StdoutRead($vDos) If @error Then ExitLoop WEnd GUICtrlSetData($Edit1, $sline & @CRLF) GUICtrlSetData($Input1, "") $sline = "" EndSwitch WEnd Edited March 12, 2014 by Belini My Codes: Virtual Key Code UDF: http://www.autoitscript.com/forum/topic/138246-virtual-key-code-udf/ GuiSplashTextOn.au3: http://www.autoitscript.com/forum/topic/143542-guisplashtexton-udf/ Menu versions of Autoit: http://www.autoitscript.com/forum/topic/137435-menu-versions-of-autoit/#entry962011 Selects first folder of letters: ]http://www.autoitscript.com/forum/topic/144780-select-folders-by-letter/#entry1021708/spoiler] List files and folders with long addresses.: http://www.autoitscript.com/forum/topic/144910-list-files-and-folders-with-long-addresses/#entry102 2926 Program JUKEBOX made in Autoit:some functions:http://www.youtube.com/watch?v=WJ2tC2fD5Qs Navigation to search:http://www.youtube.com/watch?v=lblwOFIbgtQ
myspacee Posted March 12, 2014 Author Posted March 12, 2014 Hello, solved one time run, givin to winwait a terget title: expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <Constants.au3> Local $file = FileOpen("vivautoit.cmd", 10) FileWrite($file, "@echo off" & @CRLF) FileWrite($file, "title vivautoit" & @CRLF) FileWrite($file, ":doyourjob" & @CRLF) FileWrite($file, "cls" & @CRLF) FileWrite($file, "time /T" & @CRLF) FileWrite($file, "goto restart" & @CRLF) FileWrite($file, ":restart" & @CRLF) FileWrite($file, "goto doyourjob" & @CRLF) FileClose($file) Run('vivautoit.cmd') Local $hCmd = WinWait("Amministratore: vivautoit", "", 100) If $hCmd = 0 Then Exit 1 Local $aOriPos = WinGetPos($hCmd) Local $hGUI = GUICreate("MyGUI", $aOriPos[2], $aOriPos[3] + 200, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX)) GUICtrlCreateLabel("some buttons here", 10, 10) GUIRegisterMsg($WM_SIZE, "WM_SIZE") GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE") GUIRegisterMsg($WM_ACTIVATE, "WM_ACTIVATE") GUISetState(@SW_SHOW, $hGUI) Local $hOriParent = _WinAPI_SetParent($hCmd, $hGUI) Local $iStyle = _WinAPI_GetWindowLong($hCmd, $GWL_STYLE) _WinAPI_SetWindowLong($hCmd, $GWL_STYLE, BitXOR($iStyle, $WS_OVERLAPPEDWINDOW)) _WinAPI_SetWindowPos($hCmd, 0, 0, 200, 0, 0, BitOR($SWP_FRAMECHANGED, $SWP_NOACTIVATE, $SWP_NOZORDER, $SWP_NOSIZE)) _WinAPI_RedrawWindow($hCmd) Local $iMsg = 0 While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd ;restore the cmd window _WinAPI_SetParent($hCmd, $hOriParent) _WinAPI_SetWindowLong($hCmd, $GWL_STYLE, $iStyle) _WinAPI_SetWindowPos($hCmd, 0, $aOriPos[0], $aOriPos[1], $aOriPos[2], $aOriPos[3], BitOR($SWP_FRAMECHANGED, $SWP_NOACTIVATE, $SWP_NOZORDER)) GUIDelete($hGUI) ;when the cmd window is closed the gui is activated, so check if this one has been closed Func WM_ACTIVATE($hWnd, $iMsg, $wParam, $lParam) If Number($wParam) = 1 And WinExists($hCmd) = 0 Then GUIDelete($hGUI) Exit EndIf Return $GUI_RUNDEFMSG EndFunc ;otherwise the menu is not redrawn Func WM_EXITSIZEMOVE($hWnd, $iMsg, $wParam, $lParam) _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_INVALIDATE) Return $GUI_RUNDEFMSG EndFunc ;resize the cmd window according to the gui Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) Local $iWidth = BitAND($lParam, 0xFFFF) Local $iHeight = BitShift($lParam, 16) WinMove($hCmd, "", 0, 0, $iWidth, $iHeight) Return $GUI_RUNDEFMSG EndFunc Full title in my OS is "Amministratore: vivautoit" (italian windows 7 x64) It not possible to give to winwait function other params, to be sure that wait for my DOS batch? Interesting layout for Belini, but can't run any command. How run given batch ? Thank you for your time, m.
FireFox Posted March 12, 2014 Posted March 12, 2014 (edited) It not possible to give to winwait function other params, to be sure that wait for my DOS batch? Here you go : ... Local $iPid = Run('vivautoit.cmd') Local $hCmd = 0, $aWl = 0 While 1 $aWl = WinList("Amministratore: vivautoit") For $i = 1 To $aWl[0][0] If WinGetProcess($aWl[$i][1]) = $iPid Then $hCmd = $aWl[$i][1] ExitLoop 2 EndIf Next Sleep(10) WEnd Br, FireFox. Edited March 12, 2014 by FireFox
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now