Página 1 de 1

llamada a programa en visual basic

NotaPublicado: Mié Oct 04, 2006 1:48 pm
por milo
Hola, queria saber como desde Plex puedo llamar a un programa .exe en visual basic y si al regresar a plex podria coger un valor que se genera en el exe.

Muchas gracia de antemano
Saludos

Re: llamada a programa en visual basic

NotaPublicado: Jue Oct 05, 2006 8:35 am
por Invitado
El método más sencillo es mediante un source code. Defines el source code y un parámetro con la ruta y el programa a ejecutar ( o por separado si te viene mejor) y otro para poder devolver el resultado.

A continuación te pongo un ejemplo que aunque no se si resolverá exactamente a tu pregunta, fusiona las 2 cosas que planteas, es decir ejecutar un programa y leer un fichero. El ejemplo está en vbscript:


'Este ejemplo cuenta los puertos TCP y UDP abiertos

Dim objScript, objFSO, WinDir, File, TextStream, FileContents, i, NextLine, cntTCP, cntUDP
Set objScript = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
WinDir = objFSO.GetSpecialFolder(0)
objScript.Run WinDir & "\system32\cmd.exe /c openports.exe -csv > c:\optmp.log", 0, True
Set File = objFSO.GetFile("c:\optmp.log")
Set TextStream = File.OpenAsTextStream(1) '// 1=read access
For i = 1 to 6
NextLine = TextStream.ReadLine
Next
Do While Not TextStream.AtEndOfStream
NextLine = TextStream.ReadLine
Select Case Left(NextLine,3)
Case "TCP": cntTCP = cntTCP + 1
Case "UDP": cntUDP = cntUDP + 1
End Select
Loop
TextStream.Close
File.Delete
If Instr(1, LCase(WScript.FullName), "cscript") > 0 Then
WScript.Echo cntTCP & " TCP sockets" & vbCrLf & _
cntUDP & " UDP sockets"
Else
Msgbox cntTCP & " TCP sockets" & vbCrLf & _
cntUDP & " UDP sockets"
End If