Command prompt coming soon

[testingtest]

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
#Include <GuiEdit.au3>
Global $Console , $Main           
HotKeySet("`" , "_Send")
$Main = "Console"
$Font = "Courier New"
$Gui = GUICreate($Main , 629, 403, 193, 115)
GUISetIcon( "shell32.dll", 42)
$Console = GUICtrlCreateEdit("" , 4, 4, 621, 369, $ES_READONLY + $WS_VSCROLL + $ES_AUTOHSCROLL, 0 )
GUICtrlSetBkColor(-1, 0x000000) 
GUICtrlSetFont( -1, 9, 400, 4, $Font)
GUICtrlSetColor(-1, 0xFFFFFF)
$Command = GUICtrlCreateInput("", 4, 376, 621, 21, -1, 0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont( -1, 9, 400, 4, $Font)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
_ConsoleWrite("You are logged as: " & @UserName & @CRLF & "Computer: " & @ComputerName & @CRLF & "IP Address: " & @IPAddress1 & @CRLF & "Administrator Rights: " & _Admin() & @CRLF & "Help: Type Help then hit ` to send the command to the console")
While 1
    $Msg = GuiGetMsg()
    Select
    Case $Msg = $GUI_EVENT_CLOSE
        ExitLoop
    ;Case
        ;;;
    EndSelect
WEnd

Func _Admin()
    If IsAdmin() = 1 Then
    $Admin = "True"
    Else
    $Admin = "False"
    EndIf
    Return $Admin
EndFunc

Func _ConsoleWrite($Text)
    GUICtrlSetData($Console , $Text & @CRLF)
EndFunc

Func _Send()
    If GUICtrlRead($Command) = "" Then 
        GUICtrlSetData($Console , GUICtrlRead($Console) & @CRLF & ">" & @CRLF)
        Else
        _ConsoleWrite(GUICtrlRead($Console) & @CRLF & GUICtrlRead($Command))
        _Read()
        GUICtrlSetData($Command , "")
        EndIf
EndFunc
    
Func _Read()
If GUICtrlRead($Command) = "Help" Then _ConsoleWrite("Help - takes you here to view all the commands" & @CRLF & "Clear - clears the console" & @CRLF & "Cls - clears the console" & @CRLF & "Beep(Frequency , Duration) - plays back a beep noise , example beep(500, 1000)" & @CRLF & "Win Chat - opens microsofts chatting service" & @CRLF & "Notepad - opens microsofts text editor" & @CRLF & "Cal - opens microsofts calculator" & @CRLF & "Paint - opens microsofts paint brush" & @CRLF & "Ip - tells you your current ip" & @CRLF & "Computer name - tells you the computer name" & @CRLF & "User name - tells you the logged on user name" & @CRLF & "Logon Domain - logon domain" & @CRLF & "Logon DNS Domain - logon dns domain" & @CRLF & "Logon Server - logon server" & @CRLF & "OSTYPE - returns WIN32_NT for NT/2000/XP/2003 and returns WIN32_WINDOWS for 95/98/Me" & @CRLF & "Desktop Size - returns the height and width of desktop" & @CRLF & "Talk(Word or text here) - repeats the word withing the brackets" & @CRLF & "Voice on - repeats command typed in and reads the consoles actions" & @CRLF & "Voice off - shuts off voice" & @CRLF & "Connection - tells you if your online" & @CRLF & "Cmd:command - to use the classic command prompt , example cmd:msg * hello" & @CRLF & "Cmd2:command - makes a batch file to bypass work places such as school or work" & @CRLF & "Cd Tray(C:) - opens or closes a cd tray or type all to open or close all trays" & @CRLF & "Trans() - makes a window transparent 0-255 , example trans(150)" & @CRLF & "Transparent() - makes a window transparent 0-255 , example transparent(150)" & @CRLF & "Pic - takes a picture of the current screen hides the console" & @CRLF & "Picture - takes a picture of the current screen hides the console" & @CRLF & "ClipPut(value) - writes text to the clipboard" & @CRLF & "ClipGet() - retrieves text from the clipboard" & @CRLF & "DirCreate(path) - creates a directory/folder , example dircreate(c:\myfolder)" & @CRLF & "FileGetSize(console.exe) - returns file size in bytes" & @CRLF & "FileWrite() - writes a file , example FileWrite(C:\myfile.txt , this is my line of text)" & @CRLF & "SoundSetWaveVolume(50) - sets the wave volume 0-100" & @CRLF & "SoundPlay(myfile.wav) - play a sound file" & @CRLF & "Run() - runs an external program , example Run(notepad.exe)" & @CRLF & "ProcessList() - list all processes" & @CRLF & "ProcessClose() - close a process , example ProcessClose(notepad.exe)" & @CRLF & "Net Messenger On - enables net send" & @CRLF & "Net Messenger Off - disable net send" & @CRLF & "OS Serial - shows you your serial for your copy of windows 2000 and xp only" & @CRLF & "Credits - credits of who made console" & @CRLF & "Exit - exits console")
endfunc

[mrbond007]

This is very interesting

[MrCreatoR]

Wow, nice idea, here is some improvments:

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
#Include <GuiEdit.au3>

Global $Console, $Main        

Global $SupportedCommandsArr[50] = [43, "?", "Help", "Clear", "Cls", "Beep", "Win Chat", "Notepad", "Cal", "Paint", "Ip", "Computer name", "User name", "Logon Domain", "Logon DNS Domain", "Logon Server", "OSTYPE", "Desktop Size", "Talk", "Voice on", "Voice off", "Connection", "Cmd:", "Cmd2:", "Cd Tray", "Trans", "Transparent", "Pic", "Picture", "ClipPut", "ClipGet", "DirCreate", "FileGetSize", "FileWrite", "SoundSetWaveVolume", "SoundPlay", "Run", "ProcessList", "ProcessClose", "Net Messenger On", "Net Messenger Off", "OS Serial", "Credits", "Exit"]

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

$Main = "Console"
$Font = "Courier New"

$Gui = GUICreate($Main , 629, 403, 193, 115)
GUISetIcon( "shell32.dll", 42)

$Console = GUICtrlCreateEdit("" , 4, 4, 621, 369, $ES_READONLY + $WS_VSCROLL + $ES_AUTOHSCROLL, 0 )
GUICtrlSetBkColor(-1, 0x000000) 
GUICtrlSetFont( -1, 9, 400, 4, $Font)
GUICtrlSetColor(-1, 0xFFFFFF)

$Command = GUICtrlCreateInput("", 4, 376, 621, 21, -1, 0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont( -1, 9, 400, 4, $Font)
GUICtrlSetColor(-1, 0xFFFFFF)

GUICtrlSetState($Command, $GUI_FOCUS)

GUISetState(@SW_SHOW)

_ConsoleWrite("You are logged as: " & @UserName & @CRLF & "Computer: " & @ComputerName & @CRLF & "IP Address: " & @IPAddress1 & @CRLF & "Administrator Rights: " & _Admin() & @CRLF & "Help: Type Help or ? then hit ENTER to send the command to the console")

While 1
    If WinActive($Gui) Then
        HotKeySet("{Enter}" , "_Send")
    Else
        HotKeySet("{Enter}")
    EndIf

    $Msg = GuiGetMsg()
    Select
    Case $Msg = $GUI_EVENT_CLOSE
        ExitLoop
    ;Case
        ;;;
    EndSelect
WEnd

Func _Admin()
    If IsAdmin() = 1 Then
    $Admin = "True"
    Else
    $Admin = "False"
    EndIf
    Return $Admin
EndFunc

Func _ConsoleWrite($Text)
    GUICtrlSetData($Console , $Text & @CRLF)
EndFunc

Func _Send()
    $CommandRead = GUICtrlRead($Command)
    
    If Not _IsSupportedCmd($SupportedCommandsArr, $CommandRead) Then
        GUICtrlSetData($Console, GUICtrlRead($Console) & @CRLF & $CommandRead & ":" & " Not supported command" & @CRLF)
        GUICtrlSetData($Command , "")
        Return
    EndIf
    
    If $CommandRead = "" Then
        GUICtrlSetData($Console, GUICtrlRead($Console) & @CRLF & ">" & @CRLF)
    Else
        _ConsoleWrite(GUICtrlRead($Console) & @CRLF & $CommandRead)
        _Read()
        GUICtrlSetData($Command , "")
    EndIf
    _GUICtrlEditScroll($Console, $SB_SCROLLCARET)
EndFunc
    
Func _Read()
    $ReadConsole = GUICtrlRead($Console)
    If GUICtrlRead($Command) = "/Help" Or GUICtrlRead($Command) = "/?" Then _ConsoleWrite($ReadConsole & @CRLF & "/Help - takes you here to view all the commands" & @CRLF & "Clear - clears the console" & @CRLF & "Cls - clears the console" & @CRLF & "Beep(Frequency , Duration) - plays back a beep noise , example beep(500, 1000)" & @CRLF & "Win Chat - opens microsofts chatting service" & @CRLF & "Notepad - opens microsofts text editor" & @CRLF & "Cal - opens microsofts calculator" & @CRLF & "Paint - opens microsofts paint brush" & @CRLF & "Ip - tells you your current ip" & @CRLF & "Computer name - tells you the computer name" & @CRLF & "User name - tells you the logged on user name" & @CRLF & "Logon Domain - logon domain" & @CRLF & "Logon DNS Domain - logon dns domain" & @CRLF & "Logon Server - logon server" & @CRLF & "OSTYPE - returns WIN32_NT for NT/2000/XP/2003 and returns WIN32_WINDOWS for 95/98/Me" & @CRLF & "Desktop Size - returns the height and width of desktop" & @CRLF & "Talk(Word or text here) - repeats the word withing the brackets" & @CRLF & "Voice on - repeats command typed in and reads the consoles actions" & @CRLF & "Voice off - shuts off voice" & @CRLF & "Connection - tells you if your online" & @CRLF & "Cmd:command - to use the classic command prompt , example cmd:msg * hello" & @CRLF & "Cmd2:command - makes a batch file to bypass work places such as school or work" & @CRLF & "Cd Tray(C:) - opens or closes a cd tray or type all to open or close all trays" & @CRLF & "Trans() - makes a window transparent 0-255 , example trans(150)" & @CRLF & "Transparent() - makes a window transparent 0-255 , example transparent(150)" & @CRLF & "Pic - takes a picture of the current screen hides the console" & @CRLF & "Picture - takes a picture of the current screen hides the console" & @CRLF & "ClipPut(value) - writes text to the clipboard" & @CRLF & "ClipGet() - retrieves text from the clipboard" & @CRLF & "DirCreate(path) - creates a directory/folder , example dircreate(c:\myfolder)" & @CRLF & "FileGetSize(console.exe) - returns file size in bytes" & @CRLF & "FileWrite() - writes a file , example FileWrite(C:\myfile.txt , this is my line of text)" & @CRLF & "SoundSetWaveVolume(50) - sets the wave volume 0-100" & @CRLF & "SoundPlay(myfile.wav) - play a sound file" & @CRLF & "Run() - runs an external program , example Run(notepad.exe)" & @CRLF & "ProcessList() - list all processes" & @CRLF & "ProcessClose() - close a process , example ProcessClose(notepad.exe)" & @CRLF & "Net Messenger On - enables net send" & @CRLF & "Net Messenger Off - disable net send" & @CRLF & "OS Serial - shows you your serial for your copy of windows 2000 and xp only" & @CRLF & "Credits - credits of who made console" & @CRLF & "Exit - exits console")
EndFunc

Func _IsSupportedCmd(ByRef $SupportedCommandsArr, $Cmd)
    For $i = 1 To UBound($SupportedCommandsArr)-1
        If StringLeft($SupportedCommandsArr[$i], StringLen($Cmd)) = $Cmd Then Return True
    Next
    Return False
EndFunc

Edited May 25, 2007 by MsCreatoR

[testingtest]

yea its nice for school bigger project then I though becuase I want it to be user friendly

little problem

If GUICtrlRead($Command) = "Beep("$Frequency "," $Duration")"  Then 
Beep($Frequency , $Duration)
EndIf
oÝ÷ Úz-²êÞ-¢
n­¶¬¥ªí­æx"·­Á秢¹É·¥G­+ºÚ"µÍYÕRPÝXY
    ÌÍÐÛÛ[X[
HH  ][ÝÐY
    ][ÝÑÕRPÝXY
    ÌÍÑ]Y[ÞJH   ][ÝË  ][ÝÈÕRPÝXY
    ÌÍÑ][ÛI][ÝÊI][ÝÈ[BY
    ÌÍÑ]Y[ÞH    ÌÍÑ][ÛB[Y

[MrCreatoR]

little problem

Try this:

If StringLeft($CommandRead, 4) = "Beep" Then
    Local $TempCommandRead = StringReplace(StringReplace(StringTrimLeft($CommandRead, 4), "(", ""), ")", "")
    $VarsArr = StringSplit($TempCommandRead, ",")
    If IsArray($VarsArr) And UBound($VarsArr) > 2 Then
        $Frequency = StringStripWS($VarsArr[1], 3)
        $Duration = StringStripWS($VarsArr[2], 3)
        Beep($Frequency , $Duration)
    Else
        GUICtrlSetData($Console, $ConsoleRead & @CRLF & $CommandRead & ":" & " Incorrect parameters in command / Wrong number of arguments in command call." & @CRLF)
    EndIf
EndIf

[James]

Hmm cool, a new version of the command interpreter hey.

Nice. Keep it up.

[testingtest]

Try this:

If StringLeft($CommandRead, 4) = "Beep" Then
    Local $TempCommandRead = StringReplace(StringReplace(StringTrimLeft($CommandRead, 4), "(", ""), ")", "")
    $VarsArr = StringSplit($TempCommandRead, ",")
    If IsArray($VarsArr) And UBound($VarsArr) > 2 Then
        $Frequency = StringStripWS($VarsArr[1], 3)
        $Duration = StringStripWS($VarsArr[2], 3)
        Beep($Frequency , $Duration)
    Else
        GUICtrlSetData($Console, $ConsoleRead & @CRLF & $CommandRead & ":" & " Incorrect parameters in command / Wrong number of arguments in command call." & @CRLF)
    EndIf
EndIfoÝ÷ Ûú®¢×©ä±ú+éixºÖ¥ÛezènW¦!§]yØ­|¨º»Þ®È¨©ÝÛÚ®¢Óh¶Ë©¦íy×(f§v«¨¶Ê¶$¶ç$x"~+liÊ&©Ý¥ªí¢ëZÛ-Y]Ù÷ö×îËb¢{kçb¶X¤zØb±«­¢+Ø)%U%
ÑɱI ÀÌØí
½µµ¹¤ôÅÕ½Ðí  ÀÅÕ½ÐìQ¡¸)%MÑÉ¥¹1Ð ÀÌØí
½µµ¹I°Ð¤ôÅÕ½Ðí ÀÅÕ½ÐìQ¡¸(1½°ÀÌØíQµÁ
½µµ¹IôMÑÉ¥¹IÁ±¡MÑÉ¥¹IÁ±¡MÑÉ¥¹QÉ¥µ1Ð ÀÌØí
½µµ¹I°Ð¤°ÅÕ½Ðì ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ð줰ÅÕ½Ðì¤ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíYÉÍÉÈôMÑÉ¥¹MÁ±¥Ð ÀÌØíQµÁ
½µµ¹I°ÅÕ½Ðì°ÅÕ½Ðì¤(%%ÍÉÉä ÀÌØíYÉÍÉȤ¹U   ½Õ¹ ÀÌØíYÉÍÉȤÐìÈQ¡¸(ÀÌØíÉÅÕ¹äôMÑÉ¥¹MÑÉ¥Á]L ÀÌØíYÉÍÉÉlÅt°Ì¤(ÀÌØíÕÉÑ¥½¸ôMÑÉ¥¹MÑÉ¥Á]L ÀÌØíYÉÍÉÉlÉt°Ì¤(  À ÀÌØíÉÅÕ¹ä°ÀÌØíÕÉÑ¥½¸¤(±Í(U%
ÑɱMÑÑ ÀÌØí
½¹Í½±°ÀÌØí
½¹Í½±IµÀì
I1µÀìÀÌØí
½µµ¹IµÀìÅÕ½ÐìèÅÕ½ÐìµÀìÅÕ½Ðì%¹½ÉÉÐÁɵÑÉÌ¥¸½µµ¹¼]ɽ¹¹ÕµÈ½ÉÕµ¹ÑÌ¥¸½µµ¹±°¸ÅÕ½ÐìµÀì
I1¤(¹%)¹%)¹%(

Edited May 25, 2007 by testingtest

[testingtest]

I am also willing to keep this project user friendly and add way more commands this should keep me busy for now

[Draygoes]

Testingtest was banned, but I wonder if anyone would like to contnue this project? I personally would love to see this project become great.