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:
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
¿En dónde te da el error?
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. :-\
No veo en que parte escanea ese código, pero de todas maneras si no hay espacio en el buffer es porque está recibiendo más datos de los que puede soportar, espera un tiempo antes de enviar las peticiones, unos 25 milisegundos va a estar bien.
Saludos.