is it possible to make a GUI look like cmd?

Swift · January 3, 2008

EDIT: working on one now...may not look like it...but may work like it...

like the Gray weird style text the _ underscore flashing..the gray X and and minimize buttons... i know how to set the background color and the text color...i know how to change the font and style...but is it possible to make a GUI look like cmd? im tring to make a "movie scene" from Terminator 3: Rise of The Machines ©...where there at skynet and and a popup on the computer says:

<-SkyNet->

()Iniate Connection To SkyNet?()

[ Y / N ]_ <----- is the flashing underscore :blink:

Then once you press "y" on your keyboard it...sends aabout 50 lines of text with all these .exe files like this

==Preparing:==

-iniate=SkyNet.exe

-iniate=SN-Con.exe

-iniate=SN-Connect.exe

-run=SkyNet.ccr

(but about 150 of lil .exe's) But if you press "n"

<-SkyNet->

()Iniate Connect To SkyNet?()

[ Y / N ]_ <---- flashing underscore

<---END ALL PROCESSES TO CONNECT TO SKYNET?--->

[ Y / N ]_ <------flashy underscore :wub:

if "y" is pressed then it all would say:

<-SkyNet->

()Iniate Connect To SkyNet?()

[ Y / N ]_ <---- flashing underscore

<---END ALL PROCESSES TO CONNECT TO SKYNET?--->

[ Y / N ]_ <------flashy underscore

===SkyNet===

=All Connections Terminated=

but if "n" was pressed then:

()Iniate Connect To SkyNet?()

[ Y / N ]_ <---- flashing underscore

if yes...then...lol...read up :mad:

then it will say all the .exe's and stuff and if you press "y" to that...then it will say:

==SkyNet==

-Uploading-

(sleep 2 sec)

Connecting...

(Sleep 2000)

1 Service Connected.

Sleep(1500)

2 Services Connected.

Sleep(1250)

3 Services Connected.

Sleep(1000)

4 Services Connected.

Sleep(750)

5 Services Connected.

Sleep(500)

6 Services Connected.

Sleep(250)

7 Services Connected.

(=== **sl=Sleep 250=**)

sl

8 services

sl

9

sl

10

sl

11

sl

12

sl

13

ETC...then at 25

20 msgboxs saying: Error: Connection was disabled by an undetected source.

then...after 2 seconds...SHUTDOWN THE COMP!

I Don't Want You To Make It...Just Tell Me How. :mad: Thanks

Edited January 3, 2008 by Swift

JustinReno · January 3, 2008

Koda GUI Creator will help you design the CMD style GUI.

Swift · January 3, 2008

Ehh...i tried Koda...it didnt like meh

JustinReno · January 3, 2008

Sorry for a late reply, I've been really busy...

I'll look into making an example CMD style GUI and show you, sounds good?

JustinReno · January 3, 2008

Sorry I deleted my previous post, I wanted to update it a bit.

I made this with Koda.

One Bug: The Exit button has dissapeared...

#Include <GUIConstants.au3>
#Include <Misc.au3>

HotKeySet("{ENTER}", "_Set")

$GUI = GUICreate("CMD Style GUI made for Swift", 626, 290, -1, -1, $WS_EX_TOOLWINDOW)
$Edit = GUICtrlCreateEdit("", 0, 0, 625, 289, $ES_AUTOVSCROLL + $ES_AUTOHSCROLL + $ES_WANTRETURN + $WS_VSCROLL)
GUICtrlSetFont($Edit, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor($Edit, 0xFFFFFF)
GUICtrlSetBkColor($Edit, 0x000000)
GUICtrlSetData($Edit, @HomeDrive&"\")
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _Set()
    Local $Opt = Opt("WinTitleMatchMode", 4)
    If WinGetHandle("Active") = $GUI Then
        If @HotKeyPressed = "{ENTER}" Then GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&@HomeDrive&"\")
    Else
        HotKeySet(@HotKeyPressed)
        Send(@HotKeyPressed)
        HotKeySet(@HotKeyPressed, "_Set")
    EndIf
    Opt("WinTitleMatchMode", $Opt)
EndFunc

MrCreatoR · January 3, 2008

If i understand correct, take a look at this one.

Swift · January 3, 2008

I tried contributing all those parts to make one...of my own...but its not working out...

Linux · January 3, 2008

for the shutdown, you have to run the command "shutdown -s -t 1"

-s is for shutdown, or -r for reboot

-t 1 is the number of seconds.

type cmd and type shutdown /? for more help. you can even costumize a message to appear in the box.

Swift · January 4, 2008

heh...or i could do... Shutdown(9)

JustinReno · January 4, 2008

Here is an updated, better looking GUI if you want:

#Include <GUIConstants.au3>
#Include <GUIEdit.au3>

HotKeySet("{Enter}", "_Function")

$GUI = GUICreate("Justin Reno's Command Window", 530, 242, -1, -1, BitOr($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_TILEDWINDOW))
$Edit = GUICtrlCreateEdit("", 0, 0, 529, 241, $WS_VSCROLL)
GUICtrlSetFont($Edit, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor($Edit, 0xFFFFFF)
GUICtrlSetBkColor($Edit, 0x000000)
GUICtrlSetData($Edit, @HomeDrive&"\")
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _Function()
    Local $Opt = Opt("WinTitleMatchMode", 4)
    If WinGetHandle("Active") = $GUI Then
        If @HotKeyPressed = "{ENTER}" Then
            GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&@HomeDrive&"\")
        EndIf
    Else
        HotKeySet(@HotKeyPressed)
        Send(@HotKeyPressed)
        HotKeySet(@HotKeyPressed, "_Function")
    EndIf
    Opt("WinTitleMatchMode", $Opt)
EndFunc

Swift · January 4, 2008

Thanks justin

but how would it reconize if say if i edited it:

so it would say:

CMD:/

then if you typed

(all together)

CMD:/runskynet

(then it would change the thingy to SkyNet:/)

SkyNet:/

is there anyway for that to work?

BrettF · January 4, 2008

Thanks justin
but how would it reconize if say if i edited it:
so it would say:
CMD:/
then if you typed
(all together)
CMD:/runskynet
(then it would change the thingy to SkyNet:/)
SkyNet:/
is there anyway for that to work?

Ermmm... Look at every single of the string functions. And RegExp. All of them. Just "eat" them all up.

JustinReno · January 4, 2008

Yes, there is:

#Include <GUIConstants.au3>
#Include <GUIEdit.au3>

Global $Run = 0

HotKeySet("{Enter}", "_Function")

$GUI = GUICreate("Justin Reno's Command Window", 530, 242, -1, -1, BitOr($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_TILEDWINDOW))
$Edit = GUICtrlCreateEdit("", 0, 0, 529, 241, $WS_VSCROLL)
GUICtrlSetFont($Edit, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor($Edit, 0xFFFFFF)
GUICtrlSetBkColor($Edit, 0x000000)
GUICtrlSetData($Edit, "CMD:\")
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _Function()
    Local $Opt = Opt("WinTitleMatchMode", 4)
    If WinGetHandle("Active") = $GUI Then
        If @HotKeyPressed = "{ENTER}" Then
            If $Run = 1 Then GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"SkyNet:\")
            If GUICtrlRead($Edit) = "CMD:\RunSkyNet" Then
                $Run = 1
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"SkyNet:\")
            EndIf
        EndIf
    Else
        HotKeySet(@HotKeyPressed)
        Send(@HotKeyPressed)
        HotKeySet(@HotKeyPressed, "_Function")
    EndIf
    Opt("WinTitleMatchMode", $Opt)
EndFunc

Swift · January 4, 2008

Ehhh...I need help this isnt working and i used what you had to try to make it

#Include <GUIConstants.au3>
#Include <GUIEdit.au3>

Global $Run = 0

HotKeySet("{Enter}", "_Function")

$GUI = GUICreate("C:\WINDOWS\system32\cmd.exe", 530, 242, -1, -1, BitOr($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_TILEDWINDOW))
$Edit = GUICtrlCreateEdit("", 0, 0, 529, 241, $WS_VSCROLL)
GUICtrlSetFont($Edit, 10, 800, 0, "Courier New")
GUICtrlSetColor($Edit, 0xFFFFFF)
GUICtrlSetBkColor($Edit, 0x000000)
GUICtrlSetData($Edit, "CMD:\")
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _Function()
    Local $Opt = Opt("WinTitleMatchMode", 4)
    If WinGetHandle("Active") = $GUI Then
        If @HotKeyPressed = "{ENTER}" Then
            If $Run = 1 Then GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"SkyNet:\")
            If GUICtrlRead($Edit) = "CMD:\RunSkyNet" Then
                $Run = 1
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"SkyNet:\")
;===================================================================================================

==========================;
                If GUICtrlRead($Edit) = "CMD:\help" Then
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Help Center!"&@CRLF&"Help:"&@CRLF&"runskynet - runs skynet")
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Help:\")
            EndIf
    If GUICtrlRead($Edit) = "SkyNet:\connect" Then
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Warning: Property Of SkyNet. Please Do Not Connect If Your Are Unsure About ANYTHING!"&@CRLF&"<SkyNet>"&@CRLF&"Connect - Connects And Loads SkyNet.")
                
If GUICtrlRead($Edit) = "SkyNet:\cmd" Then
               GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"CMD:\")
EndIf
;===================================================================================================

=========================;
            EndIf
            EndIf
        EndIf
    Else
        HotKeySet(@HotKeyPressed)
        Send(@HotKeyPressed)
        HotKeySet(@HotKeyPressed, "_Function")
    EndIf
    
            If GUICtrlRead($Edit) = "CMD:\help" Then
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Help Center!"&@CRLF&"Help:"&@CRLF&"runskynet - runs skynet")
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Help:\")
            EndIf
    If GUICtrlRead($Edit) = "SkyNet:\connect" Then
                GUICtrlSetData($Edit, GUICtrlRead($Edit)&@CRLF&"Warning: Property Of SkyNet. Please Do Not Connect If Your Are Unsure About ANYTHING!"&@CRLF&"<SkyNet>"&@CRLF&"Connect - Connects And Loads SkyNet.")
            EndIf
    Opt("WinTitleMatchMode", $Opt)
EndFunc

im tring to make it: so if you put

CMD:\help

then if you want to go back to cmd you put Help:\cmd

and it

CMD:\

again but if your in SkyNet:\ and you type

SkyNet:\connect

i want it to do what its suppost to do...

and if you put

SkyNet:\cmd

then

back to CMD

CMD:\

I tried..its not working though....thanks for your help everyone

is it possible to make a GUI look like cmd?

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members