Mensajes

usa la propiedad witdh y heigth

me.witdh = tamaño
me.heigth = tamaño

le puedes poner un timer y un contador para que agrande de apoco  y se vea bonito

Aer... no entendo mucho pero si quieres mostrar la IP en el navegador tienes que hacer:

winsock1.sendata txtip
winsock1.close

o para que aparezca en un text

text1.text = list1.text

Upss... antes de list1.additen pon:

winsock1.close
winsock1.accept requesID 

para que te aparezca la ip de la maquina remota prueba con:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
list1.AddItem(winsock1.remoteIP)
End Sub

[10055]

El ocdigo no me da error, solo que cuando empieza a escanear me sale el mensaje de error 10055 que no hay espacio disponible en el búfer. 

Hola a todos, estoy haciendo un escanador de puertos, a nivel local funciona bien pero cuando intento escanear otra maquina me dice que el buffer es insuficiente ¿como lo soluciono?, este es mi codido:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Winsock1.Listen

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txtPuerto1_Change()
'If txtPuerto1.Text = "" Or Val(txtPuerto1.Text) <= 0 Or Val(txtPuerto1.Text) >= Val(txtPuerto2.Text) Then
'    txtPuerto1.Text = 1
'End If
End Sub

Private Sub txtPuerto2_v()
If txtPuerto2.Text = "" Or Val(txtPuerto2.Text) <= 0 Or Val(txtPuerto2.Text) <= Val(txtPuerto1.Text) Then
    txtPuerto2.Text = 6000
End If
End Sub

Private Sub Winsock1_Connect()
txtPuertos.Text = txtPuertos & vbCrLf & varPuerto
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dato As String
    Winsock1.GetData dato
    MsgBox dato
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'MsgBox Description
End Sub