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
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

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
tite indication, plutot que de mettre
Ws.RemoteHost=CurrentIP
Ws.RemotePort=txtPort.text
Ws.connect
tu peut ettre directement
Ws.connect CurrentIP,txtPort.text
cs_EXOCET
Messages postés
37
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
3 septembre 2002

3 sept. 2002 à 09:26
Merci DA mais il m'indique une run-time error '40020' sur le ws.connect

@+
EXOCET
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
Salut Exocet !
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