Scanner de port vb.net

Télécharger le projet
Commenter

Description

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).
Télécharger le projet

Codes Sources

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.