MS-DOS en VB

[ranslsad]

Hola, he estado buscando y la verdad no se por donde buscar bien sobre este tema...
me gustaria saber si puedo ejecutar un codigo de MS-DOS en visual basic...
el codigo es el siguiente:

Código [Seleccionar] Expandir

@echo off
echo  Flyff Loader
neuz_no_GG.exe sunkist

Desde ya, muchas gracias.

Salu2

Ranslsad

[~~]

Si, lo guardas en un archivo bat y lo ejecutas, es la solución más rápida. Puedes usar Shell para ejecutar algunos comandos o crear pipes

[ranslsad]

si , eso lo sabia, pero lo que quiero evitar es eso mismo...
Gracias igualmente

Salu2

Ranslsad

[Novlucker]

Algo así?

Código (vb) [Seleccionar] Expandir

Shell "cmd /k @echo off & Flyff Loader & neuz_no_GG.exe sunkist"

Saludos 

[ranslsad]

Si y muchisimas gracias, no caia toy volviendo a VB

Salu2

Ranslsad

[Spider-Net]

Puedes usar Shell para ejecutar algunos comandos o crear pipes

Y eso no es lo que ha dicho E0N y le dijiste que eso ya lo sabías? :S

[BlackZeroX]

mmmm espero y te sirv esto je.¡!
a si solo crea un archivo en "c:\test.bat" con contenido que desees por ejemplo este:

Código (vb) [Seleccionar] Expandir

dir /w

en un formulario:
1 solo botoncillo

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
    Dim result As Long, sout As String, cwritten As Long
    sout = "hi there" & vbCrLf
    result = WriteConsole(hconsole, ByVal sout, Len(sout), cwritten, ByVal 0&)
    Shell "c:\test.bat"
End Sub

Private Sub Form_Load()
    If AllocConsole() Then
        hconsole = GetStdHandle(std_output_handle)
    If hconsole = 0 Then MsgBox "couldn't allocate stdout"
    Else
        MsgBox "couldn't allocate console"
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    CloseHandle hconsole
    FreeConsole
End Sub


En un Modulo

Código (vb) [Seleccionar] Expandir


Public Declare Function AllocConsole Lib "kernel32.dll" () As Long
Public Declare Function FreeConsole Lib "kernel32.dll" () As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Public Declare Function GetStdHandle Lib "kernel32.dll" (ByVal nStdHandle As Long) As Long
Public Declare Function WriteConsole Lib "kernel32.dll" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByRef lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, ByRef lpNumberOfCharsWritten As Long, ByRef lpReserved As Any) As Long
Public Const std_output_handle = -11&