Comprovar conexion en Visual Basic

Muchas veces nos ocurre que necesitamos añadir a nuestra aplicacion un aparta donde podamos ver si un aplicacion se ejecuta en un ordenador remoto o no.

Biene bien cuando independientemente de nuestra aplicacion necesitamos comprobar si ademas de nuestra aplicacion esta ejecutandose una aplicacion determinada, claro esta sabiendo el puerto en el que dicha aplicacion esta escuchando.

El codigo es simple.

Imports System.Net.Sockets

Dim xClient = New TcpClient()

Try
___xClient.Connect("Host", Puerto)
___xClient.Close()
___MsgBox ("Conectado")

Catch
___MsgBox ("Desconectado")

End Try

Con este codigo hecho en Visual Basic .NET podremos ver un mensaje si esta o no la aplicacion escuchando en el puerto que indicamos.

La explicacion es simple.

Donde pone host indicaremos la direccion IP donde se encuentra la aplicacion que se supone esta a la escucha para comprobar su estado.

Donde pone Puerto indicaremos el puerto por el que la aplicacion esta escuchando.

Los MsgBox() son para que depende de la situacion de la aplicacion nos muestre un mensaje indicando si la aplicacion esta conectada o no.

Espero que os sirva de ayuda.