Scanne port by hackademy

Commenter

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

S'inscrire maintenant

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)