blob: 715e075e0c790f0e8656ae69242cc117289f093a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
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
|
