Scanner d'ip

Soyez le premier à donner votre avis sur cette source.

Vue 6 487 fois - Téléchargée 410 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
39
Date d'inscription
samedi 22 juin 2002
Statut
Membre
Dernière intervention
8 juin 2003

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

Merci DA mais il m'indique une run-time error '40020' sur le ws.connect

@+
EXOCET
Messages postés
117
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
13 avril 2007

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

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.