Cómo crear un puerto de prueba en Visual Basic

Creación de una prueba de puerto en Visual Basic.NET (VB.NET) no es complicado --en VB.NET puede utilizar el espacio de nombres "System.Net.Sockets", lo que le proporciona una interfaz para controlar la red de un ordenador. Utilice la clase "TcpClient" para conectar a cada puerto que desea probar y mostrar si un puerto está abierto o cerrado. Este proceso es útil cuando se desea probar muchos puertos en un ordenador para determinar cuáles están disponibles para su uso.

Instrucciones

1 Lanzamiento de Microsoft Visual Studio, haga clic en el enlace "Nuevo Proejct" y ampliar "Visual Basic" por debajo "Plantillas instaladas." Haga doble clic en "Aplicación de consola" para crear un nuevo proyecto de la consola.

2 Agregue el siguiente código anterior "Módulo Module 1" para declarar los espacios de nombres que va a utilizar en el proyecto:

importaciones System.Net.Sockets
Las importaciones System.Net
Las importaciones System.Threading
Las importaciones System.Text

3 Agregue el código siguiente a continuación "Sub Main ()" para crear una variable para definir una variable de contador, el puerto de partida y el puerto final desea probar:

Dim startPrt As Integer = 75

Dim endPrt As Integer = 90
Dim lpLng As Long

4 Copiar y pegar el siguiente código para crear un bucle y mostrar un mensaje con el estado de todos los puertos:

For lpLng = startPrt To endPrt
Dim clientTcp As New TcpClient()
Try
clientTcp.Connect("1.1.1.1", lpLng)
Console.WriteLine("Port " + lpLng.ToString() + " is ready")
clientTcp.Close()
Catch ex As SocketException
Console.WriteLine("Port " + lpLng.ToString() + " is Closed" + ex.Message)
End Try
Next
Console.ReadLine()

5 Editar la cadena "1.1.1.1" y escriba la dirección IP de la máquina que desea probar. Pulse la tecla "F5" para ejecutar el programa y empezar a probar cada puerto.