SCANNE PORT BY HACKADEMY

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