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:
@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 :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
Cita de: E0N en 29 Septiembre 2008, 18:09 PM
Puedes usar Shell para ejecutar algunos comandos o crear pipes :P
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&