0.1 final code0.1.10.1

1 files changed, 124 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
new file mode 100644
index 0000000..aa88625
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Terminal.vb
@@ -0,0 +1,124 @@
+Public Class Terminal
+    Public command As String
+    Public DefaultPrompt As String
+    Public TrackPos As Integer
+
+    Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        FormBorderStyle = FormBorderStyle.None
+        WindowState = FormWindowState.Maximized
+        If Strings.IsFree = True Then
+            Strings.ComputerInfo(0) = "shiftos"
+            Strings.ComputerInfo(1) = "user"
+            PrintPrompt()
+            AssignPrompt()
+        End If
+    End Sub
+
+    Public Sub PrintPrompt()
+        If TextBox1.Text = Nothing Then
+            If Strings.OnceInfo(0) = "No" Then
+                TextBox1.Text = "root@" & Strings.ComputerInfo(0) & " #> "
+            Else
+                TextBox1.Text = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
+            End If
+        Else
+            If Strings.OnceInfo(0) = "No" Then
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & "root@" & Strings.ComputerInfo(0) & " #> "
+            Else
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
+            End If
+        End If
+    End Sub
+
+    Public Sub AssignPrompt()
+        If Strings.OnceInfo(0) = "No" Then
+            DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> "
+        Else
+            DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
+        End If
+    End Sub
+
+    Private Sub ReadCommand()
+        command = TextBox1.Lines(TextBox1.Lines.Length - 1)
+        command = command.Replace(DefaultPrompt, "")
+        command = command.ToLower()
+    End Sub
+
+    Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
+        If e.KeyCode = Keys.T AndAlso e.Control Then
+            Me.Hide()
+            e.SuppressKeyPress = True
+        End If
+
+        Select Case e.KeyCode
+            Case Keys.ShiftKey
+                TrackPos = TrackPos - 1
+            Case Keys.Alt
+                TrackPos = TrackPos - 1
+            Case Keys.CapsLock
+                TrackPos = TrackPos - 1
+            Case Keys.ControlKey
+                TrackPos = TrackPos - 1
+            Case Keys.LWin
+                TrackPos = TrackPos - 1
+            Case Keys.RWin
+                TrackPos = TrackPos - 1
+            Case Keys.Right
+                If TextBox1.SelectionStart = TextBox1.TextLength Then
+                    TrackPos = TrackPos - 1
+                End If
+            Case Keys.Left
+                If TrackPos < 1 Then
+                    e.SuppressKeyPress = True
+                    TrackPos = TrackPos - 1
+                Else
+                    TrackPos = TrackPos - 2
+                End If
+            Case Keys.Up
+                e.SuppressKeyPress = True
+                TrackPos = TrackPos - 1
+            Case Keys.Down
+                e.SuppressKeyPress = True
+                TrackPos = TrackPos - 1
+        End Select
+
+        If e.KeyCode = Keys.Enter Then
+            e.SuppressKeyPress = True
+            ReadCommand()
+            'DoCommand()
+
+            If command = "clear" Then
+                PrintPrompt()
+                TextBox1.Select(TextBox1.Text.Length, 0)
+
+            Else
+                PrintPrompt()
+                TextBox1.Select(TextBox1.Text.Length, 0)
+            End If
+
+            TrackPos = 0
+        Else
+            If e.KeyCode = Keys.Back Then
+            Else
+                TrackPos = TrackPos + 1
+            End If
+        End If
+
+        If e.KeyCode = Keys.Back Then
+            If TrackPos < 1 Then
+                e.SuppressKeyPress = True
+            Else
+                If TextBox1.SelectedText.Length < 1 Then
+                    TrackPos = TrackPos - 1
+                Else
+                    e.SuppressKeyPress = True
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick
+        TextBox1.Select(TextBox1.TextLength, 0)
+        TextBox1.ScrollToCaret()
+    End Sub
+End Class
\ No newline at end of file