Lost script: Windows CMD shell in Gui control Topic is solved

[burque505]

Hi all,
I remember sometime in the past year seeing a script that had a Gui control either embedding a console (Windows command prompt) in a control (Edit box? ActiveX? ComObj?) or mimicking it. The (faux?) console window had the same white background as an edit control, but functioned just like the DOS command prompt.

I have looked through hundreds (it seems like) of links involving CmdRet, ConsoleSend, StdOutToStream, and so on, without finding what I remembered. I found one today by Lexikos that is _almost_ it, but it shows the generic black DOS window. (https://autohotkey.com/board/topic/4230 ... ntry264010).

If this rings any bells, I'd sure appreciate a link!

Thanks a million,
burque505

[Masonjar13]

Haven't seen such, but you should be able to do that yourself by using FileOpen to open the StdIn and StdOut for the process. Info on usage of the returned file objects can be found on the File Object page.

[burque505]

Thanks for the tips, Masonjar13. Getting closer.
There's a nice tutorial at Writing Command-Line Programs in AutoHotkey by Shambles that brings up the same points you have regarding FileOpen.
Regards,
burque505
p.s. For some reason the fact I can't find that script again is driving me nuts.

[Guest]

Was it actually a cmd window or just a Gui that looked like a cmd window where you could type ahk stuff? If the latter, it reminds me of ACConsole by titan now at https://github.com/shajul/Autohotkey/bl ... onsole.ahk and a stripped down version here https://autohotkey.com/board/topic/2643 ... s-concept/ (the idea is to add labels which can do stuff, which could include simply running dos cmds and updating the Edit control with the results.

Or perhaps libcon / ahkconsole - https://github.com/ahkscript/awesome-Au ... y/#console

[burque505]

Thanks for the tips!
Here's my first shot, uses COM.
It is possible to break it with illegal commands, but if you're careful you can use it. What I'm thinking of next is adding an array with acceptable commands, and checking
the command entry against it. More on that later...

So why the "Change_Folder" and "Start_Folder" buttons?
It uses a "Wscript.Shell" object. You can't just change directories from the command line.
You have to use "objShell.CurrentDirectory := [some directory]. Thus a FileSelectFolder dialog
accessed by the button.

In the meantime, please break, mangle and report.

Spoiler

Code: Select all

#Persistent
SetTitleMatchMode, 2
;RespecDos.ahk
;See e.g. http://www.autohotkey.com/board/topic/3489-cmdret-return-output-from-console-progs-dll-version/page-12 ---
;Thanks to ReSpecto for the inspiration.
;Please advise if you wrote this!
;Modified by burque505
;April 26, 2018
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
;~ SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

global Folder := A_ScriptDir
global ScriptFolder := A_ScriptDir

DetectHiddenWindows,On
Run,%ComSpec% /k,,Hide UseErrorLevel,pid
if not ErrorLevel
{
while !WinExist("ahk_pid" pid)
Sleep,10
DllCall("AttachConsole","UInt",pid)
}


Gui,font,s14,Terminal ;wolf_II's tip from ... somewhere ...
Gui,Add,Edit,W540 H650 vText
Gui, Add, Button, ,Change_Folder
Gui, Add, Button,x+5,Start_Folder
Gui,Add,Button, x15 Default,Command
Gui,Add,Edit, x+5 w465
Gui,Show,w580 H700 Autosize
Send, {Tab}
Send, {Tab}
Send, {Tab}
Send, {Tab}
return

ButtonCommand:
outvar := ""
Gui, Show
ControlSetText, Edit1
ControlGetText, outvar, Edit2
objShell:=ComObjCreate("WScript.Shell")
ObjShell.CurrentDirectory := Folder
mydir := objShell.CurrentDirectory
CMD := "%ComSpec% /c "outvar
objExec:=objShell.Exec(CMD)
ControlSetText, Edit2, Please wait ...
while,!objExec.StdOut.AtEndOfStream
{
GuiControlGet,Text
strStdOut:=objExec.StdOut.ReadAll()
GuiControl,,Edit1,%Text%`r`n%strStdOut%`r`n%mydir%>
}
objShell:=""
ObjExec:=""
ControlSetText, Edit2
Gui, Show
Return


ButtonChange_Folder:
;~ objShell:=ComObjCreate("WScript.Shell")
FileSelectFolder, NewFolder, , 3
If NewFolder =
	MsgBox,,, No Folder selected.,1
Else {
NewFolder := RegExReplace(NewFolder, "\\$")  ; Removes the trailing backslash, if present.
objShell.CurrentDirectory := NewFolder
Folder := NewFolder
;msgbox, , , Changed folders to %Folder%, 2
}
objShell:=""
ObjExec:=""
ControlSetText, Edit1,  , ahk_exe AutoHotkey.exe
ControlSetText, Edit1, %Folder%>, ahk_exe AutoHotkey.exe
ControlFocus, Edit2, ahk_exe Autohotkey.exe
return

ButtonStart_Folder:
;objShell:=ComObjCreate("WScript.Shell")
Folder := ScriptFolder
;msgbox, , , Changed folders to %ScriptFolder%, 2
objShell:=""
ObjExec:=""
ControlSetText, Edit1
sleep, 10
ControlSetText, Edit1, %Folder%>, ahk_exe AutoHotkey.exe
ControlFocus, Edit2, ahk_exe Autohotkey.exe
return

GuiClose:
ButtonCancel:
Esc::
exitapp

The obligatory proof of the pudding:

RespecDos.gif (159.59 KiB) Viewed 1207 times

Regards,
burque505

[idk]

Is there a way to auto execute a command when opening the script