ShiftOS-TheRevival/TerminalApplications/Internal/Com_Username.vb


1
2
3
4
5
6
7
8
9
10
11
12
13

Module Com_Username
    Public NewUsername As String

    Public Sub Username()
        NewUsername = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
        If NewUsername = "" Then
            NewLine("A username should not be blank")
        Else
            Strings.ComputerInfo(1) = NewUsername
        End If
        Terminal_AssignPrompt()
    End Sub
End Module