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
Mostrar Mensajes
