[VB.NET]Comprobar estado de puertos.

Anghios

Holaaaaa! Hacía muchísimo tiempo que no creaba una guía de VB y tal, así que hoy os mostraré como se crea una aplicación que te muestra si los puertos de una web o destino están abiertos o cerrados.

[alinear-centro]Puertos locales: 127.0.0.1

Creamos proyecto e importamos:

Imports System.Net.Sockets

Añadimos 1 timer, 2 botones, 1 listbox y 1 textbox
Botón 1:

Timer1.start

Botón 2:

Timer1.stop

Timer:

Try
Dim escanear As TcpClient = New TcpClient("127.0.0.1", textbox1.Text)
            If escanear.Connected = True Then
                listbox1.Items.Add("127.0.0.1:" & textbox1.Text & " está abierto.")
                listbox1.SelectedIndex = listbox1.SelectedIndex + 1
            End If
            textbox1.Text = textbox1.Text + 1
 Catch ex As Exception
            listbox1.Items.Add("127.0.0.1:" & textbox1.Text & " está cerrado.")
            listbox1.SelectedIndex = listbox1.SelectedIndex + 1
            textbox1Text = textbox1.Text + 1
        End Try

[/alinear-centro]
Se puede hacer también con "else" pero queda más pro así :fuckyea:

hr
[alinear-centro]Puertos por IP externa
Como al comprobar si un puerto de una IP que no sea la local tarda mucho en comprobar, y como con el Timer es una lammerada y peta, lo vamos a hacer sin timer, más simple.

añadimos: 1listbox, 1 boton y 2 textbox
En el botón:

Try
Dim escanear_internet As TcpClient = New TcpClient("textbox2.text", textbox1.Text)
            If escanear_internet.Connected = True Then
                listbox1.Items.Add("textbox2.text" & ":" & textbox1.Text & " está abierto.")
                listbox1.SelectedIndex = listbox1.SelectedIndex + 1
            End If
            textbox1.Text = textbox1.Text + 1
 Catch ex As Exception
            listbox1.Items.Add("textbox2.text & ":" & textbox1.Text & " está cerrado.")
            listbox1.SelectedIndex = listbox1.SelectedIndex + 1
            textbox1Text = textbox1.Text + 1
        End Try

Textbox2.text = IP
textbox1.text = puerto

That's all[/alinear-centro]