Mejoras

[stealth]

Hola de nuevo y despues de tanto tiempo.
No he podido mirar el programa, he estado trabajando en un programa de administrativo que sirve y cobre bahhhhhhhhhh. Y encima de hacerlo el merito para otros. Prefiero hacerlo yo mismo y gratis que para esa gente.

Pero a lo que iba, ahora si que he mirado tu proyecto, esta bien, el modulo clase lo estado mirando, para que sirve? donde se implementa? eso no lo entiendo.
En los puertos que se indican que esta abiertos, se excluyen los de servicios?

Saludos

[stealth]

Bueno vamos a empezar a divertirnos todos.
Revision 1

Prueba a darle al boton de aceptar varias vaces seguidas (para la busqueda de puertos abiertos) y cierta luego el programa. Se produce un error.
Por el momento no se porque se produce.

Haber si lo damos corregido.

Ya que no se puede quedar en persona para hacer el programa iremos diciendo los pros y contras de cada opcion dada para asi tener un control perfecto sobre el programa.

¿Tienes más compañeros que trabajan en el programa o solo te dedicas tu?
Cuanta mas gente apoye al programa mas potencia tendrá.

Saludos

[stealth]

la primera opcion que es facil es mientras el programa este buscando los puertos poner el boton cmdempezar.enabled=false hasta que temine el for .

Private Sub CmdEmpezar_Click()
On Error GoTo Errores
'Inicializamos el control progress bar
CmdEmpezar.Enabled = False
PB.Visible = True
PB.Min = TxtPuertoIni.Text
PB.Max = TxtPuertoFin.Text
Me.MousePointer = 11
Lista.Clear
CmdSalvar.Enabled = False
'Montamos el bucle q recorrerá todos los puertos intetando conectar
For i = TxtPuertoIni.Text To TxtPuertoFin.Text
WS.Close
lPuerto = i
PB = lPuerto
WS.Connect TxtIP.Text, lPuerto
DoEvents
'Salimos si se pulsa cancelar
If bSalir Then
Reiniciar
Exit Sub
End If
Next
'MsgBox "Final del escaneo de Puertos", vbInformation, "Información"""
CmdEmpezar.Enabled = True
Reiniciar
Me.MousePointer = 0
Exit Sub
Errores:
MsgBox "Error en alguno de los parámetros", vbCritical, "Error"
End Sub

Muy facil no

Para cuando el boton este desactivado. Hay unas propiedades de los botones que permiten dependiendo del estado en que esté dicho control establezcan diferentes imagenes.
Por ejemplo: cmdempezar.disabledpicture= ruta de la imagen (que en este caso sería la misma imagen en vez de verde en gris

Saludos.

[stealth]

¿Que es xrlabs? ¿A quen se dedica esa entidad?
mmm..... porque en el informe html dice textualmente:
XrPortScan es una creación de xRlaBs