C'est un scanner d'IP sans commentaire (désolé mais je les mais pas tout de suite).
Source / Exemple :
'tout est dans le zip!!
Conclusion :
bon j'ai quelques problemes la connection ne marche pas alors si quelqu'un peut m'aider.
J'ai fait quelque modifications mais il ne marche pas encore...
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.