diff options
| author | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
| commit | bd4c45f316d11e124fe5d21d9c5f66e21149fc5d (patch) | |
| tree | c9b1a4ad85f7d8c6b3cbe05f7769cb04f907dfa3 /ShiftOS-TheRevival/MainForms/TerminalAPI.vb | |
| parent | b37a6e60c9ffa266fc1fc9afc13cada7704100b0 (diff) | |
| download | shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.gz shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.bz2 shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.zip | |
More organized
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalAPI.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb deleted file mode 100644 index 715e075..0000000 --- a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb +++ /dev/null @@ -1,70 +0,0 @@ -Module TerminalAPI - Public command As String - Public AdvancedCommand As Boolean - Public RawCommand As String - - Public Sub Terminal_ReadCommand() - command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1) - If Console.DefaultPrompt = Nothing Then - Else - command = command.Replace(Console.DefaultPrompt, "") - End If - RawCommand = command - command = command.ToLower() - End Sub - - Public Sub Terminal_PrintPrompt() - If Console.TextBox1.Text = Nothing Then - If Console.ChangeInterpreter = True Then - NewLine(Console.DefaultPrompt) - Else - If Strings.OnceInfo(0) = "Yes" Then - ResetLine("root@" & Strings.ComputerInfo(0) & " #> ") - Else - ResetLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") - End If - End If - Else - If Console.ChangeInterpreter = True Then - NewLine(Console.DefaultPrompt) - Else - If Strings.OnceInfo(0) = "Yes" Then - NewLine("root@" & Strings.ComputerInfo(0) & " #> ") - Else - NewLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") - End If - End If - End If - End Sub - - Public Sub Terminal_AssignPrompt() - If Console.ChangeInterpreter = False Then - If Strings.OnceInfo(0) = "Yes" Then - Console.DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> " - Else - Console.DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> " - End If - End If - End Sub - - Public Sub Terminal_RunTerminalFile(filename As String) - Dim sr As System.IO.StreamReader - If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then - Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename) - If fileext.Extension = ".scr" Then - sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename) - Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length - Dim i As Integer = 1 - While i <= linenum - command = sr.ReadLine() - Console.DoCommand() - NewLine(Nothing) - i = i + 1 - End While - sr.Close() - Else - - End If - End If - End Sub -End Module |