Ce scanner VB.Net est très lent alors j'éspère que vous pourriez m'aidez à l'optimiser petit à petit ou me dire si c'est la manière qui est pas bonne, merci...
Source / Exemple :
'Variable à déclarer
Dim host As String
Dim port As Integer
Dim counter As Integer
'A mettre dans le timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Définition des variable
counter = counter + 1 h'counter pour le timer
TextBox2.Text = counter
host = TextBox1.Text
port = TextBox2.Text
Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry(host).AddressList(0)
Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
Dim s As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Try
s.Connect(EPhost)
Catch
End Try
If Not s.Connected Then
ListBox1.Items.Add("Port " + port.ToString + " est fermé ...")
Else
ListBox1.Items.Add("Port " + port.ToString + " est ouvert !")
ListBox2.Items.Add(port.ToString)
End If
Label3.Text = "Open Ports: " + ListBox2.Items.Count.ToString
End Sub
'Pour le bouton afin de démarrer le scan
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add("Scanning: " + TextBox1.Text)
ListBox1.Items.Add("-------------------")
Button2.Enabled = True
Button1.Enabled = False
Timer1.Enabled = True
Timer1.Start()
End Sub
'Le bouton pour l'arrêter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
TextBox2.Text = "0"
'set counter explained before to 0
counter = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'stop button
Timer1.Stop()
Timer1.Enabled = False
Button1.Enabled = True
Button2.Enabled = False
End Sub
'Voila on code est assez simple mais surement mal programmé etant donné que très lent,
'J'éspère que sa servira les débutants et que des "pros" pourront m'aider à l'optimser.
'Merci
Conclusion :
Mon soft sera mis à jours au fur et a mesure de vos remarque et de vos conseil afin de le rendre plus rapide.
Sauf bien sûr si c'est une mauvaise méthode pour programmer un scanner en VB.Net.
Remarque ; C'est le seul scanner de port en VB.Net que j'ai put trouver sur ce site (sauf une classe).
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.