Manejar el programa en consola "cmd"

[Remsankar]

buscando otra cosa encontre tambien de casualidad esto

http://www.nirsoft.net/vb/console_ap...ual_basic.html

bueno lo que estoy haciendo ahora es replicar algunas cosas del comando touch de linux a windows, tengo unos problemas absurdos de tipos y matrices, como no tengo un manual con ejemplos de visual basic es lento estar probando los comos, quizas podria bajar ese libro, yo me lo compre pero lo deje en la casa de mi mama a unos 14 o 16mil kilometros de aqui xD

Código vb:

'Attribute VB_Name = "Module1"
Option Explicit
Private Declare Function FreeConsole Lib "kernel32" () As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
Private Declare Function SetConsoleTextAttribute Lib "kernel32" (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long
Private Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long
Private Const STD_OUTPUT_HANDLE = -11&
 
 
 
Sub Main()
  Dim Parametro() As String
  If Command = "" Then End
  Parametro = Split(Command, " ")
  Select Case LCase(Parametro(0))
    Case "copiar"
      Copiar Parametro(1)
    Case "borrar"
      Borrar Parametro(1)
    Case Else
      Avisar
  End Select
End Sub
 
Sub Borrar(Archivo As String)
  ConsoleMsg "Ha solicitado BORRAR " & Archivo
End Sub
 
Sub Copiar(Archivo As String)
  ConsoleMsg "Ha solicitado COPIAR " & Archivo
End Sub
 
Sub Avisar()
  ConsoleMsg "Ha indicado una opción incorrecta"
End Sub
 
Private Sub ConsoleMsg(ConsoleTxt As String)
    Dim hConsoleOut As Long
    hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) ' Obtenemos el handle de la consola
    If (hConsoleOut) Then
        Dim lWritten As Long
        SetConsoleTitle ("Touch") 
        WriteConsole hConsoleOut, ByVal ConsoleTxt, Len(ConsoleTxt), lWritten, ByVal 0&   ' Mostramos el texto en la consola
    End If
    'Matamos la consola
 
    CloseHandle hConsoleOut
    FreeConsole
    End ' fin de ejecución
End Sub
 

Este es nuevamente una mezcla con el codigo mas legible te puede ser util Erbuson

Recuerda que al exportar el exe solo tienes que cambiar el hexadecimal 114 de 02 a 03 con cualquier editor hexadecimal, el valos es un 02 entre 100 y 130 es facil de encontrar por que hay casi puros 00 al rededor

Saludos y gracias por ayudarme