AYUDA CON ESTE CODIGO POR FAVOR

Polako
17 de Junio del 2004
ESTE CODIGO ES MIO Y TIENE MUCHOS ERRORES RECIEN EMPIEZO
A EXAMINAR EL COMPONENTE WINSOCK Y ME GUSTARIA QUE ME AYUDARAN
POR FAVORRRRRR
PD:ES UN ESCANEADOR DE PUERTOS
MI MAIL ES [email protected]


For i = txtpuertop.Text To txtpuertof.Text
DoEvents
sock1.RemotePort = i
sock1.LocalPort = i
sock1.Connect txtingIP.Text
Next i

If sock1.State = sckConnected Then
lstpuertoa.List = txtingIP.Text + " tiene abierto el puerto " + sock1.RemotePort
End If

If i = txtpuertof.Text Then
MsgBox "Los puertos escaneados fueron del " & txtpuertop.Text & " hasta " & txtpuertof.Text, vbInformation, "Finalizacion de escaneo"
End If

If txtingIP.Text = "" Or txtpuertop.Text = "" Or txtpuertof.Text = "" Then
MsgBox "Debe completar todos los espacios", vbCritical, "Error de relleno"