Código PHP:
Option Explicit
Private Const STD_OUTPUT_HANDLE = -11&
Dim hConsoleOut As Long
Dim sTexto As String
Dim lWritten As Long
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 Sub Form_Load()
Form1.Hide ' Ocultamos el formulario
hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) ' Obtenemos el handle de la consola
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 killme()
CloseHandle hConsoleOut
FreeConsole
End ' fin de ejecución
End Sub
Sub Borrar(Archivo As String)
'MsgBox "Ha solicitado BORRAR " & Archivo
hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
sTexto = "Ha solicitado BORRAR " & Archivo ' Texto a mostrar en la consola
WriteConsole hConsoleOut, ByVal sTexto, Len(sTexto), lWritten, ByVal 0& ' Mostramos el texto en la consola
killme
End Sub
Sub Copiar(Archivo As String)
'MsgBox "Ha solicitado COPIAR " & Archivo
hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
sTexto = "Ha solicitado COPIAR " & Archivo ' Texto a mostrar en la consola
WriteConsole hConsoleOut, ByVal sTexto, Len(sTexto), lWritten, ByVal 0& ' Mostramos el texto en la consola
killme
End Sub
Sub Avisar()
'MsgBox "Ha indicado una opción incorrecta"
hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
sTexto = "Ha indicado una opción incorrecta" ' Texto a mostrar en la consola
WriteConsole hConsoleOut, ByVal sTexto, Len(sTexto), lWritten, ByVal 0& ' Mostramos el texto en la consola
killme
End Sub
al exportar el exe solo queda cambiar el hexadecimal 114 de 02 a 03 con cualquier editor hexadecimal
el vb6 portable lo puedes descargar de aqui 6mb!!
el test esta funcionando!!! no sirve de nada pero xD pero es un buen ejemplo para jugar!!
no se como poner la etiqueta de vb :P