VB.NET TCP пиналка.

Взял вот здесь:

http://stackoverflow.com/questions/3667377/adding-port-to-ping

пинать tcp порты. Если открывается возвращает True, если нет, то False. Можно из неё отличный мониторинг сделать по-моему.

Function CheckPortOpen(ByVal hostname As String, ByVal portnum As Integer) As Boolean
Dim ipa As IPAddress = CType(Dns.GetHostAddresses(hostname)(0), IPAddress)

Try
Dim sock As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

sock.Connect(ipa, portnum)
If (sock.Connected = True) Then

sock.Close()
sock = Nothing
Return True
End If
Catch sx As SocketException
If sx.ErrorCode = 10061 Then
Return False
Else
Return Nothing
End If
End Try

End Function