Sign in to follow this  
Followers 0
Swift

is it possible to make a GUI look like cmd?

14 posts in this topic

#1 ·  Posted (edited)

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... :P 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::P:D

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 :P:(:o

===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 :D:)

Edited by Swift

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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? :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.


You can help! Donate to AutoIt! or, visit ClimatePREDICTION.netMy posts:Travian Bot Example (100+ servers) BETAHow to Host you code/app for free! (unlimited team number) (Public or Private)"Sir, we're surrounded!" "Excellent. We can attack in any direction!"

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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. :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

#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 :)

Share this post


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
Sign in to follow this  
Followers 0