Cómo usar vb para implementar la entrada (dirección IP, número de puerto local y extremo remoto)

Cualquier servicio que esté habilitado será el puerto iniciado

Por ejemplo, si habilita el servicio FTP, el sistema abrirá 20.21 (a es el puerto de control y el otro es el puerto de transporte)

Ahora, algunas personas siempre piensan que si navego por la web, también abrirá mi puerto local 80

En De hecho, este no es el caso.

Puedes abrir la página web, abrir CMD, ingresar netstat -an

Esta máquina no tiene el puerto 80, pero el host remoto tiene el puerto 80

Luego, nuestro programa se divide en dos partes

Una parte juzga el host remoto

La otra parte juzga la máquina local

Por ejemplo, si el La máquina local abre el puerto 4000

y el puerto es mayor que 1024. Puede abrir el puerto local. p>Los puertos mayores a 1024 deben ser recopilados por usted mismo. Puede encontrar lo que otros han recopilado en línea y crear un formulario.

Utilice VB para escribir un pequeño programa para escanear los puertos abiertos localmente.

4 textos y dos botones. y un control Winsock1

Atenuar el número de puerto mientras

Atenuar el inicio como cadena

Sub scanports()

Atenuar el puerto dos mientras

portnum = Text1.Close

DoEvents

Winsock1.LocalPort = portnum

DoEvents

Text3.Listen p>

DoEvents

Else

portnum = 0

Command1.Enabled = True

Text1.Locked = False

Text2.Locked = False

Text2.Locked = True

Command1.Enabled = False

Winsock1.Close

start = True

Llamar a scanports

logport.Text = logport.Text amp; vbCrLf amp; "puertos" Text1.Text amp; ; Text3.Text amp; "¡Se ha escaneado correctamente!"

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

inicio = Falso

Fin Sub