NET SCAN - SCANNER DE PORTS RAPIDE QUI MARCHE :-)

jojok65 Messages postés 14 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 mai 2006 - 12 oct. 2003 à 00:06
dxh_master Messages postés 97 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 25 juin 2006 - 21 mars 2006 à 15:23
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/17014-net-scan-scanner-de-ports-rapide-qui-marche

dxh_master Messages postés 97 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 25 juin 2006
21 mars 2006 à 15:23
question
Peut tu nous dire comment on fé pour afficher le contenu de port???
laurent207 Messages postés 101 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 11 avril 2008
25 févr. 2004 à 16:16
Bien, mais manque de commentaires
A3leun Messages postés 3 Date d'inscription dimanche 19 janvier 2003 Statut Membre Dernière intervention 16 novembre 2003
11 nov. 2003 à 23:32
Meme erreur
Erreur d'exécution '35602':

Key is not unique in collection
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
13 oct. 2003 à 18:45
bon, je vois qu'il reste des bugs j'y regarderai mais là j'ai pas le temps...
TheLK Messages postés 15 Date d'inscription lundi 27 mai 2002 Statut Membre Dernière intervention 30 mai 2005
13 oct. 2003 à 07:32
Ca fonctionne pas chez moi:

Erreur d'exécution '35602':

Key is not unique in collection
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
12 oct. 2003 à 14:43
oh j'en avais un rangé dans le grenier (à laquelle je jouais étant petit :-) ). Je l'ai allumé pour voir et puis j'ai regardé le livre, j'ai vu des bouts de code, je les ai recopiés, ça m'a amusé donc j'ai commencé à apprendre là-dessus ;-)

Pour le On Error Resume Next, c'est juste une précaution normalement y'a plus le bug !
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
12 oct. 2003 à 14:25
C'est pas beau les On Error Resume Next ;O)
Mais c'est déjà ce que j'avais fait avant de poster mon précédent message....
Bon travail !

Au fait, moi j'ai débuté sur le petit frère de l'Amstrad CPC 6128, le CPC 464. Mais je parle de cela il y a 15 ans.... Tu n'étais pas né apparement... Il y a 5 ans, donc quand tu avais 9 ans (comme le dis ton profil), le CPC 6128 étant un ancêtre depuis un bail. Le PC était implanté depuis des années déjà. Comment se fait-il que tu es tombé sur un Amstrad ?
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
12 oct. 2003 à 12:44
Encore une MAJ maintenant normalement plus de bugs et en plus, une fois qu'il a scanné les 500 premiers ports (à environ 50/s), il peux passer, comme les winsocks sont déjà chargés, à 120/s !!

Au fait, j'avais oublié de le dire, le fichier Ports.lst qui contient la description des ports vient du logiciel SuperScan 3
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
12 oct. 2003 à 11:21
J'ai fais une mise à jour j'ai refait un bout du code ça ralentit un peu mais au moins normalement les erreurs c'est du passé (j'ai quand même mis un On Local Error Resume Next ;-) )
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 7
12 oct. 2003 à 10:55
Joli... Mais le programme bug lors du scan. Je l'ai fait sur plusieurs adresses dans mon réseau local, et l'erreur survient quasi à chaque fois. Vois pour une gestion efficace des erreurs.

Erreur d’exécution ‘340’ :
L’élément du groupe de contrôles ‘226’ n’existe pas

Function ScanIP_Ports

If WSIndex Mod 200 = 0 Then
For UnloadWS = 0 To UnloadsNum - 1
Unload wskScan(UnloadsList(UnloadWS)) ‘Le problème est ici
Unload tmrScan(UnloadsList(UnloadWS))
Next UnloadWS

UnloadsNum = 0
End If
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
12 oct. 2003 à 10:10
euh... oui pourquoi ?
jojok65 Messages postés 14 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 10 mai 2006
12 oct. 2003 à 00:06
tu as vraiment 14 ans ?
Rejoignez-nous