• Home
 · 
• Miscellaneous
 · 
• DOS impersonation, you can read the code, and see that its easy enough to add your own controls(cos

DOS impersonation, you can read the code, and see that its easy enough to add your own controls(cos

DOS impersonation, you can read the code, and see that its easy enough to add your own controls(cos there s not really a lot in it), all the

API Declarations


Dim command As String, var, temp As String, char As Integer, nums As Integer
Dim counter As Integer



Rate DOS impersonation, you can read the code, and see that its easy enough to add your own controls(cos

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    TXTinput.Height = Form1.Height
    TXTinput.Width = Form1.Width
    TXTinput = "command: >"
    char = 11
    counter = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Are you sure you want to quit?", vbYesNo, "Quit?") = vbNo Then Cancel = 1
End Sub

Private Sub Form_Resize()
    TXTinput.Height = Form1.Height
    TXTinput.Width = Form1.Width
End Sub

Private Sub Timer1_Timer()
    counter = counter + 1
        If counter = nums Then
            Me.Show
            nums = 0
            counter = 0
            Timer1.Enabled = False
        End If
End Sub

Private Sub TXTinput_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        command = Right(TXTinput, 3)
            If LCase(command) = "cls" Then
                TXTinput = "Command: >"
                command = ""
                GoTo errhandler
            Else
                command = ""
        Do Until temp = ":"
            temp = Mid(TXTinput, char, 1)
            char = char + 1
            If char > 119 Then GoTo errhandler
            command = command + temp
        Loop
        Select Case UCase(command)
            Case "EXIT:"
                Unload Me
            Case "HEIGHT:"
                var = Mid(TXTinput, char)
                Form1.Height = var
            Case "WIDTH:"
                var = Mid(TXTinput, char)
                Form1.Width = var
            Case "BACKSTATE:"
                var = Mid(TXTinput, char)
                Select Case UCase(var)
                    Case "YELLOW"
                        TXTinput.BackColor = vbYellow
                    Case "BLACK"
                        TXTinput.BackColor = vbBlack
                    Case "BLUE"
                        TXTinput.BackColor = vbBlue
                    Case "RED"
                        TXTinput.BackColor = vbRed
                    Case "GREEN"
                        TXTinput.BackColor = vbGreen
                    Case "WHITE"
                        TXTinput.BackColor = vbWhite
                End Select
            Case "FORESTATE:"
                var = Mid(TXTinput, char)
                     Select Case UCase(var)
                    Case "YELLOW"
                        TXTinput.ForeColor = vbYellow
                    Case "BLACK"
                        TXTinput.ForeColor = vbBlack
                    Case "BLUE"
                        TXTinput.ForeColor = vbBlue
                    Case "RED"
                        TXTinput.ForeColor = vbRed
                    Case "GREEN"
                        TXTinput.ForeColor = vbGreen
                    Case "WHITE"
                        TXTinput.ForeColor = vbWhite
                End Select
                Case "SHELL:"
                    On Error GoTo errhandler
                    var = Mid(TXTinput, char)
                    Shell (var)
                Case "RUN:"
                    On Error GoTo errhandler
                    var = Mid(TXTinput, char)
                    Shell (var)
                Case "COMMANDS"
                    TXTinput = "shell:/run:<<program>> This runs a program" & vbCrLf & _
                               "forestate:<<color>> changes the text color between" & vbCrLf & _
                               "Yellow, black, blue, red, green and white." & vbCrLf & _
                               "Backstate:<<color>> changes the color of the background between" & vbCrLf & _
                               "Yellow, black, blue, red, green and white." & vbCrLf & _
                               "Height:<<number>> changes the height of the console" & vbCrLf & _
                               "Width:<<number>> changes the width of the console" & vbCrLf & _
                               "hide:<<number>> hides the console for that many seconds"
                               
              Case "HIDE:"
                    var = Mid(TXTinput, char)
                    If IsNumeric(var) Then
                        nums = Mid(TXTinput, char)
                        Me.Hide
                        Timer1.Enabled = True
                    Else: GoTo errhandler
                    End If
        End Select
errhandler:
        char = 11
        temp = ""
        command = ""
        TXTinput.SelStart = Len(TXTinput)
        End If
    End If
End Sub

Private Sub TXTinput_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub