Scanne port by hackademy

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 239 fois - Téléchargée 38 fois

Contenu du snippet

Voila un Scanne Port repris ds le mags HZV "RELOADED"

Assez bien Mais .....

Source / Exemple :


Private Sub comdscanner_click()
  On Error Resume Next
  Dim socket As Variant
  Dim CurrentPort As Long
  Dim MaxSockets As long
  MaxSockets = nbrsock.Text
  If comdscanner.Caption = "lancer" Them
    nbrsock.Enabled = False
    debport.Enabled = False
    comdscanner.Caption = "Arreter"
      For i = 1 To Maxsockets
         Load Sock(i)
      Next i
  CurrentPort = Debport.Text
  While cmdscanner.c=Caption = "Arreter"
      For Each socket In Sock
        DoEvents
          If Socket.Satate <> sckClosed Then
            Go to continue
            else socket.Close
         End If
         If CurrentPort = val(finport.text) + 1 then
             Exit for
           end if
	socket.RemoteHost = iptxt.text
	socket.RemotePort = Currentport
	Label29.Caption = "Scan Le port : " & CurentPort
	soket.Connect
	CurrentPort = CurrentPort + 1
	continue:
     next socket
wend
	cmdscanner.caption = "lancer"
	iptxt.enabled =true 
	debport.enabled =true 
	finport.enabled =true 
	nbrsock.enabled =true
   Else
	cmdscanner.Caption ="lancer"
End If 
	For i_ = 1 To MaxSockets
	Unload Sock(i)
     Next i 
End Sub

Private Sub cmdEffacer_Clik()
LIST2.CLEAR
label29.caption = ""
End Sub

Private Sub Sock_Connect(index As Integer)
list2.addItem (iptxt.text &" :" &)
                 (Sock(Index).RemotePort))
Sock(Index).close
End Sub

Private Sub Form_QueryUnload(Cancel As Integer,
                             UnloadMode As Interger)
If cmdscanner.Caption = "Arretr" them
MsgBox (Vous devez arreter de Scanner avant de fermer", vbinformation, "Attention : Arreter de Scanner !!.")
Cancel = True
End If
End Sub

Conclusion :


Dsl je n'ai pas mis de zip !!! Pas le tmps :)

A voir également

Ajouter un commentaire Commentaires
Messages postés
34
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
29 novembre 2005

LOL
Messages postés
15
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
28 avril 2003

un grand moment du code !!
"Socket.Satate" : nouvelle propriete ?
"For i = 1 To Maxsockets
Load Sock(i)
Next i"
si je scan les 3000 premier port, j'ai 3000 objet en memoire ?
"For Each socket In Sock
DoEvents" --> ouais vaut mieux
"Go To continue" ???????
... bref pas de note car 0 est pas dans la liste.
deplorable
Messages postés
255
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
16 janvier 2007

De la bonne littérature. Un bon code. Que demander de plus pour passer de bonnes vacances.
Messages postés
47
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
30 septembre 2003

c'est bon, c'est au moins le 46514891484ème ! on sait comment ca marche... pas besoin d'un mag, ca commence à faire pitier à force...

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.

Du même auteur (hackers2004)