Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Overlord en 27 Agosto 2005, 00:35 am



Título: [Winsock] problema buffer
Publicado por: Overlord en 27 Agosto 2005, 00:35 am
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:
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


Título: Re: [Winsock] problema buffer
Publicado por: Slasher-K en 27 Agosto 2005, 04:28 am
¿En dónde te da el error?


Título: Re: [Winsock] problema buffer
Publicado por: Overlord en 31 Agosto 2005, 00:35 am
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.  :-\


Título: Re: [Winsock] problema buffer
Publicado por: Slasher-K en 31 Agosto 2005, 04:58 am
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.