# Retro fullscreen console with custom programming language!

## Recommended Posts

A fullscreen console with custom commands!

Introduction:

Hi everyone!

This funny project started as a question in the help section:

Why would I want it?

• You like the old style fullscreen console (like in the old day's),
• You can add custom commands,
• You can customize the font a lot more compared to cmd.exe,
• You can share ideas or add tweaks to the script.

Still to do:

• Write a simple custom programming language to implement this tool.
• Writing a little help file / pdf to describe my little programming language.
• Add little sound effects like a beep if there is a syntax error (optional).
• Clean up and modify Console.Au3 content.
• Make an optional installer that also gives scripts for this tool a custom icon and open with command.
• ...Call Neo?

Thanks to:

• xxaviarxx: debugging, some ideas.
• jguinch: debugging, adding a bunch of tweaks and ideas.
• kylomas: debugging, new ideas.

• Added usage of tab key in edit control
• Edit has focus now on startup
• I'm currently rewriting a simple custom programming language to implement this tool.

Regards

TheAutomator

Edited by TheAutomator
##### Share on other sites

Need to make sure the window is active as soon as you run the script otherwise your users will have to click a full screen console. At the preset time you have to click it.

##### Share on other sites

Need to make sure the window is active as soon as you run the script otherwise your users will have to click a full screen console. At the preset time you have to click it.

Seems like $WS_TABSTOP prevents direct user input... I updated the script Thanks xxaviarxx ! ##### Link to post ##### Share on other sites See pdf for more about the programming language for this console. feel free to debate about the syntax and commands if you're interested . regards ##### Link to post ##### Share on other sites • You can customize the font (unlike cmd.exe) I don't belive it... http://www.wikihow.com/Customize-the-Font-in-Windows-Command-Prompt TD EasyCodeIt - A cross-platform AutoIt implementation - Fund the development! (GitHub will double your donations for a limited time) DcodingTheWeb Forum - Follow for updates and Join for discussion ##### Link to post ##### Share on other sites ### TheDcoder, Cmd.exe has 1 build in raster font and 2 optional ones you can choose of. if you want to add a font you have to change the registry and you have to be lucky enough to find a raster font that will be accepted by cmd prompt.. (and even that doesn't work on my computer for some reason) try to add a new font like: westminster.ttf to it and post a screenshot but ok, technically I should say that you can customize the fonts 'a lot more' then you can with cmd, so I'm gonna change that in my description. Edited by TheAutomator ##### Link to post ##### Share on other sites • 1 year later... I just gave you some appreciation on other thread. Thanks bro, I am using it. ##### Link to post ##### Share on other sites its nice but please be aware that microsoft made powershell on every windows V7 and further available. type ISE in your startmenu / search box and see an integrated IDE something between IDE/debugwindow/scripting at the same time this shows the concept for excel.application suggestion would be to incorporate javascript CHAKRA then you do not have to write a new grammar Edited by junkew nice see now its a little older thread ##### Link to post ##### Share on other sites ## 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 account ## Sign in Already have an account? Sign in here. Sign In Now • ### Recently Browsing 0 members No registered users viewing this page. • ### Similar Content • Hi, I am using python to call the Autoit function. I found a interesting problem. env: win10 64bit python3.6.4 x86、 python3.8.6 x64 autoit v3.3.16.0 code: #filename: demo.py from ctypes import windll dll = windll.LoadLibrary(r"D:\it_tools\autoit\AutoIt3\AutoItX\AutoItX3_x64.dll") # or AutoItX3.dll dll.AU3_Send("#r", 0) Behaviour: (1) run with the "python.exe" it will not open the run dialog, but input a "r" in the cmd window. (2) run with xxxxxx.exe (renamed from python.exe, you can rename whatever you like) work success I dont know why it happened. I think it shoule be related to Python and Autoit. So I came here... Can someone give me some advices. Thanks a lot. (by the way, My English is not very well... I wish I have provided the enough information... If you need more details, please contact me ) • By zoel Hello people, I have a script which calls CMD and executes the netstat command, but when I run it through SCITE the GUI opens but I have no output, How can I run the command as administrator? Here is my script so far #include <AutoItConstants.au3> #include <GUIConstantsEx.au3> #include <GuiEdit.au3> #include <ScrollBarsConstants.au3> #include <WindowsConstants.au3> #RequireAdmin Local$aWndPos Local $hWnd = GUICreate("Form2", 900, 420, -1, -1, Default +$WS_MAXIMIZE) GUISetBkColor(0xE4E4E4) Local $idFilemenu = GUICtrlCreateMenu("&File") Local$idExititem = GUICtrlCreateMenuItem("Exit", $idFilemenu) Local$idInput = GUICtrlCreateEdit("", 210, 10, 660, 360) GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) GUICtrlSetFont(-1, 10, 400, Default, "COURIER NEW") Local$idButton = GUICtrlCreateButton("NetStat", 10, 10, 190, 25) GUICtrlSetResizing(-1, BitOR($GUI_DOCKLEFT,$GUI_DOCKTOP, $GUI_DOCKWIDTH,$GUI_DOCKHEIGHT)) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch$nMsg Case $GUI_EVENT_CLOSE Exit Case$idExititem Exit Case $idButton GUICtrlSetData($idInput, _CmdInfo() & @CRLF) _GUICtrlEdit_Scroll($idInput,$SB_SCROLLCARET) _GUICtrlEdit_Scroll($idInput,$SB_SCROLLCARET) EndSwitch WEnd Func _CmdInfo($_sCmdInfo = "netstat /b") Local$iPID = Run(@ComSpec & " /c " & $_sCmdInfo, "", @SW_HIDE, BitOR($STDERR_CHILD, $STDOUT_CHILD)) ; Wait until the process has closed using the PID returned by Run. ProcessWaitClose($iPID) ; Read the Stdout stream of the PID returned by Run. This can also be done in a while loop. Look at the example for StderrRead. Local $sOutput = StringReplace(StdoutRead($iPID), @CRLF & @CRLF, @CRLF) Local $sOutErr = StringReplace(StderrRead($iPID), @CRLF & @CRLF, @CRLF) Local $sReult =$sOutput <> "" ? $sOutput :$sOutErr Return $sReult EndFunc • Hi There ! I have a script here : ;Launch CMD Run("C:\Windows\System32\cmd.exe") sleep(2000)$cmdHandle = WinActivate("C:\Windows\System32\cmd.exe")
Sleep(2000)
;Sending document
ControlSend($cmdHandle, "", "", "ftp" & @CRLF) ControlSend($cmdHandle, "", "", "open" & @CRLF)
Sleep(2000)
ControlSend($cmdHandle, "", "", "first command" & @CRLF) Sleep(2000) ControlSend($cmdHandle, "", "", "second-coomand" & @CRLF)

first-command and second-command I can't provide cause it's internal. I have complied this .au3 file into an exe and it does the work. But I need to invoke this with Java. Java code I have tried is :

pb.start();

• By Gianni
I'm trying to drive a command prompt by sending instructions via a NamedPipe.
This way you can (should) be able to send commands to the command prompt and at the same time "view" the result in the same window.
This is not allowed if you run a command prompt with "opt_flag" parameters (redirected streams) because this will disable StdOut on the cmd itself.
This small (trivial) snippet works for the first command sent to the cmd, but further submissions will fail.
Maybe the problem is in how I use the run () command to start a new cmd with the StdIn redirect from the NamedPipe. It seems that the generated cmd will close automatically after the first reception of the command via NamedPipe.
suggestions on how to make it work are welcome
thanks
#include <NamedPipes.au3> #include <WinAPI.au3> ; Creates an instance of a named pipe Global $sPipeName = "\\.\pipe\pipename" Global$hPipe = _NamedPipes_CreateNamedPipe($sPipeName, 1, 1) MsgBox(0, "Debug", "Pipe created. Now open a CMD") ; run a cmd with only StdIn redirected (StdIn data incoming from a pipe) Global$hCMD = Run(@ComSpec & " /K cmd < " & $sPipeName & @CRLF, "c:\") ; ok? MsgBox(0, "Debug", "now Send a command to the cmd via a NamedPipe") _StdInPipeWrite("dir" & @CRLF) MsgBox(0, 'Debug', "further commands will fail" & @CRLF & "now send command 'dir c:\windows'")$sMessage = "Dir c:\windows" & @CRLF _StdInPipeWrite($sMessage) MsgBox(0, 'Debug', "send another command (will also fail)" & @CRLF & "now send command 'echo Hello'") _StdInPipeWrite("echo Hello" & @CRLF) MsgBox(0, "Debug", "end of test") ProcessClose($hCMD) Func _StdInPipeWrite($sMessage) ; =============================================================================================================================== ; This function writes a message to the pipe ; =============================================================================================================================== Local$iWritten, $iBuffer,$pBuffer, $tBuffer$iBuffer = StringLen($sMessage) + 1$tBuffer = DllStructCreate("char Text[" & $iBuffer & "]")$pBuffer = DllStructGetPtr($tBuffer) DllStructSetData($tBuffer, "Text", $sMessage) If Not _WinAPI_WriteFile( _$hPipe, _ ; ...... Handle to the file to be written $pBuffer, _ ; .... Pointer to the buffer containing the data to be written$iBuffer, _ ; .... Number of bytes to be written to the file $iWritten, _ ; ... The number of bytes written 0 _ ; ............ [optional] A$tagOVERLAPPED structure or a pointer to it ) Then ConsoleWrite("WriteMsg: _WinAPI_WriteFile failed" & @CRLF & _WinAPI_GetLastErrorMessage()) Else ConsoleWrite("WriteMsg: write OK" & @CRLF & _WinAPI_GetLastErrorMessage() & @CRLF) EndIf EndFunc ;==>_StdInPipeWrite
• By Burgs
Greetings,
I would like to be able to write a script to send commands to the console for creation of Gstreamer pipelines.  I was thinking of something similar to this:
Local $iPID = Run("C:\Windows\System32\cmd", "", @SW_MAXIMIZE) ;THIS OPENS THE CONSOLE...!!! if$iPID == 0 Then ConsoleWrite(@CRLF & "I DID NOT OPEN CMD...error: " & @error & @CRLF) if $iPID <> 0 Then ConsoleWrite(@CRLF & "I OPENED CMD...!!!" & @CRLF)$hCmd = WinGetHandle("C:\WINDOWS\system32\cmd.exe") if $hCmd <> 0 Then WinActivate($hCmd) ;ensure command console is active... $sOutput = Send("cd C:\gstreamer\1.0\x86_64\bin" & @CRLF,$SEND_RAW) $sOutput = Send("gst-launch-1.0 videotestsrc ! autovideosink" & @CRLF,$SEND_RAW) Sleep(3000) ControlSend($hCmd, "", "", "exit" & @CR) EndIf ;$hCmd NOT "0"... I don't really know if this is the best way to open the console and send commands into it.  I'm also not sure about how to best catch any errors that may occur...likely this needs to be accomplished with the STDOUTREAD command however I've not had experience using it before and therefore would appreciate some advice that anybody may offer.
Basically I'm seeking guidance on how to best automate the opening of the console, sending lines of commands to be executed, and handling any potential errors in the execution of those commands...I thank you in advance.  Regards.
×

• Wiki

• Back

• #### Beta

• Git
• FAQ
×
• Create New...