[Release] Console Commander

What is this?

This is a easy tool to manage your computer, but it's still a beta

What does this do, and how to use this?

Easy, simply run the application executable and enjoy =)
This actually manages your computer, like a small Command Prompt, but the difference is that this is easy to use =P

Screens:

Virus Scans:
VirusTotal - Free Online Virus, Malware and URL Scanner
Console Commander.rar - Jotti's malware scan

Command List:

Code:

Dir <Path> //Gets all the files into a path...
Usage: Dir C:\

Dis <Message> //Displays a message
Usage: Dis Hello 3Li0!

W <File Path> //Writes a string value on a file
Usage: W C:\test.txt
Hello MPGH! This is my tool!

SendSocket <Hostname> //Sends a packet of specific bytes
Usage:SendSocket
//Hostname
localhost
//Port number
45

GetStrEx <File Path> //Gets a string value of a file, and writes it on a file (Application.StartUpPath & "\string.txt")
Usage: GetStrEx C:\test.txt

Title <Name> //Sets a new title for the cosole
Usage: Title CCmd V1 Beta

Color <ID> //Sets a new foreground color for the cosole
Usage: Color F1
{
          ID Must Be:
             F1 || F2 || F3 || FG
}

ETC....

thanks dudes, I can make this even more good

Here's a bit of my Exec Command:

Code:

Namespace Executing

    Public Class ExecTool

        ''' <summary>
        ''' Executes a command from a remote file
        ''' </summary>
        ''' <param name="stringDirName"></param>
        ''' <remarks></remarks>
        Public Sub Exec(ByVal stringDirName As String)
            Using reader As New System.IO.StreamReader(stringDirName & ".ccmd")
                Console.WriteLine(vbCrLf & "Executing:> " & stringDirName & ".....DONE! (3Li0 ROCKS!)" & vbCrLf)
                Dim commandList As String = reader.ReadToEnd()
                Dim totalLines As String() = commandList.Split(vbCrLf)
                For Each line As String In totalLines
                    If line.Contains("//") Then
                        Dim i As Integer = line.IndexOf("//")
                        line.Remove(i, line.Length - i)
                    Else
                        If line.Contains("Dis") Then
                            Dim msg As String = line.Replace("Dis ", "")
                            Dis(msg)
                        End If
                        If line.Contains("Dir") Then
                            Dim path As String = line.Replace("Dir ", "")
                            If path = "xPath" Then
                                path = CurDir()
                                Dir(path)
                            Else
                                Dir(path)
                            End If
                            If line.Contains("Color") Then
                                Dim id As String = line.Replace("Color ", "")
                                MsgBox(id)
                                If id = "F1" Then Console.ForegroundColor = ConsoleColor.Blue
                                If id = "F2" Then Console.ForegroundColor = ConsoleColor.Red
                                If id = "F3" Then Console.ForegroundColor = ConsoleColor.White
                                If id = "FG" Then Console.ForegroundColor = ConsoleColor.Yellow
                            End If
                            If line.Contains("Title") Then
                                Dim newTitle As String = line.Replace("Title ", "")
                                Title(newTitle)
                            End If
                            If line.Contains("W") Then
                                Dim a As String = line.Replace("W ", "").Replace(" || ", "").Replace("'", "")
                                Dim x() As String = a.Split(vbCrLf)
                                Dim dir As String = x(0)
                                Dim str As String = x(1)
                                W(dir, str)
                                MsgBox(dir & " " & str)
                            End If
                        End If
                    End If
                Next
            End Using
        End Sub

    End Class

End Namespace

[Release] Console Commander

Post a Reply

Tags for this Thread