SCANNEUR DE PORTS TRES RAPIDE (10 000 PORTS EN MOINS DE 13 SEC )

Signaler
Messages postés
35
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
5 octobre 2003
-
Messages postés
134
Date d'inscription
mardi 20 novembre 2001
Statut
Membre
Dernière intervention
16 juin 2008
-
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/7697-scanneur-de-ports-tres-rapide-10-000-ports-en-moins-de-13-sec

Messages postés
134
Date d'inscription
mardi 20 novembre 2001
Statut
Membre
Dernière intervention
16 juin 2008

La fonction scann1 de légion91 est presque correcte. Voici les modifs que j'ai fait pour que l'arrêt du scan fonctionne !

Private Function scann1()
Dim a, b, c

w.Close
w.RemoteHost = Text3.Text
a = GetTickCount

i = 0
While (i <Val(Text2.Text) And scan "oui")
'For i = Text1 To Text2
' If scan = "non" Then
' Exit Function
' End If
w.Close
w.RemotePort = i
w.Connect
Label1 = i & " / " & Text2.Text
DoEvents
p.Value = i / Text2.Text * 10000
i = i + 1
'Next i
Wend
b = GetTickCount

Label5.Caption = "Temps écoulé : " & (b - a) / 1000 ' & " Secondes "
Label6.Caption = "Nombre de ports ouverts : " & List1.ListCount
Command1.Caption = "Scanner"
End Function
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tant d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tant d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tans d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Afficher les 9 commentaires