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 :)
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.