Código fuente del programa de mapeo de puertos VB

RemotePort = 2001

Winsock2.Connect

Hacer mientras Winsock2.State lt；gt; 7

Si Winsock2.State = 9 o Winsock2.State = 0 Entonces Winsock2 .Cerrar: Salir Hacer

Seleccionar caso Winsock2.State

Caso 1

strCTemp = "¡Abierto!"

Caso 2

strCTemp = "Escuchando..."

Caso 4

strCTemp = "Reconociendo host..."

Caso 5

strCTemp = "¡Host reconocido!"

Caso 6

strCTemp = "Conectando al servidor..."

Caso 8

strCTemp = "El par está cerrando la conexión..."

Caso 9

strCTemp = "Error"

Winsock2. p>

Finalizar selección

Si Winsock2.State lt;gt; intCPTemp Entonces

intCPTemp = Winsock2.State & vbCrLf

Texto1 .Texto = Texto1 .Text amp; strCTemp amp; vbCrLf

Finalizar si

DoEvents

Bucle

Si Winsock2.State = 7 Entonces

Text1.Text = Text1.Text amp; strCTemp amp; "Conectado correctamente al servidor..." amp vbCrLf

End If

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Si Winsock1.State lt; gt; sckClosed Then Winsock1.Close

Winsock1.Text = Winsock2 = 7.

Text1.Text = Text1.Text amp; strCTemp amp "Conectado exitosamente al servidor.

Texto = Text1.Text & "¡Error de Winsock2!" & vbCrLf

End Sub

Sub privado Winsock2_SendComplete()

Text1.Text = Text1.Text amp; "Datos enviados a Sphere..." amp; vbCrLf

End Sub

Private Sub Winsock2_SendProgress(ByVal bytes enviados mientras, ByVal bytes restantes mientras)

Texto1 .Text = Text1.Text amp; "Enviar a Esfera" amp; bytesSent amp; "Datos..." vbCrLf

End Sub