Scanneur de ports tres rapide (10 000 ports en moins de 13 sec )
Soyez le premier à donner votre avis sur cette source.
Vue 6 823 fois - Téléchargée 971 fois
Description
Codes Sources
A voir également
- Scanneur de ports tres rapide (10 000 ports en moins de 13 sec )
- Scanneur de ports ouverts - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Ptit scanneur de port tres simple :) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Scanneur de ports ! - Codes sources - Visual Basic / VB.NET (API)
- Scanneur de ports v1.2 win32 (sans mfc) - Codes sources - C / C++ / C++.NET (API)
- C / C++ / C++.NET : Scanneur de port tcp en ligne de commande - CodeS SourceS - Guide
Commentaires
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
Sur ce Bonne Prog a tous
@+
Sur ce Bonne Prog a tous
@+
Sur ce Bonne Prog a tous
@+
- Messages postés
-
4525
- Date d'inscription
- dimanche 29 septembre 2002
- Statut
- Modérateur
- Dernière intervention
- 22 avril 2019
9Tu n'attend meme pas que la connexion soit etabli donc tu trouvera pas grand chose sur une machine distante et je doute meme que tu trouve qlq chose sur ta machine !
en plus comme le dit si bien shivan on peut changer les textbox en cour d'utilisation, tu prend un mauvais interval dans ta routine de sauvegarde :
For i = 1 To List1.ListCount
au lieu de :
For i = 0 To (List1.ListCount-1)
avec ta methode on peu meme generer une erreur de division par zero : p.Value i / Text2.Text * 10000 si text2 0 !!
s'il on met l'appli directement a la racine C: l'enregistreùent du log plante : App.Path & "Log des ports ouverts" (C:\Log...)
et tu devrais Fermer le socket une fois la connexion etabli et pas avant sinons tu n'aura pas de timeout donc forcement tu trouve ça rapide !
Private Sub w_Connect()
List1.AddItem i
w.close
End Sub
bref fait un petit effort stp, tu sait qu'il existe deja bcp de source comme celci et la tu nous pond un truc vite fait mal fait ....
B@nne prog
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.