SCANNER D'IP
cs_DeathAngel
Messages postés
117
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
13 avril 2007
-
3 sept. 2002 à 09:16
cs_Stephman Messages postés 39 Date d'inscription samedi 22 juin 2002 Statut Membre Dernière intervention 8 juin 2003 - 6 nov. 2002 à 13:28
cs_Stephman Messages postés 39 Date d'inscription samedi 22 juin 2002 Statut Membre Dernière intervention 8 juin 2003 - 6 nov. 2002 à 13:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4485-scanner-d-ip
https://codes-sources.commentcamarche.net/source/4485-scanner-d-ip
6 nov. 2002 à 13:28
Ws.RemoteHost=CurrentIP
Ws.RemotePort=txtPort.text
Ws.connect
tu peut ettre directement
Ws.connect CurrentIP,txtPort.text
3 sept. 2002 à 09:26
@+
EXOCET
3 sept. 2002 à 09:16
Bon, j'ai essayé, ton problème viens du fait que tu ne ferme pas ton socket avant de lui changer l'adresse IP.
Voilà ce que tu dois mettre :
For l = IP4 To IP4f
CurrentIP = i & "." & j & "." & k & "." & l
Ws.Close 'Là, tu ferme la connection active
Ws.RemoteHost = CurrentIP
Ws.RemotePort = txtPort.Text
Ws.Connect
Next l
Avec ça, ça tourne sans planter. J'ai pas le temps de lancer un scan pour voir si ça ramène bien des adresses IP ouvertes, donc pas de note...
@peluche et bon dev'
DA