Ejecutar ejecutable remoto
Tengo dos pc's A y B y una aplicación POR en B, necesito ejecutar la aplicación POR en B desde A, sin que se ejecute en A.
1 Respuesta
Respuesta de leosoft
1
Para eso tienes que tener otro programa C ejecutándose en la pc B, a ese programa desde la pc A le envías un comando para que ejecute la alpicacion X
Programo en Visual basic, si quieres te doy un ejemplo de como hacerlo.
Programo en Visual basic, si quieres te doy un ejemplo de como hacerlo.
Te agradezco si puedes enviarme el ejemplo, ¿por qué quieres decir que debe haber otro programa activo que ejecutará al que realmente se necesita en el equipo B?
Efectivamente tienes que tener insatalada y ejecutándose otra aplicación tuya en la maquina remota.
Laa aplicaciones las harias asi:
Tienes que cargar 1 componente Microsoft WinSock Control en cada aplicación, en su propiedad Protocol seleccionas la sckUDPProtocol, luego en el evento Load del form de cada programa pones:
Private Sub Form_Load()
With WinSock1
.RemoteHost= "nombre de la maquina, esto lo ves en la sección red en el panel de control.
.RemotePort = 'acá pones 1001 en el programa principal y 1002 en el programa remoto
.Bind 'acá pones 1002 para el primero y 1001 para el segundo
End With
End Sub
ahora le enviarias un comando al otro programa:
WinSock1.SendData "ActivarAplicaion"
y en el otro programa se activa el evento siguiente:
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim ejecutar
Dim Archivo As String
Dim DatosRecividos As String
WinSock1.GetData DatosRecividos
'en DatosRecividos guardas el texto que envio la otra aplicacion
if DartosRecividos = "ActivarAplicaion" Then
Archivo = "C:\aplicacion.exe"
ejecutar = Shell(Archivo, 1)
End If
End Sub
De esta manera al enviar ese comando a la aplicación remota, esta te ejecutaría la aplicación que quieras, fíjate que los comando los inventas vos, podes hacer infinidad de cosas, tené en cuante que este método te permite una comunicación bidireccional con tus plaicaciones.
Cualquier duda estoy a tu disposición.
Laa aplicaciones las harias asi:
Tienes que cargar 1 componente Microsoft WinSock Control en cada aplicación, en su propiedad Protocol seleccionas la sckUDPProtocol, luego en el evento Load del form de cada programa pones:
Private Sub Form_Load()
With WinSock1
.RemoteHost= "nombre de la maquina, esto lo ves en la sección red en el panel de control.
.RemotePort = 'acá pones 1001 en el programa principal y 1002 en el programa remoto
.Bind 'acá pones 1002 para el primero y 1001 para el segundo
End With
End Sub
ahora le enviarias un comando al otro programa:
WinSock1.SendData "ActivarAplicaion"
y en el otro programa se activa el evento siguiente:
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim ejecutar
Dim Archivo As String
Dim DatosRecividos As String
WinSock1.GetData DatosRecividos
'en DatosRecividos guardas el texto que envio la otra aplicacion
if DartosRecividos = "ActivarAplicaion" Then
Archivo = "C:\aplicacion.exe"
ejecutar = Shell(Archivo, 1)
End If
End Sub
De esta manera al enviar ese comando a la aplicación remota, esta te ejecutaría la aplicación que quieras, fíjate que los comando los inventas vos, podes hacer infinidad de cosas, tené en cuante que este método te permite una comunicación bidireccional con tus plaicaciones.
Cualquier duda estoy a tu disposición.
