Jump to content

Recommended Posts

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
Posted

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
Posted

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

Posted

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!"
Posted

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
Posted

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?

Posted

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

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
Posted

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

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
×
×
  • Create New...