Scanner de ports

Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005
- - Dernière réponse : sebleboss2002
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Derniè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 ????

Merci d'avance,

Seb
Afficher la suite 

1 réponse

Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005
0
Merci
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 !