Foro de elhacker.net

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:

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 :P

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

Salu2

Ranslsad

Algo así?

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

Saludos  :P

Si y muchisimas gracias, no caia ;) toy volviendo a VB :P

Salu2

Ranslsad

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

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

dir /w

en un formulario:
1 solo botoncillo

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

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&