sebleboss2002
Messages postés189Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention 3 avril 2005
-
20 févr. 2004 à 11:07
sebleboss2002
Messages postés189Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention 3 avril 2005
-
20 févr. 2004 à 11:16
Salut tout le monde.
Voilà, je veux faire un scanner de ports, et j'ai codé ce qui suit, mais il ne me sort rien :
Private Sub CmdStart_Click()
For i = 1 To 1000
Command1.Caption = i
Ws.Close
Ws.Connect "192.168.0.201", i
Next i
End Sub
Private Sub Ws_Connect()
List1.AddItem Ws.RemotePort
End Sub
Quand je dis qu'il ne me sort rien, c'est qu'il ne met aucun des ports ouverts dans la List1... MAIS POURQUOI ????
sebleboss2002
Messages postés189Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention 3 avril 2005 20 févr. 2004 à 11:16
Bon, ok, j'ai parlé trop vite. Il suffisait de rajouter un Doevents après le Ws.Connect "192.168.0.201", i. Mais ça, ça scanne mes ports réseau local. Quand j'entre mon IP internet, il ne me sort pas le port 80, qui pourtant est ouvert !