Visual Basic - De verda ke nadie sabe acerlo? 4post ya...

Life is soft - evento anual de software empresarial
 
Vista:

De verda ke nadie sabe acerlo? 4post ya...

Publicado por ElPosteador (14 intervenciones) el 04/05/2004 19:11:43
Lo ke kiero acer es basicamente ke al pulsar un comand buton se ejecute un programa y los datos salgan a un archivo de texto, como si kisierais acer un dir y ke los datos salieran a un archivo de texto, pues iwal pero con un programa.

Es un escaner ke se ejecuta en msdos asi:
scan.exe (AKI PUERTO A BUSCAR ABIERTO) (AKI IP A INICIAR Y IP A FINALIZAR)
kedaria una cosa asi:
scan.exe 445 81.33.136.0 81.33.136.255 (esto es en msdos)

entonces en el visual basic kiero ke al darle al comand buton se ejecute el programa en la ventana de msdos y la buskeda de ips salgan a un archivo de texto,e provado asi:
shell "scan.exe 445 81.33.136.0 81.33.136.255"
y asi se ejecuta el programa pero me falta la opcion de acer ke las letras ke me aparecen en la pantalla de msdos se guarden en un archivo de texto .txt asi ke tambien e provado asi:
shell "scan.exe 445 81.33.136.0 81.33.136.255 > texto.txt"
pero cuando lo pongo ace exactamente iwal ke el ke puse mas arriva como si lso datos de > texto.txt no los VIERA!!!
ahora si abro ms dos y cargo el programa:
scan.exe 445 81.33.136.0 81.33.136.255 > texto.txt
ahora si saldria el texto a un archivo txt.

por si no me esplicado bien resumo facilmente:
si ejecuto esto en msdos :
scan.exe 445 81.33.136.0 81.33.136.255 > texto.txt
LOS DATOS DEL PROGRAMA SCAN SALEN A UN ARCHIVO DE TEXTO.

ahora si abro el visual basic y ago un comand buton ke ejecute la misma linea:
Shell "scan.exe 445 81.33.136.0 81.33.136.255 > texto.txt"
ahora los datos no salen a un archivo de texto, POR KE!!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:De verda ke nadie sabe acerlo? 4post ya...

Publicado por miguel (1042 intervenciones) el 04/05/2004 21:20:32
Si lo que necesitas es escribirlo en un archivo de Texto prueba con esto.
Const RutaArchivoConexion = "C:\TuCarpeta\NombreArchivo.Txt"
Dim ArchivoTxt As Variant, F As Variant
Set ArchivoTxt = CreateObject("Scripting.FileSystemObject") 'Creas el Obejto
Set F = ArchivoTxt.CreateTextFile(RutaArchivoConexion, True) 'Creas el Archivo de Texto TXT
F.Write "1 Linea" & vbNewLine & "2 Linea" 'Escribes tu IP
F.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:De verda ke nadie sabe acerlo? 4post ya...

Publicado por César Augusto (158 intervenciones) el 04/05/2004 21:59:55
Creo que Miguel no ha entendido el problema en concreto o yo no he entendido su solución. Pero ya se me ha ocuyrrido como puedes hacerlo, de hech oya lo probé.

Generate un .bat en VB que tenga la cadena que le mandas al shell, y en vez de mandar el comando mandas el BAT.

Pues señor en la tercera se venció su cadena, espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:De verda ke nadie sabe acerlo? 4post ya...

Publicado por ElPosteador (14 intervenciones) el 05/05/2004 00:44:22
Muxas gracias a los 2 llevaba una semana preguntando lo mismo, gracias de verda os kieroooo :- )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar