Autor
Código:
Dim sCodigo As String
Private Sub txtCmd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sCodigo = txtCmd.Text
txtCmd.Text = ""
txtLog.Text = App.Path & ">" & sCodigo & vbCrLf
[color=Yellow]Consola.AddCode sCodigo[/color]
Consola.Run "cmd"
End If
End Sub
En línea
